Makro kodunda aldığım hata nedeni?

[assenucler]

Dostlar merhabalar;



8 sayfadan oluşan excel dosyam var. İlk sayfaya 2 komut düğmesi ("KORU" ve "KALDIR") ekledim.

Ekteki resimde de görüleceği gibi, her 2 komut düğmelerine tıkladığımda, ekteki resimde gözüken hata iletisini alıyorum.

Çözüme ilişkin düşüncenizi öğrenmek istiyorum.

Yardımınız için önceden teşekkürler.

 

[ÖmerBey]

Eklentinizdeki yazıları net okuyamıyorum.
Tahmini olarak orada sayfa koruma kodu olduğunu varsayarak sondaki "= True" kısmını kaldırarak denemenizi tavsiye ediyorum.

Sheets(a).Protect "123"

 

[assenucler]

Sayın mucit77,

8 sayfanın adı; sağ doğru "Veri Girişi / Gelir Raporu / Gider Raporu / Aylık Rapor / Barış Maaş / Sinan Maaş / Aslı Maaş / Yasemin Maaş" şeklindedir.

Her 2 komut düğmesi "Veri Girişi" sayfasındadır.

KORU düğmesine tıkladığımda:
"Run-time error '1004'

Yazdığınız parola doğru değil. CAPS LOCK tuşunun kapalı olduğundan ve büyük küçük harf kullanımının doğru olduğundan emin olun."

Sub sifrele ()
For a= 1 To Sheets.Count
Sheets (a).Protect "123" = True .... Bu satır sarıya dönüşüyor.
Next
End Sub

KALDIR düğmesine tıkladığımda, yukarıdaki 1004 hata iletisi çıkıyor ve kodda;
Sub sifrele ()
For a= 1 To Sheets.Count
Sheets (a).Unprotect "123" = True .... Bu satır sarıya dönüşüyor.
Next
End Sub

Sizin önerinizi uyguladım sonuç yine olumsuz çıktı.

 

[assenucler]

Acaba, her sayfanın şifresini 123 yazmadığım için hata iletisi alıyor olabilir miyim?

 

[vardar07]

Tüm sayfaların korumalarını elle kaldırdıktan sonra Deneyiniz.

Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123"
Next
End Sub

Sub sifreKaldir()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "123"
Next
End Sub

 

[assenucler]

Sayın vardar07,


İlginize teşekkürler.

Sevgi ve saygılar.

 

[vardar07]

Rica ederim. Kolay gelsin.

 

[assenucler]

Bir ricam olabilir mi?

Sayın vardar07,



Şifre Kaldır koduna bir ekleme yapılabilir mi? Şöyleki:

"ŞİFRE KALDIR" a tıklayınca, karşıma "şifreyi gir" penceresi açılsın ve ben 123 şifresini girince, şifre kalksın. Bu mümkün mü?

Katkınız için önceden teşekkürler.

Sevgi ve saygılar.

 

[antonio]

Şifreyi kendiniz belirlemek istiyorsanız, Sayın Vardar07'nin kodlarını aşağıdaki gibi revize edebilirsiniz:

Sub sifrele()
sifre = InputBox("Sayfayı korumak için bir şifre giriniz", "Koruma Şifresi", 123)
If sifre = "" Then Exit Sub
For a = 1 To Sheets.Count
Sheets(a).Protect sifre
Next
End Sub

Sub sifreKaldir()
sifre = InputBox("Sayfa korumasını kaldırmak için şifre giriniz", "Korumayı Kaldırma Şifresi", 123)
If sifre = "" Then Exit Sub
For a = 1 To Sheets.Count
Sheets(a).Unprotect sifre
Next
End Sub

 

[assenucler]

Sayın antonio,


İlginiz ve katkınız için teşekkürler.

Sevgi ve saygılar.