VBA & Blattschutz-xlunlockedcells setzen&behalten
06.09.2005 14:25:09
Christian
Ich habe folgendes Problem:
Ich muss ganz viele Blätter anschauen, evtl. ändern und dann schützen.
Das mache ich im Moment mit einem Makro und shortcut.
So, jetzt habe ich den Auftrag bekommen, die Option "gesperrte Zellen auswählen" rauszunehmen, heißt, der user darf nur noch die ungesperrten zellen "anspringen".
Mein Makro sieht so aus:
Sub blabal()
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Problem: wenn ich das mache, funktioniert es sehr gut. Dann speicher ich, schließe das File und öffne es wieder. Dann ist das Blatt zwar weiter geschützt, aber die Option "xlunlockedcells" hat er wieder vergessen, heisst man kann wieder alle Zellen anspringen.
Ich will das aber auf keinen Fall in jedes der Workbooks mit "openworkbook" schreiben, sondern dass das weiterhin mit shortcut funktioniert, auf dem Blatt das gerade aktive ist.
Vielen Vielen Dank für die Hilfe im voraus...
Gruß,
Christian