Κωδικός πρόσβασης έργου VBA - Πώς να προστατεύσετε τον κώδικα VBA με κωδικό πρόσβασης;

Πίνακας περιεχομένων

Κωδικός πρόσβασης έργου Excel VBA

Εάν ένας προγραμματιστής θέλει να αποκρύψει τον κώδικα του έργου από τους άλλους χρήστες, η VBA μας έχει παράσχει ένα εργαλείο για να το κάνει, τώρα χρησιμοποιώντας αυτό το εργαλείο μπορούμε να προστατεύσουμε με κωδικό πρόσβασης ένα μεμονωμένο έργο ή πολλά έργα όταν κάνουμε δεξί κλικ σε ένα έργο που λάβετε μια επιλογή για ιδιότητες έργου VBA και στο τμήμα προστασίας μπορούμε να προστατεύσουμε με κωδικό πρόσβασης το έργο.

Όταν ο κωδικός υψηλού επιπέδου εκτίθεται στον χρήστη ή τον αναγνώστη, το μόνο που έχουν να κάνουν είναι να αντιγράψουν τον κώδικα και να αρχίσουν να τον χρησιμοποιούν, οπότε είναι καλύτερο να προστατεύσετε τον κωδικό σας με κωδικό πρόσβασης.

Πώς να προστατεύσετε με κωδικό πρόσβασης το έργο VBA;

Όπως το πώς προστατεύουμε με κωδικό πρόσβασης το φύλλο εργασίας μας, το βιβλίο εργασίας ομοίως, μπορούμε να προστατεύσουμε με κωδικό πρόσβασης τους κωδικούς VBA που έχουμε γράψει.

Ακολουθήστε τα παρακάτω βήματα για την προστασία με κωδικό πρόσβασης του έργου σας.

Βήμα 1: Δημιουργήστε μια απλή μακροεντολή που πρέπει να προστατευτεί.

Κώδικας:

Υπο VBA_Project_Password () Εύρος ("A1"). Value = "Αυτό είναι ένα VBA Projet Password Enabler" End Sub

Αυτός ο κωδικός θα εισαγάγει τη λέξη "Πρόκειται για VBA Project Password Enabler" στο κελί A1. Ας υποθέσουμε ότι πρέπει να προστατεύσουμε με κωδικό πρόσβασης αυτόν τον κωδικό.

Βήμα 2: Στο παράθυρο του οπτικού βασικού προγράμματος επεξεργασίας, κάντε κλικ στην καρτέλα "Εργαλεία" και επιλέξτε "Ιδιότητες έργου VBAP".

Βήμα 3: Αυτό θα ανοίξει το παράθυρο "VBAProject - Project Properties", το οποίο μοιάζει με το παρακάτω.

Βήμα 4: Σε αυτό το παράθυρο, μπορούμε να δώσουμε ένα όνομα στο έργο, μπορούμε να γράψουμε μια περιγραφή του έργου και μπορούμε να θέσουμε και άλλα επιχειρήματα.

Στο πάνω μέρος αυτού του παραθύρου, μπορούμε να δούμε δύο καρτέλες με την ονομασία "Γενικά" και "Προστασία". Επιλέξτε "Προστασία".

Βήμα 5: Σε αυτήν την «Προστασία», πρέπει να εισαγάγουμε τον κωδικό πρόσβασης που πρόκειται να χρησιμοποιήσουμε για την προστασία του έργου. Αρχικά, επιλέξτε το πλαίσιο "Κλείδωμα έργου για προβολή".

Βήμα 6: Τώρα, στην ενότητα "Κωδικός πρόσβασης για προβολή ιδιοτήτων έργου", εισαγάγετε τον κωδικό πρόσβασης και επιβεβαιώστε ξανά τον κωδικό πρόσβασης και, στη συνέχεια, κάντε κλικ στο "Ok" για να κλείσετε το παραπάνω παράθυρο.

Τώρα το έργο μας προστατεύεται με κωδικό πρόσβασης, οπότε για να δούμε τις ιδιότητες του έργου, όπως μια ενότητα, φόρμες χρήστη και κωδικούς γραμμένους μέσα στο έργο, πρέπει να χρησιμοποιήσουμε τον κωδικό πρόσβασης και να δούμε.

Αποθηκεύστε το βιβλίο εργασίας, κλείστε το και ανοίξτε ξανά.

Μεταβείτε στο Visual Basic Editor και μπορούμε να δούμε το παρακάτω παράθυρο.

Δεδομένου ότι αυτό το έργο είναι κλειδωμένο, δεν μπορούσαμε να δούμε τίποτα. Κάντε κλικ στο εικονίδιο PLUS στην αριστερή πλευρά.

Τώρα αυτό θα σας ζητήσει να εισαγάγετε τον κωδικό πρόσβασης για να δείτε τις ιδιότητες του έργου.

Τώρα πρέπει να εισαγάγουμε τον κωδικό πρόσβασης που χρησιμοποιήσαμε κατά την προστασία του έργου.

Μόλις εισαχθεί ο κωδικός πρόσβασης, κάντε κλικ στο "Ok" τώρα, μπορούμε να δούμε τις ιδιότητες όπως ονόματα φύλλων εργασίας, λειτουργικές μονάδες και κωδικούς.

Εάν εισαχθεί λάθος κωδικός πρόσβασης, τότε θα λάβουμε το πλαίσιο μηνύματος "Μη έγκυρος κωδικός πρόσβασης".

Δώστε το πλαίσιο εισαγωγής κωδικού πρόσβασης για να εκτελέσετε τον κώδικα

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

Ο παρακάτω κωδικός θα ζητήσει από τον χρήστη να εισαγάγει τον κωδικό πρόσβασης για να εκτελέσει τον κωδικό.

Κώδικας:

Υπο VBA_Project_Password () Dim MyPassword ως παραλλαγή Dim κωδικός ως String Password = 123 MyPassword = Application.InputBox ("Enter your Password", "Απαιτείται κωδικός πρόσβασης για την εκτέλεση της μακροεντολής") Εάν MyPassword = Password τότε Range ("A1"). Value = "Πρόκειται για έναν Ενεργοποιητή Κωδικού Πρόσβασης VBA" Else MsgBox "Λανθασμένος Κωδικός Πρόσβασης" End if End Sub

Αυτό θα ζητήσει από τον χρήστη να εισαγάγει τον κωδικό πρόσβασης κατά την εκτέλεση.

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

Πράγματα που πρέπει να θυμάστε

  • Χωρίς κωδικό πρόσβασης έργου, είναι δύσκολο να ανακτήσετε το έγγραφο στο excel, επομένως πρέπει να είστε απολύτως σίγουροι για τον κωδικό πρόσβασης.
  • Μπορείτε να χρησιμοποιήσετε πρόσθετα τρίτων για να σπάσετε τον κωδικό πρόσβασης.

ενδιαφέροντα άρθρα...