Freigeben und schützen
12.01.2021 15: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
Das funktioniert auch, aber nun will ich die Datei in der das Makro meine Werte schreibt, freigeben und schützen. Und mit diesem Code funktioniert das nicht mehr. Da kommt immer ein Fehler: "Methoder 'Unprotect' für das Objekt '_Workbook' ist fehlgeschlagen.