Sağ Klikte Kes

[bendiler]

Sağ Klikte Kes Komutunu İptal Etmenin Bir Yolu Var mıdır.
Teşekkürler...

 

[Leoncio]

Merhaba;
Aşağıdaki kodları kullanabilirsiniz.
Sub menükomutlarıiptal()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False 'True menüleri aktif yapar
Next Ctrl
End Sub

 

[bendiler]

Hocam; Tüm Çalışma Kitaplarına Uygulamam Lazım Bir Eklenti Olarak Çalışabilir mi Sadece Kes Komutu İçin Teşekkürler..

 

[Leoncio]

Hangi çalışma kitabında kullanacaksanız makro adını "auto_open" olarak değiştirin bence...

 

[bendiler]

Teşekkür ederim..

 

[uzmanamele]

Hangi çalışma kitabında kullanacaksanız makro adını "auto_open" olarak değiştirin bence...

merhaba

syn Leoncio, bu tür kodları önerirken dosya kapatıldığında normal menüye dönecek kodları da vermelisiniz.
kazara bir arkadaşımız bu kodu çalıştıracak, sonra tüm excel dosyalarında kes komutu çalışmayacak!

 

[Leoncio]

merhaba

syn Leoncio, bu tür kodları önerirken dosya kapatıldığında normal menüye dönecek kodları da vermelisiniz.
kazara bir arkadaşımız bu kodu çalıştıracak, sonra tüm excel dosyalarında kes komutu çalışmayacak!

Uyarınız için teşekkür ederim.
Ctrl.Enabled = False 'True menüleri aktif yapar

satırında belirttim zaten. Ayrıca Exceli kapa aç yaptığımızda menü normale dönüyor.

 

[uzmanamele]

Uyarınız için teşekkür ederim.
Ctrl.Enabled = False 'True menüleri aktif yapar

satırında belirttim zaten. Ayrıca Exceli kapa aç yaptığımızda menü normale dönüyor.

merhaba
syn Leoncio, exceli kapatıp açtığınızda normala dönmez.
bu kodu bir kez çalıştıran arkadaş normale dönebilmesi için Ctrl.Enabled = True yaparak kodu çalıştırması gerekir.

siz bu uyarıyı yapmışsınız ama bilmeyen bir arkadaş için sorun çıkabilir.
sitede, falanca komut çalışmıyor diye çok soru var, bu sebeptendir.
hataya sebep vermemek için çıkışda düzelte kodunu vermek lazım.

 

[Leoncio]

merhaba
syn Leoncio, exceli kapatıp açtığınızda normala dönmez.
bu kodu bir kez çalıştıran arkadaş normale dönebilmesi için Ctrl.Enabled = True yaparak kodu çalıştırması gerekir.

siz bu uyarıyı yapmışsınız ama bilmeyen bir arkadaş için sorun çıkabilir.
sitede, falanca komut çalışmıyor diye çok soru var, bu sebeptendir.
hataya sebep vermemek için çıkışda düzelte kodunu vermek lazım.

Merhaba;
Konuyu çok uzatmak istemiyorum Açıklık getirmek amacıyla ekteki dosyadaki makroyu çalıştırdığımızda kes "pasif" oluyor. Test.xls çalışma kitabını kapatıp açtığımızda "kes" pasif. Ama exceli kapa aç yaptığımızda "kes" aktif. Bunu demek istemiştim.

 

[Ömer]

Merhaba Sayın Leoncio,

Süleyman bey'in söylemek istediği dosyanın çıkış yordamına kodu pasif eden makroyu yazmaktı.

ThisWorbook bölümüne yazarsanız daha doğru olur diye düşünüyorum.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = True
Next Ctrl
End Sub

İyi çalışmalar..

.