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/4008-kleidoma-filloy-ikanopoieitai-mia-synthiki.html)

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

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

Καλημέρα
Μιά απλή μέθοδος, είναι, να βάλουμε, τον πιο κάτω κώδικα, στο φύλλο.
Συμβάν 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, το κωδικό όνομα του φύλλου.