Πώς να προστατεύσει και Unprotect στο Excel VBA

Η δυνατότητα προστασίας Excel 2010 σας επιτρέπει να προστατεύσετε ένα φύλλο εργασίας , ώστε ο καθένας που δεν γνωρίζουν τον κωδικό πρόσβασης δεν μπορεί να τροποποιήσει το φύλλο . Υπάρχει ένα κουμπί στην κορδέλα που θα προστατεύει το φύλλο εργασίας , αλλά μπορείτε επίσης να προστατεύσει το φύλλο με τη χρήση της Visual Basic for Applications ( VBA ) , η οποία έρχεται πακέτο με το λογισμικό Excel . Είναι πιο κοινό να έχει ο κώδικας VBA unprotect ένα προστατευμένο φύλλο εργασίας , εκτελούν εντολές απροστάτευτο φύλλο εργασίας και, στη συνέχεια, τοποθετήστε ξανά την προστασία στη θέση του . Οδηγίες
Η

1 Ανοίξτε το βιβλίο εργασίας του Excel που θέλετε να εργαστείτε. Hold " Alt " και πατήστε το πλήκτρο " F11 " για να ξεκινήσει η κονσόλα VBA . 2

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

Κάντε κλικ στην δεξιά πλευρά της οθόνης για να τοποθετήσετε το δρομέα σας στο λευκό κουτί . Εάν το πλαίσιο είναι κενό , πληκτρολογήστε " Sub ονομασία ( ) , " όπου " όνομα " είναι ό, τι θέλετε να ονομάσετε τη μακροεντολή σας . Πατήστε enter για να συνεχίσετε , και το Excel VBA θα τεθεί αυτόματα το " End Sub " γραμμή .
Η 4

Τύπος " ws Dim Όπως Φύλλο εργασίας " ακριβώς κάτω γραμμή σας " Sub" . Εάν εργάζεστε με τα υπάρχοντα κωδικό, πληκτρολογήστε αυτή τη γραμμή , όπου οι άλλες μεταβλητές που δηλώνονται και σας εξασφαλίζουν ότι δεν υπάρχει ήδη μια άλλη μεταβλητή που ονομάζεται " ws . " Αν υπάρχει , να αλλάξετε όλες τις εμφανίσεις του " ws " σε αυτόν τον κώδικα σε οποιοδήποτε διαθέσιμο σε συνδυασμό δύο γραμμάτων .
5

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

για κάθε ws Σε ActiveWorkbook.Worksheets

ws.Unprotect Κωδικός : = " zzz "

Next ws

Αλλαγή " zzz " στον κώδικα σε ό, τι τον κωδικό πρόσβασης του φύλλου εργασίας σας . Όταν θέλετε να προστατεύσετε και πάλι το φύλλο εργασίας , απλά εισάγετε αυτό το ίδιο τρεις γραμμές κώδικα , εκτός από την αλλαγή " Άρση προστασίας " για την " προστασία ".
Η
εικόνων