Blattschutz aufheben, deaktivieren

Option Explicit
Sub start()
frmPasswort.Show
End Sub
Sub weiter()

Sheets("Tabelle1").Unprotect
Sheets("Tabelle2").Unprotect
End Sub
Sub stopp()
Sheets("Tabelle1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Mit diesem Makro per Userform kann ich die Tabellen schützen oder auch freigeben. Wenn ich die Tabellen mit Passwort schütze, kann ich aber über den Menüpunkt EXTRAS>SCHUTZ>BLATTSCHUTZ AUFHEBEN die Tabellen aber "ohne" Nachfrage eines Passwortes wieder freigeben.
Was geht hier ab, so das dieser Menüpunkt deaktiviert wird?

mfg

Gerhard S.