Tam Ekran Nasil Yaparim

[yesilcan]

ArkadaŞlar Forumda Tam Ekran Örneklerİne Baktim Fakat İstedİĞİm Gİbİ BİrŞey Bulamadim.bİr Excel Dosyam Var.dosyami AÇtiĞimda Tam Ekran Olmasini İstİyorum.yanİaŞaĞidakİ Sayfalar Üstekİ MenÜler Kapatma Boyut DeĞİŞtİrme GÖzÜkmesİn ÇÜnkİ Ben Kapatma Ve Sayfalari Butonlarla SaĞladim.konu İle İlgİlİ Bana Yol GÖsterecek Bİrİ Olursa Sevİnİrİm.



Hocalarim Ve ArkaŞlarima Saygilar Sunar,İyİ ÇaliŞmalar Dİlerİm.

 

[N.Ziya Hiçdurmaz]

yanıt

ThisWorkbooka yazınız.

Private Sub Workbook_Open()
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub


Private Sub Workbook_Beforeclose(cancel As Boolean)
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

 

[yesilcan]

sayın vba

ilgin için öncelikle tşk.ederim.fakat bu yöntemi kullandığımda istediğimde olduğu gibi sayfa adları kaybolur fakat kapatmak için kullandığım x kullanılır durumda.bunuda ortadan kaldırabilirmiyiz.

teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu kodu aynı sayfaya ekleyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[yesilcan]

vba

uyguladım oldu fakat sadece o dosyada değil.tüm excel dosyalarımda tam ekran oluyor.onu nasıl çözeriz