Sn:axtmm
Aşağıdaki kodları butona yazınız fakat tüm sayfaları korumanın sıkıntılarınada kadlanmanız gerekir.

Private Sub CommandButton2_Click()

For Each Worksheet In ActiveWorkbook.Worksheets

 If Worksheet.Name <> "Sayfa1" And Worksheet.Name <> "Sayfa190" Then

   Worksheet.Protect Password:="Bu Kısma Şifre Yazınız"

  End If

Next

End Sub