sayfa açıldığında araç çubuklarını gizlesin

[mehteroglu1]

sayfa açıldığında araç çubuklarını gizlesin

selamlar ben kitabın açıldığında menu,formul,biçimlendirme,standar,sayfa isimleri,klavuz çizgileri ,kaydırma çubuğu ve buna benzer herşeyin kapanmasını ve başkalarınında açamayacağı bir makro istiyorum saygılarımla

 

[mehmett]

Aşağıdaki ilk makro ile araç çubuklarını, yatay ve düşey kaydırma çubuklarını, satır ve sütun başlıkları gizleyebilirsiniz. Ama bu başkaları tekrar açamaz anlamına gelmez.

İkinci makro ile gizlenen şeyleri geri açabilirsiniz.

Sub tamekran()
Application.DisplayFullScreen = True
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub


Sub normalekran()
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

 

[mehteroglu1]

çook güzel

hocam çoook teşekkür ederim sağolun

 

[ocamsul]

Hocam peki Dosya, Düzen, Görünüm vb. satırı ile formül çubuğunuda silmek ve tekrar görüntülemek için yapabileceğimiz bir şey varmı?

 

[Qene]

Sub auto_open()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub

Kodunu kullanın. Çıkarken de;

Sub auto_Close()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.ScreenUpdating = True
End Sub

 

[Mahmut Kök]

Sayın qene ... !

Bayrakları bayrak yapan üstündeki kandır
...


dizelerinin sahibi Mithat Cemal KUNTAY'dır. Ayrıca bayrak, dil ile kutsallığını koruyacaktır. Lütfen Türkçemize sahip çıkalım. "q" vs. kullanmayalım.

 

[ocamsul]

Sn: qene

Verdiğiniz kodlar için teşekkür ederim. Ancak Menüler kalktı ortadan ama formül çubuğu aynen yerinde kaldı bu durumu nasıl ortadan kaldırabiliriz?

 

[mehmett]

Sn qene'nin kodlarına formül çubuğunu gizleyen kod satırını ekledim.

Sub auto_open()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
End Sub
 
Sub auto_Close()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.DisplayStatusBar = True
Application.ScreenUpdating = True
End Sub

Aşağıdaki kodlar da satır-sütun başlıkları, yatay-düşey kaydırma çubukları ve sayfa adlarını da gizler.

Sub auto_open()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.ScreenUpdating = True
End Sub
 
Sub auto_Close()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
End Sub

 

[Qene]

Bayrakları bayrak yapan üstündeki kandır
...


dizelerinin sahibi Mithat Cemal KUNTAY'dır. Ayrıca bayrak, dil ile kutsallığını koruyacaktır. Lütfen Türkçemize sahip çıkalım. "q" vs. kullanmayalım.

Uyarınız için teşekkür ederim. Ben Mehmet Akif olduğunu anımsıyordum. Değiştiriyorum imzayı.. Nick konusunda da fikrimiz aynı.. uzun zamandır bu nicki kullandığım için bu şekilde gidiyor. Selamlar..