VBA Passwortschutz für alle Blätter?
24.02.2021 02:34:59
JensBrest
Ich bräuchte eine Anpassung.
Blattschutz aufheben:
Sub Schutz_Aufheben()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:="Test"
Next
MsgBox "alle Blätter wurden vom Blattschutz befreit"
End Sub
Sub Blatt_Schutz()
Dim i As Integer
For i = 1 To Sheets.Count
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="Test"
Next
MsgBox "alle Blätter wurden geschützt"
End Sub