formdan silinip Workbook_Open olayına eklenmiştir.

Private Sub Workbook_Open()

strPassword = "171717"

For a = 1 To Sheets.Count

'ThisWorkbook.Worksheets(a).Unprotect "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

End Sub