sayfa koruması

[halilkalyoncu]

ustalarım sizlerden ricam,ekte bulunan örnekteki gibi bazı satır ve sütünlar haricinde diğersatır ve sünların korumasını yapıyorum. (ilerleyen zamanda satır ve sunların çoğaltılabilir) elimdeki dosyamda 312 adet sayfa mevcut(şu an için ileride dahada çoğalabilir)bu sayfaların tamamına tetek elle uygulamam gerekiyor bu işlemi ,daha basit ve pratik yöntemini nasıl yapabilim.bu konuda yardımcı olurmusunuz teşekkürler

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz..
Sayfa koruma şifresi: 1'dir.

Sub Emre()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.Unprotect "1"
        syf.Cells.Locked = True
        syf.Range("B6:M50,P6:P50").Locked = False
        syf.Protect "1"
    Next syf
    Set syf = Nothing
End Sub

​

 

[halilkalyoncu]

sayın murat osma,ilginize teşekkür ederim fakat verdiğiniz kodu girdiğimde,yine bütün hücrelerde işlem yapılabilmekte,ekte de belirttiğim gibi koyu kısımlar da işlem yapıp diğer yerlerdeki (formüllü olacak o kısımlar)hücrelerin kiliti olması gerekiyor.uygulamada hata yapıyorum zannedersem,bir daha el atabilirmisiniz.

 

[Murat OSMA]

Makroyu çalıştırdığınıza emin misiniz?​

 

[halilkalyoncu]

teşekkürler