[Μορφοποίηση] Κλείδωμα διαδοχικών κελιών

[Gogosbmx]

Γεια σας. Έχω ένα excel και θα ήθελα εαν υπάρχει τρόπος να κλειδωθούν συγκεκριμένα κελιά ανα 4. Δηλαδή : Να είναι ξεκλείδωτο το Ε2 και κλειδωμένο το 3,4,5,6 μετά πα΄λι ξεκλείδωτο το Ε7 και κλειδωμένο το 8,9,10,11. Όλα είναι στην ίδια στήλη. Η στήλη έχει περίπου 600 γραμμές και έλεγα μήπως υπάρχει τρόπος.

Ευχαριστώ

[kapetang]

Καλησπέρα

Το ζητούμενο θα μπορούσε να γίνει αυτόματα με κώδικα (VBA).

Συγκεκριμένα με την προσθήκη στο συμβάν Open του βιβλίου του παρακάτω κώδικα.

Private Sub Workbook_Open()
    Dim rng As Range, i As Long, sh As Worksheet
    
    Const shName As String = "LockCels" 'το όνομα του φύλλου
    Const firstLock As String = "e2"    '1ο ξεκλείδωτο  κελί
    Const n As Long = 5                 'μετατόπιση από ένα ξεκλείδωτο κελί μέχρι το επόμενο
    Const k As Long = 700               'πλήθος γραμμών
    
    Set sh = Worksheets(shName)
    Set rng = sh.Range("e2")
    
    sh.Unprotect
    rng.Resize(k).Locked = True
    
    For i = 1 To k Step n
        rng(i).Locked = False
    Next
    
    sh.Protect

    sh.Activate
End Sub

Στον κώδικα και συγκεκριμένα στις γραμμές που έχουν σχόλια θα πρέπει να γίνουν οι αναγκαίες προσαρμογές.

Δες και το συνημμένο.