Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Makro Problem bei Zellschutz





Frage

Zu Anfang erst mal ein freundliches „Hallo“ Ich habe ein kleines Problem mit dem Zellschutz bei Excel. Ich möchte bestimmte Zellen vor beschreiben schützen. Um es genau zu sagen sind es 3 ganze Spalte A1 bis A20 C1 bis C20 D1bis D20 und dann noch ein paar einzelne Zellen in den Spalten B und E. In Ich habe es schon mit dem Blattschutz ausprobiert, kommt aber die Meldung “ Beenden oder Debuggen.“ Da in dieser Tabelle ein Makro läuft. Ich habe auch ein Makro gefunden was Zellen wo Formeln stehen schützt , aber da ist mein Problem ich habe in dieser Tabelle Zellen die Ein.- sowie Ausgabe Felder sind und die möchte ich nicht schützen. Also was ich genau brauche : ist ein Makro wo ich eingeben kann welche Zellen egal mit oder ohne Formel mit Text drin oder nicht schützen kann. Es wäre klasse wenn mir da jemand weiterhelfen könnte. Ich stehe da wirklich auf dem Schlauch und meine Kenntnisse in VBA sind bescheiden. Danke Gruß s.v.

Antwort 1 von Primut

Hi s.v.,

ich setzte mal voraus, du weißt, wie de Blattschutz funktioniert.

Die Fehlermeldung kommt, wenn das Makro versucht, die geschützten Zellen zu beschreiben o.ä. Keine Ahnung, was dein Makro macht, du mußt jedoch sicherstellen, daß nur der erwähnte Bereich geschützt ist und nicht die Zellen, die durch´s Makro bearbeitet werden sollen.
Wenn im Ernstfall das Makro aber auch den geschützeten Bereich bearbeiten soll, so mußt du am Makroanfang den Blattschutz aufheben und am Makroende den Blattschutz wieder anschalten. Hab den Code allerdings gerade nicht parat.

Gruß Primut

Antwort 2 von s.v.

Hallo Primut

Erstmal danke für Deine Hilfe.

Es funktioniert nicht mit dem Blattschutz, ich kann die Zelle wo das Makro drauf zugreift ja beschreiben, also kein Schutz. Nachdem ich diese beschrieben habe kommt diese Fehlermeldung .

Deshalb bräuchte ich ja eine Anweisung für mein Makro wo ich bestimmte Zellen schützen kann.

Diese habe ich im Forum gefunden



ActiveSheet.Unprotect

For Each Zelle In Range("B2:AI1500")

If Zelle.Value <> "" Then

Zelle.Locked = True

End If

Next

ActiveSheet.Protect DrawingObjects:=True, _

Contents:=True, Scenarios:=True

End Sub



Funktioniert auch prima, nur nicht bei meiner Tabelle, da sie Zellen schütz die ich beschreiben möchte.



Ich hätte es aber gerne so, dass die Zellen wo das Makro drauf zugreift nicht geschützt sind.

Danke im voraus

Gruß s.v.

Antwort 3 von Primut

Hi s.v.,

na dann scheint ja der Fehler woanders zu liegen.

Wenn der Blattschutz entfernt ist und trotzdem die Fehlermeldung kommt, liegt es wohl nicht vordergründig am Blattschutz sondern am Makro!

Gruß Primut

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: