kann mir jemand einen VBA Code sagen wie man die Menüleiste "Extras" ausblendet?
Also sperren tut, transparieren oder so...
Vielen Dank für Eure Hilfe
Gruß amina
Sub _aus()
With Commandbars(1).Controls("Extras")
.visible = false
.enabled = false
End With
End Sub
Sub auto_open ()
und dann den Code
Gruß
David
Private Sub workbook_open()
CommandBars(1).Controls("Extras").Visible = False
End Sub
Private Sub workbook_beforeclose(cancel As Boolean)
CommandBars(1).Controls("Extras").Visible = True
End Sub
Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Gruß, René
Private Sub workbook_activate()
CommandBars(1).Controls("Extras").Visible = False
End Sub
Private Sub workbook_deactivate()
CommandBars(1).Controls("Extras").Visible = True
End Sub
Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Private Sub workbook_activate()
CommandBars(1).Controls("Extras").Visible = False
End Sub
Private Sub workbook_deactivate()
CommandBars(1).Controls("Extras").Visible = True
End Sub
funktioniert das auch nicht.
Da kommt eine Fehlermeldung Objektvariable oder With-Blockvariable nicht festgelegt.
Also die Fehlermeldung kommt auch wenn ich eine test mappe nur mit dem Code erstelle.
Woran kann das liegen ?
Private Sub workbook_activate()
Application.CommandBars(1).Controls("Extras").Visible = False
End Sub
Private Sub workbook_deactivate()
Application.CommandBars(1).Controls("Extras").Visible = True
End Sub
Application ist nur in Standardmodulen default, in Klassenmodulen muss es explizit
angegeben werden.
Gruß K.Rola
Private Sub workbook_activate()
Application.CommandBars(1).Controls("Extras").Visible = False
End Sub
Private Sub workbook_deactivate()
Application.CommandBars(1).Controls("Extras").Visible = True
End Sub
Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Private Sub workbook_activate()
Application.CommandBars("worksheet menu bar").Controls("Extras").Enabled = False
End Sub
Private Sub workbook_deactivate()
Application.CommandBars("worksheet menu bar").Controls("Extras").Enabled = True
End Sub
Gruß
Rudi