Blattschutz
03.09.2005 15:41:47
Michael
in meiner Mappe sind alle Blätter durch Blattschutz geschützt!
Ich trage durch aufruf einer MsgBox eine Jahreszahl ein, wobei
dann der Blattschutz des aktiven Blattes aufgehoben wird und nach
Enter wieder aktiviert wird.
Sub Test()
Sheets("T0").Select
ActiveSheet.Unprotect ("test")
ActiveSheet.Protect ("test")
End With
End Sub
Soweit alles bestens. Nun möchte ich aber zusätzlich
erreichen, das mit Aufruf der MsgBox folgende Blätter
entsperrt und der Inhalt der Zellen gelöscht wird.
Sheets("T1", "T2", "T3", "T4", "T5", "T6").Select
Range("H5,H6,H7,B17:Y30,B39:Y52,B61:Y65").Select
Selection.ClearContents
Das Passwort ist bei allen Blättern gleich.
Ich bekomme es einfach nicht hin zusätzlich diesen Abschnitt,
in den obigen Code zu integrieren.
Bitte um Hilfe.
Danke
Michael