Excel açılışta tam ekran olsun

[zeugma35]

excelin açılışta ful ekran gelmesi için nasıl bi kod kullanabiliriz

 

[dEdE]

Merhaba,
Kod sayfasında ThisWorkbook'a aşağıdaki kodu yazıp dener misiniz?

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

 

[reosman]

Tam ekran açılıyor fakat ESC tuşuna basınca tam ekrandan çıkıyor. Bununla ilgili yazmamız gereken kod nedir. Şimdiden teşekkürler.

 

[mustafa1205]

Örneği inceler misiniz ? Farklı iki versiyonu var. İşinizi görecektir.

 

[reosman]

örnek2'yi açılışa nasıl monte edebilirim ?

 

[mustafa1205]

Kod sayfasında ThisWorkbook'a aşağıdaki kodu yazıp deneyiniz
Private Sub Workbook_Open()

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

End Sub

 

[reosman]

maalesef ESC tuşuna basınca yine excel görünüyor. Tam ekrandan çıkıyor.

 

[reosman]

Açılışa tam ekran kodu koymuştum. Onu kaldırınca çalıştı teşekkür ederim. Saygılarımla.

 

[mustafa1205]

Kolay gelsin iyi çalışmalar.

 

[Muhasebe1965]

Dosyanın Kısa Yolu Oluşturduğunuz KısaYolu Dosyasına Yapabilirsiniz ( Excel Kısayol simgesine sağ tıklayıp özelliklerden Çalıştır kısmındaki seçeneği Tam Ekran )