Werkbalk verbergen

[Jatto]

Ik heb de volgende code gebruikt.
Dit werkt goed, behalve om de "Worksheet menu bar" te verbergen.

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
 Application.DisplayFormulaBar = False
  ActiveWindow.DisplayHeadings = False
   ActiveWindow.DisplayGridlines = False
    ActiveWindow.Zoom = 125
     Application.CommandBars("Visual Basic").Visible = False
      Application.CommandBars("Worksheet Menu Bar").Visible = False
         End Sub

Hoe los je dit op?
Wie heeft er suggesties?

 

[tilpi]

Sub CommandbarsWeg()
Dim c As CommandBar
For Each c In CommandBars
c.Enabled = False
Next c
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
End Sub


Mvg

Piet

 

[jpvs]

Met dit :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Worksheet menu bar").Delete
End Sub

voor meer uitleg zie : http://www.jkp-ads.com/Articles/DistributeMacro04NL.htm

Pierre

 

[Wigi]

Dit is iets beter:

Sub Macro1()
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

en

Sub Macro1()
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Wigi