Soru Makro ile hücre kilitleme

[Hexafluramon]

Sayın hocalarım; forumda yaptığım aramalarda göremedim. Gözden kaçırdıysam kusura bakmayın. Bir konuda yardıma ihtiyacım var. Benim çok sayfalı bir excell dosyam var. Bu dosyanın her sayfasındaki tüm hücreleri kilitledikten sonra (aralarda açık kalabilecek formüllü hücreleri atlamamak için), sadece veri girişi yapılan belirli hücrelerin (A11:E40, H11:I40 ve K11:K40) kilitlerini açmak istiyorum. Acaba bu şekilde makrolar oluşturabilir mi? Yardım ederseniz sevinirim. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Option Explicit

Sub Dosyada_Tum_Sayfalarda_Belirli_Hucrelerin_Kilidini_Kaldir()
    Dim Sayfa As Worksheet, Alan As Variant, X As Byte
    
    Alan = Array("A11:E40", "H11:I40", "K11:K40")
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Unprotect "12345"
        For X = LBound(Alan) To UBound(Alan)
            Sayfa.Range(Alan(X)).Locked = False
        Next
        Sayfa.Protect "12345"
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Hexafluramon]

Teşekkür ederim Korhan hocam. İstediğim şey tam olarak buydu. Elinize emeğinize sağlık. İyi çalışmalar.