Hide all menubars even 'Worksheet Menu Bar'

[Filips Benoit]

Dear All,

How can I hide all menubars by code when opening excel from Access.

Thanks,

Filip

 

[Ron de Bruin]

Hi Filips

Try this in Access

Sub test()
Dim bar
On Error Resume Next
Set xl = GetObject(, "Excel.Application")
If xl Is Nothing Then
Set xl = GetObject("", "Excel.Application")
xl.workbooks.Open "c:\Data\test3.xls"
xl.UserControl = True
xl.Visible = True
For Each bar In xl.CommandBars
bar.Enabled = False
Next
End If
AppActivate "Microsoft Excel"
End Sub

 

[Bob Phillips]

Dim ocb As Object

For Each ocb In xlApp.CommandBars
If ocb.Name <> "Worksheet Menu Bar" And _
ocb.Visible Then _
ocb.Visible = False
Next ocb
Application.CommandBars("Worksheet Menu Bar").Enabled = False

 

[Filips Benoit]

Thanks but:


The user that opens excel from the access-interface must not have the
menubar, that works OK.
But other users who opens excel directly on the server must have the
menubar.
Now the MenuBar stays NOT enabled.

How do i enable the 'Worksheet Menu Bar' on closing excel.

Filip

 

[Bob Phillips]

I would have thought that was obvious

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