ich brauche wieder einmal eure Hilfe.
Ich möchte das in meinem Dokument automatisch der Blattschutz beim Schließen aktiviert wird.
Dazu habe ich diesen Code eingebaut.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect "Passwort"
Next ws
Me.Protect "Passwort"
Me.Save
MsgBox "Workbook_BeforeClose angesprungen"
End Sub
Jedoch springt nicht einmal die Messagebox beim Schließen an. Woran kann das liegen?Vielen Dank schon einmal!
Gruß
Sascha