Soru Sayfa Korumasını Aktif ve Deaktif Etme

[ToHaNS]

Arkadaşlar merhaba hayırlı cumalar diliyorum öncelikle, Elimden geldiğince kendim ve çevremin ihtiyaçlarını naçizane karşılayabileceğini düşündüğüm bir kaza namazı ve oruç takip çizelgesi hazırlamaya çalışıyorum. Takıldığım küçük bir nokta var makroyu yazıyorum kodlar çalışıyor ama bug tarzı bir şey oluştu

Kod kilitli sayfanın önce kilidini açıyor, veriler eksiksiz girilince hesaplamaları yapıyor, hücrelerden zorunlu alanlar boş bırakıldığında uyarı ekranı gösteriyor.

Yalnız zorunlu hücrelerden birisi boş bırakılınca uyarı mesajı çıktıktan sonra tekrar kilitli hücreleri kilitlesin ve sadece izin verilen hücrelere giriş yapabilsin istiyorum.
kodu inceleme şansınız var mı rica etsem.

Sub Hesapla()

    ActiveSheet.Unprotect Password:=""
    Sheets("Hesaplayıcı").Select
    Range("I4:I8").Select
    Selection.ClearContents
    Range("B4").Select
    If [B4] = "" Then
    MsgBox ("Lütfen 'Ad Soyad' giriniz"), vbInformation, " Ad Soyad Giriniz"
    [B4].Select
    Else
    If [B5] = "" Then
    MsgBox ("Lütfen 'Cinsiyet' giriniz"), vbInformation, " Cinsiyet Giriniz"
    [B5].Select
    Else
    If [B6] = "" Then
    MsgBox ("Lütfen 'Doğum Tarihi' giriniz"), vbInformation, " Doğum Tarihi"
    [B6].Select
    Else
    If [B7] = "" Then
    MsgBox ("Lütfen 'Buluğ Yaşı' seçiniz"), vbInformation, " Ergenlik Başlangıcı"
    [B7].Select
    Else
    If [B8] = "" Then
    MsgBox ("Lütfen 'Namaz Başlangıç Tarihi' giriniz"), vbInformation, " Edâ etme tarhiniz"
    [B8].Select
    Else
    MsgBox ("Hesaplama Başarılı. Sonuçları Sağdaki Bölmede Görebilirsiniz..."), vbInformation, " Başarılı"
    Range("I4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(R6C2="""",R7C2="""",R8C2=""""),"""",IFERROR(R6C2+R7C2*365.25,""""))"
    Range("I5").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(DAYS(R8C2,R4C9),"""")"
    Range("I6").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(R[-1]C*5,"""")"
    Range("I7").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(R[-2]C*20,"""")"
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "=IF(R9C2="""","""",R9C2)"
    ActiveSheet.Protect Password:=""
End If
End If
End If
End If
End If
End Sub

 

[ToHaNS]

Güncel...

 

[ToHaNS]

Hatamı gördüm. Sorun çözüldü arkadaşlar