Schutz über alle Blätter aus blatt 1
28.01.2005 11:27:22
Alex
möchte gerne einen Schutz über mehrer Arbeitsblätter dies soll aber er ab dem 2 blatt mit folgenden Bedingungen geschehen.
Sub Schutz()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowInsertingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Der schutz soll rausgenommen werden nach einer Passwortabfrage.
Bei einer weiteren Betätigung soll der Schutz wieder reingenommen werden mit den oben stehenden Bedingungen.
Hoffe jemand kann mir diesbezüglich weiterhelfen.
Für Eure Vielen Dank im vorraus
Gruß Alex
Anzeige