Freigeben und schützen
12.01.2021 16:21:48
JoS
ich habe ein Problem. Bisher habe ich in meinem Makro den Blattschutz so umgesetzt.
Sub Blattschutz()
Worksheets("Übersicht").Protect Password:="Passwortname", UserInterfaceOnly:=True, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, structure:=True
Worksheets(Bereich).Protect Password:="Passwortname", UserInterfaceOnly:=True, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, structure:=True
End Sub
Sub BlattschutzAus()
Worksheets("Übersicht").Unprotect Password:="Passwortname"
Worksheets(Bereich).Unprotect Password:="Passwortname"
End Sub
Anzeige
