Sn:axtmm Aşağıdaki kodları butona yazınız fakat tüm sayfaları korumanın sıkıntılarınada kadlanmanız gerekir.
Visual Basic Code
PrivateSub CommandButton2_Click()ForEach Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Sayfa1" And Worksheet.Name <> "Sayfa190" Then
Worksheet.Protect Password:="Bu Kısma Şifre Yazınız"
EndIfNextEndSub
#1 
