Όπως μπορείτε να προστατεύσετε τα βιβλία εργασίας και τα φύλλα εργασίας με κωδικό πρόσβασης, μπορείτε κωδικός πρόσβασης προστατεύει μια μακροεντολή σε Προέχω από την προβολή (και την εκτέλεση).
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δημιουργήστε μια απλή μακροεντολή που θέλετε να προστατεύσετε.
Εύρος ("A1"). Τιμή = "Αυτός είναι μυστικός κώδικας"
2. Στη συνέχεια, κάντε κλικ στην επιλογή Εργαλεία, Ιδιότητες VBAProject.
3. Στην καρτέλα Προστασία, επιλέξτε "Κλείδωμα έργου για προβολή" και εισαγάγετε δύο φορές έναν κωδικό πρόσβασης.
4. Κάντε κλικ στο OK.
5. Αποθηκεύστε, κλείστε και ανοίξτε ξανά το αρχείο Excel. Προσπαθήστε να δείτε τον κώδικα.
Θα εμφανιστεί το ακόλουθο παράθυρο διαλόγου:
Μπορείτε ακόμα να εκτελέσετε τον κώδικα κάνοντας κλικ στο κουμπί εντολών, αλλά δεν μπορείτε να προβάλετε ή να επεξεργαστείτε τον κώδικα πλέον (εκτός εάν γνωρίζετε τον κωδικό πρόσβασης). Ο κωδικός πρόσβασης για το αρχείο Excel που μπορείτε να κατεβάσετε είναι "εύκολος".
6. Εάν θέλετε να προστατεύσετε τη μακροεντολή με κωδικό πρόσβασης από την εκτέλεση, προσθέστε τις ακόλουθες γραμμές κώδικα:
Χαμηλός κωδικός πρόσβασης ως παραλλαγή
κωδικός πρόσβασης = Application.InputBox ("Εισαγωγή κωδικού πρόσβασης", "Προστασία με κωδικό πρόσβασης")
Επιλέξτε Κωδικός πρόσβασης υπόθεσης
Περίπτωση Είναι = Λάθος
'μην κάνεις τίποτα
Περίπτωση = "εύκολο"
Εύρος ("A1"). Τιμή = "Αυτός είναι μυστικός κωδικός"
Case Else
MsgBox "Λανθασμένος κωδικός πρόσβασης"
Τέλος Επιλογή
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
Επεξήγηση: Η μακροεντολή χρησιμοποιεί τη μέθοδο InputBox του αντικειμένου Application. Εάν οι χρήστες κάνουν κλικ στο Cancel, αυτή η μέθοδος επιστρέφει False και δεν συμβαίνει τίποτα (το InputBox εξαφανίζεται). Μόνο όταν ο χρήστης γνωρίζει τον κωδικό πρόσβασης ("εύκολο" ξανά), ο μυστικός κώδικας θα εκτελεστεί. Εάν ο κωδικός πρόσβασης είναι λανθασμένος, εμφανίζεται ένα MsgBox. Λάβετε υπόψη ότι ο χρήστης δεν μπορεί να ρίξει μια ματιά στον κωδικό πρόσβασης στο Visual Basic Editor επειδή το έργο προστατεύεται από την προβολή.
