Çalışma kitabındaki sayfalara tek kalemde sayfa koruma şifresi nasıl verilir

[yyhy]

Çalışma kitabındaki sayfalara tek kalemde sayfa koruma şifresi nasıl verilir? Yardımcı olan arkadaşlara teşekkürler.

 

[tahsinanarat]

Tüm sayfalara tek seferde şifre vermek için

Private Sub sifrele ()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Protect Password:="şifreniz"
Next sayfa
End Sub

Tüm sayfalardan tek seferde şifreleri kaldırmak için

Private Sub sifrekaldir()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Unprotect Password:="şifreniz"
Next sayfa
End Sub

[/CODE]

 

[yyhy]

Sayın tahsinanarat,

Sayın tahsinanarat, acaba örnek dosya üzerine ekleyebilir misiniz? Uğraştım butona ekleyemedim. İlginiz için teşekkürler.

 

[yyhy]

Arkadaşlar bu konuyu çözemedim. Yardımcı olacak var mı? Kodları sayfaya uyarlayamadım.