Sağ klik kes kopyala çalıştırma

[ASLAN7410]

Merhaba, herkese günaydın.

Excel sayfalarındaki hücre içerisindeki bilgiyi hücre içerisine girerek kesmek veya kopyalamak istediğimde Kes ve Kopyala kelimesi salt okunur olduğu için kesme ve kopyalama yapamıyorum.

Normalde Ctrl+C ve Ctrl+X çalışıyor, ama mause sağ klikte aktif olmuyor.

Aşağıdaki kodda işe yaramıyor, yardımcı olur musunuz?

Sub Reset()
Application.CommandBars("Cell").Reset
Application.CommandBars("Cell").Enabled = True
End Sub

 

[YUSUF44]

Buna neden ihtiyaç duyuyorsunuz? Farklı bir çözüm uygulanamaz mı? Örneğin "hücrenin 5-10 karakterler arasını şu hücreye aktar/kopyala" gibi.

 

[ASLAN7410]

Sayın Yusuf Bey ilginiz için çok teşekkür ediyorum.

İki farklı bilgisayar kullanıyorum, bilgisayarın birisinde sağ kluk bu şekilde görünüyor, dosyaları ortak kullandığımız sayfalar olduğu için herkes aynı bilgileri bilmediği için, resetlemek istemiştim.

 

[ASLAN7410]

Aşağıdaki kodu buldum, ama buda işe yaramadı.

Application.CommandBars("Cell").reset
Application.CommandBars("cell").Enabled = True
Application.CommandBars("ply").Enabled = True
Application.CommandBars("row").Enabled = True
Application.CommandBars("column").Enabled = True

 

[halit3]

Dosyanızda buna benzer kodlar mutlaka vardır bu kodlarla fazla oynamayın zira dosyanız birden bire bozulu verir
bu kodu bir dene

Sub kapat()

ReDim deg(3)

deg(1) = "Kopyala"
deg(2) = "Kes"
deg(3) = "Yapıştır"

Dim cbr As CommandBar
Dim ctrl As CommandBarControl
For Each cbr In Application.CommandBars

For k = 1 To 3
If deg(k) = Replace(cbr.Name, "&", "") Then cbr.Enabled = False
Next k
For Each ctrl In cbr.Controls

For k = 1 To 3
If deg(k) = Replace(ctrl.Caption, "&", "") Then ctrl.Enabled = False
Next k

Next
Next

End Sub
Sub aç()

ReDim deg(3)

deg(1) = "Kopyala"
deg(2) = "Kes"
deg(3) = "Yapıştır"

Dim cbr As CommandBar
Dim ctrl As CommandBarControl
For Each cbr In Application.CommandBars

For k = 1 To 3
If deg(k) = Replace(cbr.Name, "&", "") Then cbr.Enabled = True
Next k
For Each ctrl In cbr.Controls

For k = 1 To 3
If deg(k) = Replace(ctrl.Caption, "&", "") Then ctrl.Enabled = True
Next k

Next
Next

End Sub

 

[halit3]

kodları güncelledim

 

[ASLAN7410]

Sayın Halit Bey, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı günler diliyorum.

 

[halit3]

Teşekkürler iyi çalışmalar