Çalışma Sayfasını Koruma

[kissofh3ll]

Arkadaşlar bir excel çalışma kitabında örneğin sayfa 1 i koru dedim ve bu sayfayı 30 adet kopyaladım sayfa 30 a kadar gidiyo ama ben bu sayfaların korumasını kaldırmak için hepsine tek tek girmem gerekiyor. Onun yerine hepsini seçip tek seferde kaldırıp toplu değişiklik yapmak istiyorum bu mümkün müdür?

 

[Murat OSMA]

Module içine bu kodu yapıştırın ve F5'e basın.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i = 1 To Sheets.Count
        Sheets(i).Unprotect
    Next i
End Sub[/SIZE][/FONT]