Tam Ekran sorunu

Katılım
13 Kasım 2022
Mesajlar
10
Excel Vers. ve Dili
excel
İ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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu kodları kullanabilirsiniz.

C++:
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
 
Katılım
13 Kasım 2022
Mesajlar
10
Excel Vers. ve Dili
excel
Bu kodları kullanabilirsiniz.

C++:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aynı dosyada işlem application düzeyinde yapıldığı için olacağını zannetmiyorum.
 
Üst