Araç Çubuklarını gostermek/gostermemek

[Eser Gökay]

Arkadaslar herkese merhaba... Aşağıdaki kodlarını calisma kitabının Thisworkbook'a yazıp araç çubuklarını yok ediyorum...

1- Araç çubukları olmayınca sağ click de çalışmıyor. Özel yapıştır yapılması gereken durumlar için bu kodları silmek sayfa korumasını kaldırmak gerekiyor. Bunun bir çözümü olabilir mi (sürekli çözüm lazım çünkü dosyalarımı hep menusuz kullanmayı tasarlıyorum.)

2- Dosya isimleri dışında her şeyleri aynı olan 12 çalışma kitabında bazı bağlantılar kurmak için thisworkbook'tan bu kodları silip sayfa korumalarımı kaldırıp gerekli bağlantılarımı koyup dosyalarımı eski hallerine getirip kaydedip çıkıyorum. Buna da geçici bir çözüm bulunabilir mi? dosyalardaki bağlantıları guncelledikten sonra buna ihtiyacım kalmayacak. umarım anlatabilmisimdir....


Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
End Sub


Private Sub Workbook_Beforeclose(cancel As Boolean)
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
End Sub

 

[Eser Gökay]

arkadaslar sorumun ikinci kısmından vazgectim. 1. kısımla ilgili yardımcı olabilecek var mı?

 

[Ferhat Pazarçevirdi]

arkadaslar sorumun ikinci kısmından vazgectim. 1. kısımla ilgili yardımcı olabilecek var mı?

Bunu deneyiniz.

Private Sub Workbook_Open()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
Application.CommandBars("cell").Enabled = True
End Sub

 

[Seyit Tiken]

Aşağıdaki kodları kendinize uyarlayınız.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)'Sağ klikte, Kopyalama Türleri gösteren diyalog penceresi çıkar
Application.Dialogs(xlDialogPasteSpecial).Show
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Sub Düğme3_Tıklat()'Seçili alanı kopyalar. Kodu düğmeye atın
Selection.Copy
End Sub

 

[Eser Gökay]

tesekkur ediyorum. iyi calismalar....