Tam Ekran sorunu

[enginbaykan]

İyi günler arkadaşlar,
Yaklaşık 10 sayfa tam ekran sorusunu inceledim, ya sorulup cevaplanmamış yada farklı sorulmuş.
Sorunum şu; birden fazla excel dosyasında çalışıyorum ancak sadece bir tanesinin tam ekran olarak calısmasını istiyorum.

Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayGridlines = False
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"

Kodlar hep uygulama üzerinden çalışıyor ve tüm exceli etkiliyor. bunu sadece "deneme" ismindeki excel dosyam üzerinde calıstırma sansım varmıdır?

 

[Korhan Ayhan]

Bu kodları kullanabilirsiniz.

Option Explicit

Private Sub Workbook_Activate()
    With Application
        .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
        .DisplayStatusBar = False
        .DisplayFormulaBar = False
    End With
    With ActiveWindow
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayGridlines = False
    End With
End Sub

Private Sub Workbook_Deactivate()
    With Application
        .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
        .DisplayStatusBar = True
        .DisplayFormulaBar = True
    End With
    With ActiveWindow
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayGridlines = True
    End With
End Sub

 

[enginbaykan]

Bu kodları kullanabilirsiniz.

Option Explicit

Private Sub Workbook_Activate()
    With Application
        .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
        .DisplayStatusBar = False
        .DisplayFormulaBar = False
    End With
    With ActiveWindow
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayGridlines = False
    End With
End Sub

Private Sub Workbook_Deactivate()
    With Application
        .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
        .DisplayStatusBar = True
        .DisplayFormulaBar = True
    End With
    With ActiveWindow
        .DisplayWorkbookTabs = True
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayGridlines = True
    End With
End Sub

teşekkür ederim hocam.
bir sorum daha olacak. exceli ortak calısıyoruz. office 365. anasayfama bi tane buton koydum sadece ribbonu acıp kapatan.
sorum şu: ben anasayfada full ekran calısırken diger sayfaya koycagım buton ile ribbonu acsa sanırım anasayfa da acılacak bunu engelleme sansım varmıdır sence?

 

[Korhan Ayhan]

Aynı dosyada işlem application düzeyinde yapıldığı için olacağını zannetmiyorum.

 

[enginbaykan]

Aynı dosyada işlem application düzeyinde yapıldığı için olacağını zannetmiyorum.

Denedim yapamadım zaten. Teşekkürler