Kopya-yapıştırın pasif olması olayının devamı

[dragon44760]

Kopya yapıştırı aşağıdaki kodla açılışta pasif hale getirmekteyim.

Sub auto_open()
    EnableControl 21, False 'Kes
    EnableControl 19, False ' Kopyala
    EnableControl 22, False ' Yapıştır
    EnableControl 755, False ' özelyapıştır
 
    Application.OnKey "^c", "yasakla"
    Application.OnKey "^v", "yasakla"
    Application.OnKey "^r", "yasakla"
    Application.OnKey "^d", "yasakla"
    Application.OnKey "^x", "yasakla"

    Application.CellDragAndDrop = False 'hücreyi çoğaltma ve taşıma
    CommandBars("ToolBar List").Enabled = False 'düzen menüsündeki ilgili menüleri gizle
End Sub

Kopyala yapıştırı pasif hale getirdiğim excel sayfasını kapatırkan yeniden aktif hale getirmek için aşağıdaki kodu kullanmaktayım.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    EnableControl 21, True 'Kes
    EnableControl 19, True ' Kopyala
    EnableControl 22, True ' Yapıştır
    EnableControl 755, True ' özelyapıştır
  
    Application.OnKey "^c"
    Application.OnKey "^v"
    Application.OnKey "^r"
    Application.OnKey "^d"
    Application.OnKey "^x"
   
    Application.CellDragAndDrop = True
End Sub

Kopyala yapıştırın pasif olduğu 2 veya daha fazla excel dosyası açıkken bu excel sayfalarından birini kapattığımda kopyala yapıştır aktif hale gelmektedir. Kopyalama yapıştırın pasif olduğu excel sayfası kapanırken eğer kopyala yapıştır açık olan başka bir excel sayfasında da pasifse kopyala yapıştırı aktif hale getirmemesini nasıl sağlarım?

 

[dragon44760]

Farklı bir çözüm yolu olan yok mu?

 

[uzmanamele]

Merhaba

Bu şekilde mi istiyorsunuz?

Private Sub Workbook_Activate()
'call yasakla
End Sub
Private Sub Workbook_Deactivate()
'call yasakları_kaldır
End Sub
Private Sub Workbook_Open()
'Call yasakla
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'call yasakları_kaldır
End Sub

 

[dragon44760]

Sayın uzmanamele elinize sağlık. Tam istediğim gibi olmuş. Ben bu çözümü neden düşnemediysem