Tüm Başlıkları Kaldırma

[supervisor]

Excel de Standart araç çubuklarını kaldırmak yani hani her sayfada satndart gelen dosya, düzen, görünüm gibi Standart, Biçimlendirme, Çizim gibi araç çubuklarını kaldırmamız veya bunun yerinde sadece Çıkış olan bir araç çubuğu koymamız mümkün mü. Bunun nedeni kullanıcıyı iyice kısıtlamak tır. Eğer yardımcı olursanız çeok sevinirim.

 

[byexcel]

1. sorunuzun cevabı

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
'********************
Sub auto_close()
  Application.ScreenUpdating = False
    For i = 1 To Application.CommandBars.Count
      Application.CommandBars(i).Enabled = 1
    Next i
  Application.ScreenUpdating = True
End Sub

 

[Kemal Demir]

Sn.Supervisor

Ek'teki Örneğe bakınız.

Sayfabarlarını aç ve Sayfabarları kaldır var bunu deneyınız.
İstersenız Autpen Özelliği ile sadece Sayfa barları gizlenin kodlarını yazsanız yeterlidir.

Umarım İş Görür.

 

[Kemal Demir]

Sn.byexcel, 'in

Cevabının yanında hazırladıgım örnek fazla işinize yaramaz.

Ama Yinede Kullanılabilir düşüncesi ile.. :hey:

 

[supervisor]

Teşekkür ederim üstteki kod gayet işe yaradı fakat bir problem var . dosya düzen menüsüün açıldığı yerde boş bir çubuk açılıyor. eğer bu çubuğa çift tıklarsan excel kilitleniyor ve geçersiz bir işlem yürüttü oluyor. Office Xp de