Minimize/Maximize excel restores command bars

R

Rockee052

Hello All,


I have created a custom commandbar and deleted all of excels for thi
workbook I am working in. I am going through it and trying to fin
errors (which I hate doing). If I minimize excels window then maximiz
it, excel deletes my command bar and restores excels. I can't seem t
figure out why? I have put the procedure in This Workbook, the cod
is:

Private Sub Workbook_Deactivate()
Call DeleteMenuBar
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True

Private Sub Workbook_Activate()
' Show full screen
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False

' Show new commandbar
Call MakeMenuBar
End Sub

Please correct me if I am wrong on this, I am a newbie to VBA. What
thought this code would do on the Deactivate is delete my custo
menubar and return excel's window to normal, and just the opposite fo
Activate.

Thanks for any help or suggestions.

Rockee
Excel 200
 
M

Mike Fogleman

Try Workbook Open to create your menu, and Close to restore the original.
Minimize will fire the Deactivate code and of course Maximize will fire the
Activate code, as you have found out.
 
R

Rockee052

Mike,

Thanks for your reply. My code for the commandbar is in the Workboo
open and workbook close. I just added this code in case the window wa
minimized or maximized but, for some odd reason when it's minimize
then maximized excel's menus are restored and mine disappears.

Rocke
 
R

Rockee052

Hmm.

Nevermind, I think that I went crazy or I'm seeing things. Now i
doesn't restore excels commandbars.

Sorry for wasting your time


Rocke
 
Top