Μια μακροεντολή Excel για την αποτροπή των βιβλίων εργασίας από το κλείσιμο - dummies

Υπάρχουν φορές που δεν θέλετε ένας χρήστης να κλείνει ένα βιβλίο εργασίας του Excel χωρίς να εισάγει ένα συγκεκριμένο κομμάτι δεδομένων. Σε αυτές τις περιπτώσεις, θα ήταν χρήσιμο να αρνηθεί στον χρήστη τη δυνατότητα να κλείσει το βιβλίο εργασίας μέχρι να συμπληρωθεί το κύτταρο-στόχος (όπως φαίνεται εδώ). Εδώ μπαίνει αυτή η έξυπνη μακροεντολή.

Αποτρέψτε το κλείσιμο μέχρι να συμπληρωθεί ένα συγκεκριμένο κελί.

Πώς λειτουργεί η μακροεντολή

Αυτός ο κώδικας ενεργοποιείται από το συμβάν "BeforeClose" του βιβλίου εργασίας. Όταν προσπαθείτε να κλείσετε το βιβλίο εργασίας, αυτό το συμβάν πυροδοτεί, εκτελώντας τον κώδικα μέσα. Αυτή η μακροεντολή ελέγχει εάν το κελί στόχευσης (το κελί C7, σε αυτήν την περίπτωση) είναι κενό. Εάν είναι άδειο, ακυρώνεται η διαδικασία κλεισίματος. Εάν το C7 δεν είναι άδειο, το βιβλίο εργασίας αποθηκεύεται και κλείνει:

Private Sub Workbook_BeforeClose (Cancel As Boolean) 'Βήμα 1: Ελέγξτε αν το κελί C7 είναι κενό Εάν τα φύλλα ("Sheet1"). Εύρος ("C7"). Value = "Then" Βήμα 2: Εάν το κελί είναι κενό, ακυρώστε το κλείσιμο και αφήστε το χρήστη Cancel = True MsgBox "Το στοιχείο C7 δεν μπορεί να είναι κενό" 'Κλείσιμο SaveChanges: Αν το C7 είναι κενό, το βήμα 2 τίθεται σε ισχύ, ακυρώνοντας τη διαδικασία κλεισίματος με τη μεταφορά του True to True. Αν το End Sub

Βήμα 1 ελέγχει αν το C7 είναι κενό.

το Ακύρωση Boolean Το βήμα 2 ενεργοποιεί επίσης ένα πλαίσιο μηνύματος που ειδοποιεί τον χρήστη για την ανόητο του (και δεν είναι αρκετά σκληρό, πραγματικά)

Στο βήμα 3, αν το κελιού C7 δεν είναι κενό, το βιβλίο εργασίας αποθηκεύεται και

Για να εφαρμόσετε αυτήν τη μακροεντολή, πρέπει να την αντιγράψετε και να την επικολλήσετε στο παράθυρο κώδικα συμβάντος Workbook_BeforeClose.Η τοποθέτηση της μακροεντολής εδώ επιτρέπει να εκτελείται κάθε φορά που προσπαθείτε να κλείσετε το βιβλίο εργασίας:

Ενεργοποιήστε τον επεξεργαστή της Visual Basic πατώντας Alt + F11

Στο παράθυρο του έργου, βρείτε το όνομα του έργου / του βιβλίου εργασίας σας και κάντε κλικ στο σύμβολο συν δίπλα του για να δείτε όλα τα φύλλα > Κάντε κλικ στο ThisWorkbook.

1. Στην αναπτυσσόμενη λίστα Συμβάντα, επιλέξτε το γεγονός BeforeClose.

2. Πληκτρολογήστε ή επικολλήστε τον κώδικα στη νεοδημιουργηθείσα ενότητα.

3. Καταχωρίστε τον κωδικό σας στο συμβάν βιβλίου εργασίας πριν από το κλείσιμο.