Excel 2010'da Tam Sayfa Excel Geçişi ?

[Erhan Yavuz]

Excel 2003 de, bilindiği üzere aşağıdaki kodlar ile Excel sayfasındaki Menü ve kontrol çubukları kaldırılıp, Excel tam sayfa yapılabiliyor ve eski haline döndürülebiliyor..

Kullanımı :

Excel xlOn-----> ile Excel tam sayfa yapılıyor,
Excel xlOff -----> ile de eski -ilk- duruma dönülüyor..

Prosedür ise tek:

Kod: [Seç]

Sub Excel(durum)
Static EskiDurum
Dim cb As CommandBar
If durum = xlOn Then
    EskiDurum = Application.WindowState
    Application.ActiveWindow.WindowState = xlMaximized
    Application.Caption = "Erhan Yavuz tarafından yazılmıştır."
    ActiveWindow.Caption = "  excelce.net - © 2011"
    For Each cb In Application.CommandBars
        cb.Enabled = False
    Next cb
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
Else
    For Each cb In Application.CommandBars
        cb.Enabled = True
    Next cb
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.Caption = Empty
    Application.Caption = Empty
    Application.WindowState = EskiDurum
End If
End Sub
İsteyen rahatlıkla programlarında kullanabilir..

Ancak Excel 2010 da bu işlem tam olarak gerçekleşmiyor..

Soru: Değerli dostlar bu işlemi Excel 2010 sayfası için nasıl yapacağız?...

[Bülent Öztürk]

Soru: Değerli dostlar bu işlemi Excel 2010 sayfası için nasıl yapacağız?...

Erhan abi, ben 2010'a henüz geçmedim.
2007 var evde, onda deneyebilirim ama daha kesin sonuç için, aramızda 2010 kullanan biri varsa inşallah yardımcı olur.

[Erhan Yavuz]

Erhan abi, ben 2010'a henüz geçmedim.
2007 var evde, onda deneyebilirim ama daha kesin sonuç için, aramızda 2010 kullanan biri varsa inşallah yardımcı olur.

Bülent kardeşim, ben de hala 2003 kullanıyorum ama oğlum bana bir laptop aldı üzerinde 2010 var diye değiştirmedim.

Aslında vardır bir yolu ama bulamadım işte,

Application.ActiveWindow.WindowState = xlMaximized

ve

    With ActiveWindow
        .DisplayHeadings = False       
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With

kodlarının bir uygulaması mutlaka vardır da, bilmek lazım.. Daha çook yeniyiz.

[Bülent Öztürk]

2007 var bende ama sanki bu versiyonda Microsoft menülerine pek fazla müdahale edilmesini istememiş gibi geldi bana.
Ekranın 5'te 1'ini kaplayan bu menüler bana hiç kullanışlı gelmedi.
Yine de işyerinde 2003 kullandığım için 2007 menülerini pek de kurcalamadım.
Senin için ilk fırsatta bakacağım. 

[Erhan Yavuz]

Sağol kardeşim eminim bundan. İyi çalışmalar..

[Bülent Öztürk]

Erhan abi, bu işine yaramıyor mu?

Kod: [Seç]

Application.DisplayFullScreen = True

[Erhan Yavuz]

Erhan abi, bu işine yaramıyor mu?

Kod: [Seç]

Application.DisplayFullScreen = True

Yaa varya sen bir harikasın... Sağol kardeşim...

[Erhan Yavuz]

Çok sevindim ama menü çubuğuna tıklayınca sihir bozuluyor ve eski haline dönüyor.. Tam olmadı yani.

[Bülent Öztürk]

Çok sevindim ama menü çubuğuna tıklayınca sihir bozuluyor ve eski haline dönüyor.. Tam olmadı yani.

Yaktıracaksın bana o menü çubuğunu abi.