Προστασία με κωδικό πρόσβασης για το Excel Macro

Ακριβώς όπως μπορείτε να προστατεύσετε με κωδικό πρόσβασης βιβλία εργασίας και φύλλα εργασίας, μπορείτε προστασία με κωδικό πρόσβασης μιας μακροεντολής σε Προέχω από την προβολή (και την εκτέλεση).

Τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

1. Αρχικά, δημιουργήστε μια απλή μακροεντολή που θέλετε να προστατεύσετε.

Range("A1").Value = "This is secret code"

2. Στη συνέχεια, κάντε κλικ στην επιλογή Εργαλεία, ιδιότητες VBAProject.

3. Στην καρτέλα Προστασία, επιλέξτε "Κλείδωμα έργου για προβολή" και εισάγετε έναν κωδικό πρόσβασης δύο φορές.

Εισαγάγετε έναν κωδικό πρόσβασης δύο φορές

4. Κάντε κλικ στο κουμπί OK.

5. Αποθηκεύστε, κλείστε και ανοίξτε ξανά το αρχείο Excel. Προσπαθήστε να δείτε τον κώδικα.

Εμφανίζεται το ακόλουθο παράθυρο διαλόγου:

Ο κωδικός πρόσβασης προστατεύεται από την προβολή

Μπορείτε να εκτελέσετε τον κώδικα κάνοντας κλικ στο κουμπί εντολής, αλλά δεν μπορείτε πλέον να προβάλετε ή να επεξεργαστείτε τον κώδικα (εκτός αν γνωρίζετε τον κωδικό πρόσβασης). Ο κωδικός πρόσβασης για το αρχείο Excel που μπορείτε να κατεβάσετε είναι "εύκολος".

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

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")

Select Case password
    Case Is = False
        "do nothing
    Case Is = "easy"
        Range("A1").Value = "This is secret code"
    Case Else
        MsgBox "Incorrect Password"
End Select

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Ο κωδικός πρόσβασης προστατεύεται από την εκτέλεση

Εξήγηση: Η μακροεντολή χρησιμοποιεί τη μέθοδο InputBox του αντικειμένου της εφαρμογής. Εάν οι χρήστες κάνουν κλικ στην επιλογή Ακύρωση, η μέθοδος αυτή επιστρέφει ψευδές και δεν συμβαίνει τίποτα (ο InputBox εξαφανίζεται). Μόνο όταν ο χρήστης γνωρίζει τον κωδικό πρόσβασης ("easy" ξανά), θα εκτελεστεί ο μυστικός κωδικός. Εάν ο κωδικός πρόσβασης που έχει εισαχθεί είναι λανθασμένος, εμφανίζεται ένα μήνυμα MsgBox. Σημειώστε ότι ο χρήστης δεν μπορεί να ρίξει μια ματιά στον κωδικό πρόσβασης στον επεξεργαστή της Visual Basic επειδή το έργο προστατεύεται από την προβολή.