[Συναρτήσεις] Κλείδωμα φύλλου αν ικανοποιείται μια συνθήκη

[Spirosgr]

Καλημέρα
Μιά απλή μέθοδος, είναι, να βάλουμε, τον πιο κάτω κώδικα, στο φύλλο.
Συμβάν Change.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Sheet1.Cells(1, 1) <>"" Then
        Sheet1.Protect
        Sheet1.EnableSelection = xlUnlockedCells
    Else
        Sheet1.Unprotect
    End If
End Sub

Τι «λέει» ο κώδικας:
Αν το κελί a1, ΔΕΝ είναι κενό, τότε προστατεύει το φύλλο, αλλιώς καταργεί την προστασία.
Σημείωση:
Όπου Sheet1, το κωδικό όνομα του φύλλου.