- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "07102003" = True
Next
End Sub
Sub sifreac()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "07102003" = True
Next
End Sub
bu makrolar yardımı ile şifreleyip,şifreleri çözebiliyorum.
sorunum şu. sayfalar şifreliyken herhahgibir sayfanın sayfa koruma şifresini araçlar menüsünden sayfa korumasını kaldır dediğimde yanlış parola girdiniz mesajı ile karşılaşıyorum.
sayfalar şifreli iken istediğim sayfanın araçlar menüsünden sayfa korumasını nasıl kaldırabilirim. yardımcı olursanız sevinirim.
For a = 1 To Sheets.Count
Sheets(a).Protect "07102003" = True
Next
End Sub
Sub sifreac()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "07102003" = True
Next
End Sub
bu makrolar yardımı ile şifreleyip,şifreleri çözebiliyorum.
sorunum şu. sayfalar şifreliyken herhahgibir sayfanın sayfa koruma şifresini araçlar menüsünden sayfa korumasını kaldır dediğimde yanlış parola girdiniz mesajı ile karşılaşıyorum.
sayfalar şifreli iken istediğim sayfanın araçlar menüsünden sayfa korumasını nasıl kaldırabilirim. yardımcı olursanız sevinirim.