Custom Menu return to Excel Menu

  • Thread starter Thread starter VetcalcReport
  • Start date Start date
V

VetcalcReport

I would like to find out if there is a way to modify the following code to
restore the Excel Menu upon exiting the file.

Your help would be sincerely appreciated!

____________Code Below ________________________

Private Sub CommandButton1_Click()

' Remove commandbars
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next


Sub
 
Please post in one group

You can use events like this in the Thisworkbook module

Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
End Sub

Private Sub Workbook_Deactivate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = True
Next
End Sub
 
Back
Top