gizleme

[önder34]

excelde yaptığım programda araç çubuğunu gizlemek ve her açılışta ana sayfanın açılmasını nasıl yaptırabilirim başka excel dosyası açtığımda araç çubuklarının görünecek (engel oluşturmasın) Dosya düzen vb ve resimli menüler görünmeyecek

 

[Levent Menteşoğlu]

Aşağıdaki kodları dosyanızın Thisworkbook sayfasına kopyalayın.

Private Sub workbook_open()
Sheets("anasayfa").Select
End Sub
 
Private Sub Workbook_Activate()
Application.ScreenUpdating = False
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = False
Next
End Sub
 
Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = True
Next
End Sub

 

[önder34]

vb çalışmıyor

excelde vb düzenleyiciisni açtığımda hiçbirşey gelmiyor ekrana
neden olabilir

 

[Levent Menteşoğlu]

VB editörü açıkken F4 tuşuna sonrada Ctrl+R tuşlarına basın.

 

[önder34]

hata mesajı

sayın leventtum
Private Sub Workbook_Deactivate() bölümü sarı renge dönüşüyor

compile error ve syntax error hata mesajını veriyor ve excel dosyamı kapatamıyorum

ayrıca iki yeni fonksiyon başlıklı dosyamada bakabilirseniz sevinirm

 

[önder34]

özür

sayın leventm isminizi yanlış yazmışım düzeltir özür dilerim

 

[hiorhan]

sayın leventm hocam,
yukarıdaki kodunuzu bir çalışmamda denedim.teşekkürler.
sayfa numaralarını ve kaydırma çubuklarını gizleyen kod da vardır. ben çok acemiyim. yardımcı olurmusunuz. şimdiden teşekkür ederim.