(05/03/2021, 12:12)berduş yazdı: 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

Berduş Hocam bu kodu oluşturacağım yeni bir modülemi yapıştırmam gerekiyor, UserForm_Initialize() yordamına yazdığımda kod çalışmıyor.