Simge Durumunda Küçültünce Tam Ekrandan Çıkma Sorunu

[bugrakaratas]

Üstadlar merhaba;
Yaptığım küçük bir programcığı tam ekran yapmak için aşağıdaki makroları kullanıyorum. Program açıldıktan sonra programı simge durumunda küçültüp eski haline getirdiğimde menübarlar görünmeye başlıyor. Çaresini bulamadım.
Değerli çözümleriniz için şimdiden teşekkür ederim.

Private Sub workbook_Open()
Application.ScreenUpdating = False
Application.CommandBars("toolbar list").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False


ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False


Sheets("Anasayfa").Visible = True
Sheets("Anasayfa").Select

End Sub

Private Sub Workbook_BeforeClose(cancel As Boolean)
Application.WindowState = xlNormal
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayHeadings = True
ActiveWorkbook.Save

End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayHeadings = False
End Sub

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

 

[bugrakaratas]

Teşekkür ederim Korhan Bey.
Vermiş olduğunuz kod ile sorun çözüldü.