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