(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.

dosyanızı ekleyebilirsiniz.
kodla ilgili ayrıntılı bilgiye sahip değilim, araştırıp çözmeye çalışırım

Aslında daha önceki konuda yazmıştım.Bir sub içine kilitac diğerinede kilitle eklenmeli dihe.Uygulanmamış maliesef dediğim

---

O konuda alttaki linkte.

https://accesstr.net/konu-userformdan-ko...#pid178005

kodu aşağıdaki gibi düzenleyip deneyebilirsiniz?
ama ayrıntılara sizin dikkat etmeniz gerekiyor, neler korunacak neler hangi durumda değişecek siz belirlemelisiniz

For a = 1 To Sheets.Count

'ThisWorkbook.Worksheets(a).Unprotect "171717"

strPassword = "171717"

    ThisWorkbook.Worksheets(a).Protect Password:=strPassword, _

                                       DrawingObjects:=True, _

                                       Contents:=True, _

                                       Scenarios:=True, _

                                       UserInterfaceOnly:=True, _

                                       AllowFormattingCells:=False, _

                                       AllowFormattingColumns:=False, _

                                       AllowFormattingRows:=False, _

                                       AllowInsertingColumns:=False, _

                                       AllowInsertingRows:=False, _

                                       AllowInsertingHyperlinks:=False, _

                                       AllowDeletingColumns:=False, _

                                       AllowDeletingRows:=False, _

                                       AllowSorting:=False, _

                                       AllowFiltering:=False, _

                                       AllowUsingPivotTables:=False

Next

(05/03/2021, 09:40)feraz yazdı: Aslında daha önceki konuda yazmıştım.Bir sub içine kilitac diğerinede kilitle eklenmeli dihe.Uygulanmamış maliesef dediğim

---

O konuda alttaki linkte.

https://accesstr.net/konu-userformdan-ko...#pid178005

Feraz hocam ekledim kodda var ama modülde değil butonların tıklandığında olaylarında bu akşam da modüle ekleme önerinizle birlikte berduş hocamın önerisini deneyeceğim teşekkür ederim.

Berduş hocamızın aslında kodu const ile şifre tanımlansa daha iyi olur