Çoklu Excel Sayfalarına Aynı Şifreyi vermek ve şifreyi tek seferde değiştirmek

[cankız46]

Merhabalar ;
Excel çalışma sayfamda yaklaşık 35 sayfa var ve sayfaların hepsinin şifresi aynı.Değiştirmem gerekli ama her sayfayı tek tek değiştirmek gerekiyor.Kolay bir yolu varmı.
Teşekkürler

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız. Eski ve yeni şiflerin değerlerini kendinizinkiyle değiştirirsiniz..

Sub SifreDegis()
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "[COLOR=red]1[/COLOR]" [COLOR=teal]'eski şifre[/COLOR]
        sayfa.Protect "[COLOR=red]2[/COLOR]" [COLOR=teal]'yeni şifre[/COLOR]
    Next sayfa
End Sub

.

 

[cankız46]

Teşekkürler
Emeğinize sağlık