Habe Folgendes Problem !
Es sollen einige Teile , sobald das Programm gestartet wird , in der Menüleiste nicht mehr Benutzbar sein !
Z.B in "Extras" ( Schutz , Makros , Optionen )
Bei meinem Beispiel muss ich alles Einzeln Eintragen.
Nun möchte ich wissen ob ich auch "Extras" mit einem Befehl ausschalten kann .
Es muss aber mit AUTO_OPEN Funktionieren.
( Herbert Deine E-Mail ging nicht konnte dich nicht erreichen )
MEINE EINTRAGUNGEN:
Sub AUTO_OPEN()
With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
.Controls("Makro").Enabled = False
.Controls("Schutz").Enabled = False
.Controls("Add-In-Manager...").Enabled = False
.Controls("Anpassen...").Enabled = False
.Controls("Optionen...").Enabled = False
.Controls("Arbeitsmappe freigeben...").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Fenster")
.Controls("Fixierung aufheben").Enabled = False
End With
End Sub
Sub AUTO_CLOSE()
With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
.Controls("Makro").Enabled = True
.Controls("Schutz").Enabled = True
.Controls("Add-In-Manager...").Enabled = True
.Controls("Anpassen...").Enabled = True
.Controls("Optionen...").Enabled = True
.Controls("Arbeitsmappe freigeben...").Enabled = True
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Fenster")
.Controls("Fixierung aufheben").Enabled = True
End With
DisplayAlerts = True
Application.EnableCancelKey = xlInterrupt
Workbooks.Close
End Sub