weiß jemand wie per VBA die Funktion "Blattschutz aufheben" deaktiviert werden kann?
Grüße
Nico D
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = True
End Sub