weis jemand ob man in Excel irgendwie die Funktion Blattschutz aufheben direkt deaktivieren kann. Über nachfolgenden Code kann man Funktionen deaktivieren. Nur leider weis ich nicht welche ID der Blattschutz hat.
Sub Menue_deaktivieren()
Dim Datei
For Each Datei In Application.CommandBars.FindControls(ID:=887)
Datei.Enabled = False
Next
End Sub