Tüm sayfaların korunması

[pisagor26]

Değerli arkadaşlar; yaklaşık 80 sayfadan oluşan bir excel çalışması var. Bu çalışmadaki sayfaların içeriklerinin değiştirilmemesi için korumak istiyorum. Sayfaları tek tek korumanın dışında başka bir yolu var mıdır? Teşekkür ediyorum...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Koru()
    
    Dim i As Integer
    
    For i = 1 To Worksheets.Count
        Sheets(i).Protect "[COLOR="Red"]deneme[/COLOR]"
    Next i
    
End Sub

Sub Sayfa_Kaldır()
    
    Dim i As Integer
    
    For i = 1 To Worksheets.Count
        Sheets(i).Unprotect "[COLOR="red"]deneme[/COLOR]"
    Next i
    
End Sub

.

 

[pisagor26]

Tesekkur ediyorum yardimlariniz için... izninizle bir soru daha yöneltmek istiyorum... tum sayfa korumalaruni verdiginizle kodla uygulayabiliyorum. Sayfa korumasina sifre eklemiz mumkun mudur.

 

[Ömer]

#2 numaralı mesajı düzenledim. Kırmızı ilaveler.