(05/03/2021, 00:34)berduş yazdı: bu kod tüm sayfaları şifreler siz istediğiniz sayfaları şifrelersiniz

Private Sub Workbook_Open()

For a = 1 To Sheets.Count

    ThisWorkbook.Worksheets(a).Unprotect "171717"

    ThisWorkbook.Worksheets(a).Protect Password:="171717", UserInterfaceOnly:=True

Next

End Sub

Berduş Hocam
Burda anlatmak istediğinizi sanırım yanlış anlıyorum. Ben parola belirleyerek koyduğum sayfa korumalarını her sayfa için ayrı ayrı yapmama gerek kalmayacak bu metodu yazdığımda otomatik tüm mevcut ve yeni açacağım sayfalar korumalı olacak diye algıladım. Kodu uyguladığımda da herhangi bir şekilde sayfalar korumaya alınmadı. Biraz daha açabilirmisiniz anlatmak istediğinizi.

Yani aslında bir kod yazsam ve bu kod Excel çalışma kitabındaki tüm sayfaları parolalı korumaya alsa ben ayrı ayrı her sayfaya koruma koymaya uğraşmasam iyi olur. Belki amaç bu kodda budur ama ben sanırım tatbik etmeyi beceremedim. Konu cevaplanmışlara taşındığı için yazılan kodları gösteremiyorum.