Tüm sayfalarda şifre kaldırma

[Mehmet Sait]

Merhaba,

Excel çalışma kitabımda bulunan tüm sayfalarda kullandığım şifreler aynı. Hepsini bir defada makro ile nasıl pasif edebilirim ?

Sub sifrecoz()

Sheet.Unprotect Password:="3300"
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub sifrecoz()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Sheets(i).Unprotect Password:="3300"
    Next i
End Sub

 

[Mehmet Sait]

Teşekkür ederim Ömer hocam.

 

[vurkan]

Ömer Hocam merhaba Ben de çalışmalarımda formüllerdeki bozulmaları önlemek için sayfalara sivas şeklinde şifreler koyuyorum. Bazen sayfalarda düzenleme yapınca şifreyi kaldır tekrar koy yerine, eklenecek bir düğmeye tıklayınca tüm sayfalardaki şifreleri kaldıran yukarıdaki kod, tekrar tıklayınca tüm sayfalara sivas şifresi koyacak şekilde nasıl düzenlenebilir acaba? Teşekkür ediyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub sifrekoy()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Sheets(i).Protect Password:="sivas"
    Next i
End Sub


Sub sifrecoz()
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Sheets(i).Unprotect Password:="sivas"
    Next i
End Sub

 

[vurkan]

Ömer Hocam merhaba Kodları dosyamda denedim gayet güzel çalışıyor. Ancak; Ekli dosyada göreceğiniz üzere Düğmeleri SINIF isimli sayfaya yerleştirdim.
Şifre koy düğmesine tıklayınca her şey güzel. Ama Şifre Kaldır deyince 2 DÖNEM sayfası açılıyor. Oysa aynı sayfada kalmalıydı. Sebebini bulamadım. Teşekkürler.

İndir 2020 KAZANIM SINIF

Dosyayı indir 2020 KAZANIM SINIF

dosya.co

 

[Mehmet Sait]

Ömer Hocam merhaba Kodları dosyamda denedim gayet güzel çalışıyor. Ancak; Ekli dosyada göreceğiniz üzere Düğmeleri SINIF isimli sayfaya yerleştirdim.
Şifre koy düğmesine tıklayınca her şey güzel. Ama Şifre Kaldır deyince 2 DÖNEM sayfası açılıyor. Oysa aynı sayfada kalmalıydı. Sebebini bulamadım. Teşekkürler.

İndir 2020 KAZANIM SINIF

Dosyayı indir 2020 KAZANIM SINIF

dosya.co

Deneyiniz ...

 

[vurkan]

Sayın Dunya_ ilginize teşekkür ederim. Ancak altın üye değilim. dosya indiremiyorum saygılar.

 

[Korhan Ayhan]

Deneyiniz.

Sub sifrekoy()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        Sheets(i).Protect Password:="sivas"
    Next i
    Sheets("SINIF").Select
    Range("f10").Select
    Application.ScreenUpdating = True
End Sub


Sub sifrecoz()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        Sheets(i).Unprotect Password:="sivas"
    Next i
    Sheets("SINIF").Select
    Range("f10").Select
    Application.ScreenUpdating = True
End Sub

 

[vurkan]

Sayın Korhan Ayhan kodlar istediğim gibi çalıştı, çok teşekkür ediyorum.