Makro ile 65 sayfayı aynı anda kilitlemek mümkün mü??

[metbes]

Merhabalar,


benim sorum şu elimde 65 sayfa olan bir excel dosyası var bunda sayfaları bir seferde kilitlerini açmak veya bir seferde kilitlerini kaldırmak için bana bir makro önerebilir misiniz.
Dosya 20 mb olduğu için ekleyemiyorum. Her sayfada bazı hücreler kilitli onu ayarladım ama herseferinde tek tek sayfa kilitlemesi yapmam gerek veya her seferinde açmam gerekli oluyor.

Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

Sub SayfaKoruKaldır()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

.

 

[metbes]

Merhaba,

Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

Sub SayfaKoruKaldır()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

.

bunu commandbutona nasıl eklerim

 

[metbes]

Merhaba,

Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

Sub SayfaKoruKaldır()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:="[COLOR=red]123[/COLOR]"
Next
End Sub

.

Pardon çözdüm teşekkür ederim ilginiz için