Sütun başlıklarında kopyala sorunu

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Excel sayfamın sütun başlıklarından fare ile seçip sağ klik yaptığımda kopyala pasif durumda, forumda bulduğum aşağıdaki kodları uyguluyorum ancak sağ klik kopyala aktif olmuyor.

Yardımcı olacak arkadaşlara teşekkür ediyorum.

Sub KopyalaDüzelt()
Dim cbar As CommandBar
For Each cbar In Application.CommandBars
    If cbar.Type = msoBarTypePopup Then
        cbar.Enabled = True
    End If
Next cbar
End Sub

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

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin.

 Application.CommandBars.FindControl(ID:=19).Enabled = True

veya tüm "Commandbarspopup" lar için

  For Each a In Application.CommandBars.FindControls
 a.Enabled = True
Next

 

[ASLAN7410]

Merhaba
Aşağıdaki gibi deneyin.

veya tüm "Commandbarspopup" lar için

For Each a In Application.CommandBars.FindControls
a.Enabled = True
Next

Sayın PLINT yukarıdaki kod ile çözüme ulaştım.

Çok teşekkür ediyorum, hayırlı çalışmalar dilerim.