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

[Γιώργος Κ.]

Καλησπέρα σε όλο το φόρουμ
Ήθελα να ρωτήσω αν υπάρχει τρόπος να κλειδώνει το φύλλο, ώστε να μην μπορώ να κάνω τίποτα, αν ισχύει μια συνθήκη.
Για παράδειγμα αν το κελί Α1>" " τότε να κλειδώνει όλο το φύλλο

[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, το κωδικό όνομα του φύλλου.