Fare İle Kes YapiŞtir İŞlemİ İle İlgİlİ Problem

[mehmethoca]

Arkadaşlar ben mokra çalışayım dedim hazır makroları denerken birtanesi cut copy özelliğini devre dışı bırakıyordu ben sadece bu çalıma sayfasına uygular zannediyorken geri dönemedim bilen varsa kes yapıştır özelliğini geri istiyorum klavyeden yapmak zor oluyor:roll:

 

[bedersu]

kod büyük bir ihtimalle auto_open makrosuyla çalıştırılmıştır.Bu kodu auto_close ile kapatın.İsterseniz kodları gönderin,bir bakalım.

 

[xxcell]

YASAL UYARI : Command Barların kurcalanması Başınızı ağrıtabilir :mrgreen:

Aşağıdaki kodu inceleyiniz.

Sub x()

' aşağıdaki kod standard araç çubuğundaki kontrollerin açıklamalarını verir

For n = 1 To CommandBars("standard").Controls.Count
Cells(n, 1) = n
Cells(n, 2) = CommandBars("standard").Controls.Caption
Next

' aşağıdaki kod standart araç çubuğundaki 8 - 9 ncu kontrolleri (cut ve copy) kullanima kapatir
' türkçe / ingilizce ofiste fark edeceğinden mecburi olarak numara yazdim

CommandBars("standard").Controls(8).Enabled = False
CommandBars("standard").Controls(9).Enabled = False


' aşağıdaki kod standart araç çubuğundaki 8 - 9 ncu kontrolleri (cut ve copy) kullanima açar
' türkçe / ingilizce ofiste fark edeceğinden mecburi olarak numara yazdim

CommandBars("standard").Controls(8).Enabled = True
CommandBars("standard").Controls(9).Enabled = True


' aşağıdaki kod standart araç çubuğundaki 8 - 9 ncu kontrolleri (cut ve copy) araç çubuğunda görünmez yapar
' türkçe / ingilizce ofiste fark edeceğinden mecburi olarak numara yazdim

CommandBars("standard").Controls(8).Visible = False
CommandBars("standard").Controls(9).Visible = False

End Sub



Not. Yukarıdaki kodu çalıştırırsanız cut - copy kaybolacaktır. Tekrar geri getirmek için
CommandBars("standard").Controls(8).Visible = True
CommandBars("standard").Controls(9).Visible = True
yapınız.

 

[bedersu]

Sayın xxcell,
mehmethoca'nın bahsettiği cut ve copy olayı,mouse'un sağ tuşunu tıklamasıyla çıkan sanırım.Araç çubuğundan bahsetmiyor ama yine de vermiş olduğunuz örnek ve açıklamalara teşekkür ederim.