diese Frage hatte ich einmal gestellt, aber ich finde es nicht mehr.
Wie kann ich alle Blätter zusammen mit einme Befehl schützen und aufheben.
Ohne Password und bitte auch mit Password
Vielen vielen Dank im voraus
MFG
ömer
Sub AlleBlaetterSchuetzen()
'Autor: Unbekannt
' AlleBlaetterSchuetzen Makro
' Alle Blätter einer Arbeitsmappe werden geschützt
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub