Çözüldü Makro Kodunu Aktif Etmek

[cavanoos]

Merhaba;

Çalışma sayfasının kod kısmında, yazılı kodum var.
Kodu pasif etmek istediğim zaman başına tırnak işareti koyuyorum, çalışacağım zamanda tırnak işaretini kaldırıyorum.
Bu işlem kod ile yapılabilir mi ?

 

[Muzaffer Ali]

Merhaba.

Yeni bir kod daha yazılıp kısayol tuşu atayabilir kısayol tuşuna bastığınızda diğer kodun çalışmasını yada çalışmamasını sağlayabilirsiniz.

Örnek: Aşağıdaki kodu yeni bir modül açıp kopyalayın.

Dim Etkin_Pasif As Boolean

Sub Kod_Etkin_Pasif()
    Etkin_Pasif = Not Etkin_Pasif
End Sub


Sub Test()
    If Etkin_Pasif Then
        MsgBox "Kod etkin."
    Else
        MsgBox "Kod pasif."
    End If
End Sub

Excel dosyası Geliştirici sekmesi / Makrolar tıklatın.
Açılan formdaki listeden "Kod_Etkin_Pasif" seçip "Seçenekler" tıklatın.
Açılan penceredeki Kısayol Tuşu kısmına bir harf yazıpTamamı ve İptali tıklatın.

Şimdi excel dosyanız aktifken kısayol tuşlarına CTRL ile birlikte basın.

Her kısayol tuşuna bastığınızda Test kodundaki mesaj değişecektir.

 

[cavanoos]

Olmadı, örnek dosya hazırladım. Bakabilir misiniz ?

 

[Muzaffer Ali]

Modıl1'e aşağıdaki kodu kopyalayıp yukarıda tarif ettiğim şekilde kısayol tuşu atayın.

Public Etkin_Pasif As Boolean

Sub Kod_Etkin_Pasif()
    Etkin_Pasif = Not Etkin_Pasif
End Sub

Aşağıdaki kodu da Sayfa1'in kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2:C" & Range("C1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) Is Nothing And Etkin_Pasif Then
        Range("D" & Target.Row) = WorksheetFunction.Max(Range("D2:D" & Range("C1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) + 1
    End If
End Sub

 

[cavanoos]

Olmadı Muzaffer Bey

 

[Korhan Ayhan]

Alternatif..

Ekteki dosyada makroyu durdurmak istediğinizde F11 tuşuna basabilirsiniz. Tekrar aktif etmek istediğinizde F12 tuşuna basabilirsiniz.

 

[Muzaffer Ali]

Olmadı Muzaffer Bey

4. mesajda yazdığım kodların başına tırnak işareti eklemişsiniz onun için çalışmıyor.
4. mesajdaki kodları olduğu gibi kullanın hiçbir değişiklik yapmayın.

 

[cavanoos]

Teşekkür ederim, sorunum çözülmüştür.