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