Pencere sabitleme

[nachuge]

Arkadaşlar aşağıdaki komut ile araç çubuklarını gizliyorum

On Error Resume Next
    With Application
       .DisplayFullScreen = True
       .CommandBars("Full Screen").Visible = False
       .CommandBars("MyToolbar").Enabled = True
       .CommandBars("MyToolbar").Visible = True
       .CommandBars("Worksheet Menu Bar").Enabled = False
    End With
On Error GoTo 0

fakat pencereyi küçülttüğümde çubuklar tekrar görünüyor. Benim isteğim pencerenin açıldığı ekranı kaplaması ve bir daha küçültülmesin o ekranın genişliğini alsın. Tabi bu durumda olası bir hata durumunda vb editörüde nasıl açacağımı anlatırsanız sevinirim..

iyi çalışmalar..

 

[nachuge]

önerisi olan yokmu arkadaşlar?

 

[nachuge]

arakadaşlar aradığımı buldum sizlerlede paylaşıyorum

Private Sub Workbook_Activate()

    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Deactivate()

    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    Application.ScreenUpdating = True

 End Sub