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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Μορφοποίηση] Κλείδωμα διαδοχικών κελιών (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5215-kleidoma-diadoxikon-kelion.html)

Κλείδωμα διαδοχικών κελιών

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

Ευχαριστώ

Καλησπέρα

Το ζητούμενο θα μπορούσε να γίνει αυτόματα με κώδικα (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

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

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