Hallo
ganz am Anfang nach Dim - ActiveSheet.Unprotect oder Tabelle1.Unprotect. Vor End Sub dasselbe wieder mit Tabelle1.Protect.
Wenn es ein Passwort gibt gehört das hinter .Unprotext "Dein Passwort! und hinter .Protect "Dein Passwort"
mfg