Εξαναγκάζοντας τους πελάτες σας να ενεργοποιήσουν τις μακροεντολές Excel - ανδρείκελα

Για να χρησιμοποιήσετε οποιαδήποτε μακροεντολή στο Excel, οι χρήστες σας πρέπει να ενεργοποιήσουν μακροεντολές. Δηλαδή, πρέπει να δίνουν στο Excel την άδεια να τρέχουν μακροεντολές στο περιβάλλον τους. Για να ενεργοποιήσετε μακροεντολές, οι χρήστες κάνουν κλικ στο κουμπί Ενεργοποίηση περιεχομένου στην προειδοποίηση ασφαλείας που εμφανίζεται πάνω από τη γραμμή τύπων.

Η κατώτατη γραμμή είναι ότι μπορείτε να γράψετε όλες τις φανταστικές μακροεντολές στον κόσμο, αλλά δεν θα εκτελούνται ποτέ εκτός εάν οι χρήστες σας ενεργοποιήσουν μακροεντολές. Αυτό προκαλεί την ερώτηση. μπορείτε να αναγκάσετε τους χρήστες να ενεργοποιήσουν τις μακροεντολές; Η απάντηση είναι ναι - με λίγη τεχνική.

Η ιδέα είναι σχετικά απλή. Δημιουργείτε ένα φύλλο που ονομάζεται, ας πούμε, START. Αυτό το φύλλο περιέχει μόνο μια απλή προειδοποίηση που δηλώνει ότι οι μακροεντολές πρέπει να είναι ενεργοποιημένες. Στη συνέχεια, αποκρύπτετε όλα τα φύλλα στο βιβλίο εργασίας εκτός από εκείνο το φύλλο START. Τέλος, γράφετε μια απλή μακροεντολή που αποκρύπτει όλα τα φύλλα όταν το βιβλίο εργασίας ανοίγει.

Σε αυτό το σημείο, όταν το βιβλίο εργασίας ανοίγει, το Excel θα ζητήσει από το χρήστη να ενεργοποιήσει τις μακροεντολές. Οι χρήστες θα αναγκαστούν να το κάνουν, επειδή το μόνο που θα δουν είναι το φύλλο σας Έναρξης. Τα άλλα φύλλα θα είναι κρυμμένα!

Καταρχάς, αντιμετωπίστε τις ενέργειες που πρέπει να συμβούν όταν κλείσει το βιβλίο εργασίας.:

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

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

2. Κάντε κλικ στο ThisWorkbook.

3. Στο αναπτυσσόμενο πλαίσιο Event (Εκδήλωση), επιλέξτε το event BeforeClose.

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

   

5. Private Sub Workbook_BeforeClose (Ακύρωση ως Boolean) 'Βήμα 1: Δηλώστε τις μεταβλητές σας Dim ws ως φύλλο εργασίας' Βήμα 2: Ξεκλειδώστε τα φύλλα έναρξης ("START"). Visible = xlSheetVisible 'Βήμα 3: Ξεκινήστε το βρόχο σε όλα τα φύλλα εργασίας Για κάθε ws Στο ThisWorkbook. Φύλλα εργασίας "Βήμα 4: Ελέγξτε κάθε όνομα φύλλου εργασίας Εάν ws. Όνομα "START" Στη συνέχεια 'Βήμα 5: Απόκρυψη του φύλλου ws. Visible = xlVeryHidden End Αν 'Βήμα 6: Βρόχος στο επόμενο φύλλο εργασίας Επόμενο ws' Βήμα 7: Αποθηκεύστε το βιβλίο εργασίας ActiveWorkbook. Save End Sub

Στο βήμα 1, δηλώνετε ένα αντικείμενο που ονομάζεται ws για να δημιουργήσετε ένα δοχείο μνήμης για κάθε φύλλο εργασίας που θα περάσετε.

Στο Βήμα 2, βεβαιώνεστε ότι το φύλλο START είναι ορατό.

Στο βήμα 3, ξεκινάτε το βρόχο, λέγοντας στο Excel ότι θέλετε να αξιολογήσετε όλα τα φύλλα εργασίας αυτού του βιβλίου εργασίας.

Στο Βήμα 4, συγκρίνετε απλώς το όνομα START με το φύλλο που βρισκόμαστε στο βρόχο. Αυτό το βήμα διασφαλίζει ότι οι ενέργειες που ακολουθούν εφαρμόζονται σε όλα τα φύλλα εκτός από το φύλλο START.

Αν τα ονόματα των φύλλων είναι διαφορετικά, στο Βήμα 5 αποκρύπτετε το φύλλο χρησιμοποιώντας την ιδιότητα xlVeryHidden. Αυτή η ιδιότητα όχι μόνο αποκρύπτει το φύλλο αλλά επίσης εμποδίζει τον χρήστη να το αποκλείσει με το χέρι χρησιμοποιώντας το περιβάλλον εργασίας χρήστη.

Βγείτε πίσω για να πάρετε την επόμενη σελίδα στο βήμα 6.

Στο βήμα 7, μετά την αξιολόγηση όλων των φύλλων, η μακροεντολή αποθηκεύει το βιβλίο εργασίας και τελειώνει.

Τώρα πρέπει να γράψετε μια μακροεντολή για να χειριστείτε όλες τις ενέργειες που πρέπει να γίνουν όταν ανοίξει το βιβλίο εργασίας:

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

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

2. Κάντε κλικ στο ThisWorkbook.

3. Στο αναπτυσσόμενο πλαίσιο Event (Εκδήλωση), επιλέξτε το ανοιχτό συμβάν.

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

   

5. Private Sub Workbook_Open () 'Βήμα 1: Δηλώστε τις μεταβλητές σας Dims ως φύλλο εργασίας' Βήμα 2: Ξεκινήστε το βρόχο σε όλα τα φύλλα εργασίας Για κάθε ws Στο ThisWorkbook. Φύλλα εργασίας "Βήμα 3: Αποκάλυψη όλων των φύλλων εργασίας ws. Visible = xlSheetVisible 'Βήμα 4: Βρόχος στο επόμενο φύλλο εργασίας Επόμενο ws' Βήμα 5: Απόκρυψη των φύλλων αρχικών φύλλων ("START"). Visible = xlVeryHidden End Sub

Στο βήμα 1, δηλώνετε ένα αντικείμενο που ονομάζεται ws για να δημιουργήσετε ένα δοχείο μνήμης για κάθε φύλλο εργασίας που περνάτε.

Στο βήμα 2, ξεκινάτε το βρόχο, λέγοντας στο Excel ότι θέλετε να αξιολογήσετε όλα τα φύλλα εργασίας αυτού του βιβλίου εργασίας.

Στο βήμα 3, αποκαλύπτετε το φύλλο που βρίσκεται αυτή τη στιγμή στο βρόχο. Αυτό το βήμα αποκρύπτει αποτελεσματικά όλα τα φύλλα εργασίας καθώς κάθε φύλλο γίνεται ορατό.

Βγείτε πίσω για να πάρετε το επόμενο φύλλο στο βήμα 4.

Αφού γίνουν ορατά όλα τα φύλλα, το βήμα 5 αποκρύπτει το φύλλο START. Και πάλι, χρησιμοποιείτε την ιδιότητα xlVeryHidden, έτσι ώστε ο χρήστης να μην μπορεί να ανοίξει με μη αυτόματο τρόπο το φύλλο χρησιμοποιώντας τη διεπαφή χρήστη.

Αφού εφαρμοστούν και οι δύο μακροεντολές, θα έχετε ένα βιβλίο εργασίας που θα λειτουργήσει μόνο αν ο χρήστης ενεργοποιήσει τις μακροεντολές!