wie kann ich den Blattschutz automatisch einschalten. Wenn ich ihn ausschalte und vergesse kann ein anderer Benutzer die Tabelle bearbeiten.
Private Sub Workbook_Open()
Sheets("Tabellenname").Unprotect "Passwort"
End Sub
Private Sub Workbook_Deactivate()
Sheets("Tabellenname").Protect "Passwort"
End Sub