Πώς να ξεκλειδώσετε ένα τηλέφωνο στο Excel Εάν οι πληροφορίες εισάγονται σε άλλο κελί

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

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

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

Κάντε κλικ στην καρτέλα "Review" στο πάνω μέρος του παραθύρου του Excel , και στη συνέχεια κάντε κλικ στο κουμπί " Προστασία φύλλου " . Πληκτρολογήστε έναν κωδικό πρόσβασης , αν χρειάζεστε ένα , και κάντε κλικ στο "OK". Αν έχετε εισάγει έναν κωδικό πρόσβασης , θα πρέπει να το πληκτρολογήσετε ξανά . Να είστε βέβαιος να γράψετε τον κωδικό πρόσβασης κάτω , έτσι ώστε δεν θα το ξεχάσω . Όλα τα κύτταρα εκτός από το ένα που έχετε επιλέξει είναι τώρα κλειδωμένη .
Η

4 Πατήστε το πλήκτρο " Alt " + " F11 " για να ανοίξει το Visual Basic κονσόλας . Επιλέξτε το φύλλο που εργάζεστε από τη λίστα φύλλων εργασίας
5

Αντιγράψτε τον παρακάτω κώδικα σε ανοικτό χώρο στη δεξιά πλευρά της Visual Basic παράθυρο : .

Private Sub Worksheet_Change ( ByVal Target As Range)

Dim KeyCells Όπως Σειρά

Set KeyCells = Range ( " A1" )

If Not Application.Intersect ( KeyCells , Range ( Target. Address) ) _

είναι τίποτα τότε

Με φύλλα εργασίας ( "Sheet1 " )

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

Range ( " B1 " . ). Κλειδωμένο = False

Προστατέψτε Κωδικός: = " qqq "

End With

End If

End Sub

6

Επεξεργασία του κώδικα για το συγκεκριμένο φύλλο εργασίας σας . Αλλαγή " A1" για το κελί που θέλετε οι χρήστες να είναι σε θέση να αλλάξει . Αλλαγή " Β1 " στο κελί σας που θέλετε να ξεκλειδώσετε αυτόματα όταν οι χρήστες τα δεδομένα εισόδου στο πρώτο κελί . Αλλαγή " Φύλλο1 " με το όνομα του φύλλου εργασίας σας . Αλλαγή " qqq " σε ό, τι τον κωδικό πρόσβασης που χρησιμοποιείτε για να κλειδώσετε τα κύτταρα . Εάν δεν χρησιμοποιείτε έναν κωδικό πρόσβασης , διαγράψτε τις δύο περιπτώσεις "Password : = " . Qqq » .
Η

7 Πατήστε το πλήκτρο" Alt " + " F11 " για να κλείσετε το Visual Basic παράθυρο του φύλλου εργασίας σας θα ξεκλειδώσει τώρα το καθορισμένο κελί όταν ένας χρήστης εισάγει πληροφορίες στο αρχικό κύτταρο . Αποθηκεύστε την εργασία σας τώρα , γιατί κατά τη δοκιμή του φύλλου εργασίας έξω , το κύτταρο-στόχος θα πρέπει να ξεκλειδωθεί .
Η
εικόνων