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