Office: Arbeitsmappe schützen

Hallöchen, ich mal wieder...

Nachdem (dank Eurer großartigen Unterstützung) meine Mastertabellen mittlerweile stehen, hätte ich jetzt nochmal eine Frage zum Schutz:

Für meine Anwendung wäre es sinnvoll, wenn diese komplett (d.h. alle Arbeitsblätter der Arbeitsmappe) für Änderungen durch Passwortabfrage gesperrt werden könnten. Gibt es dafür auch einen kürzeren Weg, als alle Blätter einzeln zu sperren? Weil aus meinen Mastertabellen entstehen nachher etwa 200 Einzeltabellen mit jeweils 10 Arbeitsblättern, und das wird dann relativ umfangreich, wenn ich jedes einzelne Blatt sperren muss. Wenn ich auf Arbeitsmappe sperren geh, kann ich zwar keine neuen Blätter etc. einfügen, die bestehenden lassen sich allerdings weiter verändern... Könnte ich das, falls es gar nicht anders geht auch über ein Makro aufzeichnen (Mappe sperren / entsperren)?

Liebe Grüße
Josh

 

Hallo!

Dieses Makro schützt alle Blätter der aktiven Arbeitsmappe:

Code:

Sub AlleBlätterSchützen()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Protect Password:="Hallo"
Next Blatt
End Sub

 

Hallo Schatzi,

vielen Dank, funktioniert mal wieder wunderbar!

Hast Du zufällig auch einen Code, um den Schutz aller Arbeitsblätter wieder aufzuheben (mit Passworteingabe)? Da könnte ich dann 2 hübsche Buttons machen...

Auf jeden Fall nochmal vielen Dank für die schnelle Hilfe!

Gruß
Josh

 

Vielleicht so?

Code:

Sub Entsperren()
Dim Blatt As Worksheet
Dim x As String
x = InputBox("Geben Sie das Passwort ein:")
If x = "Hallo" Then
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect Password:="Hallo"
Next Blatt
Else: MsgBox "Falsches Passwort!"
End If
End Sub

 

Vielen vielen Dank Schatzi,

funktioniert prächtig!