Πώς να κωδικός πρόσβασης προστατεύει ένα φύλλο εργασίας του Excel Χρησιμοποιώντας ένα Macro

Η Visual Basic editor που παρέχονται με το Microsoft Excel δίνει πιο προχωρημένους χρήστες τα απαραίτητα για να δημιουργήσει σχεδόν απεριόριστες μακροεντολές για να προσαρμόσετε τον τρόπο Excel λειτουργεί εργαλεία . Μια απλή μακροεντολή μπορεί να προστατέψετε με κωδικό πρόσβασης ένα φύλλο εργασίας του Excel με λίγες γραμμές κώδικα . Εργασία με μακροεντολές σε Visual Basic, παίρνει κάποια πρακτική , αλλά τα οφέλη από την εκμάθηση των βασικών αξίζει τον κόπο . Οδηγίες
Η

1 Ανοίξτε το υπολογιστικό φύλλο του Microsoft Excel που θέλετε να προστατεύσετε. 2

Πατήστε το πλήκτρο " ALT + F11 " για να ανοίξει το Visual Basic .
Η
3

Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " UserForm . "
Η

4 Κάντε κλικ στο " πλαίσιο κειμένου " εργαλείο και σύρετε πάνω στο " UserForm " χώρο εργασίας . Ρυθμίστε το μέγεθος του πλαισίου κειμένου , όπως είναι επιθυμητό .
5

Πατήστε το πλήκτρο " F4 " με το " Πλαίσιο κειμένου " εξακολουθεί να είναι επιλεγμένο για να μπείτε στο "Ιδιότητες" παράθυρο και μετακινηθείτε προς τα κάτω για να " PasswordChar . " Τοποθετήστε έναν αστερίσκο ( * ) στη στήλη αξία .
Η

6 Κάντε κλικ στο " UserForm » για να φέρει πίσω την εργαλειοθήκη και σύρετε μια " CommandButton " πάνω στο " UserForm . " Για αισθητικούς λόγους , τοποθετήστε το κουμπί στα δεξιά του " TextBox . "
Η

7 Πατήστε το πλήκτρο " F4 " με το " CommandButton " εξακολουθεί να είναι επιλεγμένο και να αλλάξετε τη λεζάντα "OK".

8

Κάντε κλικ στο " UserForm , " πατήστε " F4 " και να αλλάξετε τη λεζάντα της " Προστασία /Κατάργηση προστασίας όλων των φύλλων . "
Η 9

Πατήστε " F7 " και επικολλήστε τον ακόλουθο κώδικα φαίνεται παρακάτω :

Private Sub CommandButton1_Click ( )

Dim WSheet Όπως Φύλλο

για κάθε WSheet Σε Φύλλα

Αν WSheet.ProtectContents = True τότε

WSheet.Unprotect Κωδικός : = TextBox1.Text

Else

WSheet.Protect Κωδικός : = TextBox1.Text

End If

Επόμενο WSheet

Αφαιρέστε μου

Sub End

10

Επιλέξτε " Module" από το μενού "Εισαγωγή" και επικόλληση του παρακάτω :

Sub ShowPass ( )

UserForm1.Show

End Sub
Η 11

Πατήστε το πλήκτρο " ALT + Q " για να επιστρέψετε στο Excel .
Η 12

Πατήστε το πλήκτρο " ALT + F8 , " και στη συνέχεια πατήστε το κουμπί " Επιλογές " μετά την επιλογή " ShowPass " από τη λίστα .
Η 13

Αντιστοίχιση ένα πλήκτρο συντόμευσης στη μακροεντολή και πατήστε "OK".

14

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

Η