Sayfa Korumasını Kaldırmak (Unprotect)

Unprotect Komutu

Eğer sayfa kilitliyse makronuz da oraya veri yazamaz. Kod başlamadan şifre çözülmeli, bitince kilitlenmelidir.

VBA Kodu:

Sub SifreCoz()
    ActiveSheet.Unprotect Password:="1234"
    Range("A1").Value = "Veri Eklendi"
    ActiveSheet.Protect Password:="1234"
End Sub

Ne Göreceksiniz? Kod şifreyi görünmez bir hızla çözecek, A1 hücresine veriyi yazacak ve tekrar sayfayı kilitleyecektir.