Makronun hata vermesi hk.

[recepkull]

Arkadaşlar aşağıdaki gibi bir kodum var IF komutunda yazan kodlar hata verirse ELSE komutunda yazan kodları çalıştırsın, ELSE komutunda yazan kodlar hata verirse IF komutunda yazan kodları çalıştırsın istiyorum. Bunu nasıl yapabilirim?

Option Explicit

Dim Kontrol As Boolean

Sub kilitle()
    

    Dim Buton
    
    If Kontrol = True Then
        Range("BE3").Value = "X"
        ActiveSheet.Protect "12345"
        Kontrol = False
        
    Else
        ActiveSheet.Unprotect "12345"
        Kontrol = True
        Range("BE3").Value = Sheets("Veri").Range("D107").Value
        
    End If
    

End Sub

 

[genesis_vision]

Bu şekilde dener misiniz?

Option Explicit
Sub kilitle()
Dim Kontrol As Boolean
Dim Buton

    If Kontrol = True Then
        Range("BE3").Value = "X"
        ActiveSheet.Protect "12345"
        Kontrol = False
        
    ElseIf Kontrol = False Then
        ActiveSheet.Unprotect "12345"
        Kontrol = True
        Range("BE3").Value = Sheets("Veri").Range("D107").Value
        
    End If
End Sub

 

[recepkull]

Hata verdi maalesef.

 

[genesis_vision]

Hata verdi maalesef.

Dosyayı yükleyerek yardım isterseniz sorununuz daha hızlı çözülür.

 

[EmrExcel16]

Kendi kodlarınızdaki sorun nedir , onu anlamadım ?

 

[recepkull]

Örnek dosya paylaştım. Dosyanın içinde makronun hangi durumlarda hata verdiğini de detaylı bir şekilde yazdım. Bakarsanız çok sevinirim.

 

[EmrExcel16]

Merhaba , Önceki kodlarınızı silerek aşağıdaki kodları deneyiniz.

Sub Emr_Sayfa_Kilit_Ac_Kapa()

If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect "12345"
    Range("A1").Value = "Sayfa Açık"
    MsgBox "Sayfa Kilidi Acildi"
Else
    Range("A1").Value = "Sayfa Kilitli"
    ActiveSheet.Protect "12345"
    MsgBox "Sayfa Kilitlendi"
End If

End Sub

 

[recepkull]

Merhaba , Önceki kodlarınızı silerek aşağıdaki kodları deneyiniz.

Sub Emr_Sayfa_Kilit_Ac_Kapa()

If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect "12345"
    Range("A1").Value = "Sayfa Açık"
    MsgBox "Sayfa Kilidi Acildi"
Else
    Range("A1").Value = "Sayfa Kilitli"
    ActiveSheet.Protect "12345"
    MsgBox "Sayfa Kilitlendi"
End If

End Sub

Teşekkür ederim usta tam istediğim gibi çalışıyor.

 

[EmrExcel16]

Teşekkür ederim usta tam istediğim gibi çalışıyor.

Rica ederim , kolay gelsin.