CommandButton ile Çalıştırmak

[ormann]

Merhabalar aşağıdaki kodu CommandButton1 ile nasıl yapabiliriz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("araç sorgulama").Unprotect 1234
If Not Intersect(Target, Range("e2")) Is Nothing Then
Call klasördeki_dosyalar
'Target.Value = Time
End If
Sheets("araç sorgulama").Protect 1234
End Sub

 

[Korhan Ayhan]

Merhaba,

Sayfa olaylarına ait kodu silerseniz butona kodu taşıyabilirsiniz. Sorunuzda detay belirtmediğiniz için aşağıdaki şekilde yazdım.

Private Sub CommandButton1_Click()
    Sheets("araç sorgulama").Unprotect 1234
    Call klasördeki_dosyalar
    Sheets("araç sorgulama").Protect 1234
End Sub