WorkBook_SheetSelectionChange durdur/başlat

[dnmtnk]

Arkadaşlar ThisWorkBook kısmında çalışan şöyle bir kod var

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub

Ben buna ctrl+d engeli de ekleyip bi tuş kombinasyonuna bağlı çalıştırıp durdurmak istiyorum. Yani örneğin, ctrl+3 tuşuna bastığımda yukarıdaki kod devre dışı olacak ctrl+4 tuşuna bastığımda tekrar çalışacak. Tek tuş kombinasyonunda çalışıp duran bir kodda olabilir.

Amacım dosya üzerinde kopyala/yapıştır, sürükle/bırak, ctrl+d gibi işlemleri devre dışı bıraktırmak fakat ben üzerinde çalışma yapacağım zaman belirlediğim tuş kombinasyonuna basıp dosya üzerinde istediğim kopyala/yapıştır işlemlerini yapabileyim.

Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Boş bir modüle aşağıdaki kodu ekleyin.

Public Kontrol As Boolean

Sub Kopyala_Aktif()
    Kontrol = True
    Application.CellDragAndDrop = True
End Sub

Sub Kopyala_Pasif()
    Kontrol = False
End Sub

ThisWorkbook bölümündeki kodunuzu da aşağıdaki gibi revize edin.

Private Sub Workbook_Activate()
    Application.OnKey "{F11}", "Kopyala_Pasif"
    Application.OnKey "{F12}", "Kopyala_Aktif"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Kontrol = True Then Exit Sub
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub

F11 ve F12 tuşlarına basarak işlemi aktif ya da pasif hale getirebilirsiniz.