Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Erhan Yavuz - 04 Mayıs 2011, 09:24:50
-
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:
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?...
-
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 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.
-
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. ;)
-
Sağol kardeşim eminim bundan. İyi çalışmalar.. :yahooo
-
Erhan abi, bu işine yaramıyor mu?
Application.DisplayFullScreen = True
-
Erhan abi, bu işine yaramıyor mu?
Application.DisplayFullScreen = True
Yaa varya sen bir harikasın... Sağol kardeşim... :yahooo
-
Çok sevindim ama menü çubuğuna tıklayınca sihir bozuluyor ve eski haline dönüyor.. Tam olmadı yani. :-[
-
Ç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. :kiki