kann mir jemand sagen, wie ich erreiche, dass die beiden Menüleisten
M.f.G.
Harald
Sub symbolleisten()
Dim cb As CommandBar
For Each cb In Application.CommandBars
Select Case cb.Enabled
Case Is = True
cb.Enabled = False
Case Is = False
cb.Enabled = True
End Select
Next
End Sub
Sub Auto_open()
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
End Sub
Sub Auto_close()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
End Sub
Sub MenuBar_ein()
With Application.CommandBars("Worksheet Menu Bar")
.Visible = True
.Enabled = True
End With
End Sub
Sub MenuBar_ein()
With Application.CommandBars("Worksheet Menu Bar")
.Visible = False
.Enabled = False
End With
End Sub
Sub Auto_open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Sub Auto_close()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub