Μετάβαση στο κύριο περιεχόμενο

Πώς να κάνετε το κελί ως μόνο για ανάγνωση στο Excel;

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

Κάντε το κελί ως μόνο για ανάγνωση προστατεύοντας το φύλλο εργασίας
Κάντε το κελί ως μόνο για ανάγνωση με κωδικό VBA χωρίς προστασία φύλλου εργασίας


Κάντε το κελί ως μόνο για ανάγνωση προστατεύοντας το φύλλο εργασίας

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

1. Κάντε κλικ στο κουμπί κουμπί στην επάνω αριστερή γωνία του τρέχοντος φύλλου εργασίας για να επιλέξετε ολόκληρα τα κελιά.

2. Πάτα το Ctrl + 1 ταυτόχρονα για να ανοίξετε το κύτταρα μορφή κουτί διαλόγου. Στο πλαίσιο διαλόγου, καταργήστε την επιλογή του Κλειδωμένο πλαίσιο κάτω από το Απάτη , και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Τώρα επιλέξτε τα κελιά που θέλετε να τα κάνετε μόνο για ανάγνωση (εδώ επιλέγω κελιά της περιοχής A1: C18). Πάτα το Ctrl + 1 ταυτόχρονα για να ανοίξετε το κύτταρα μορφή πλαίσιο ελέγχου, ελέγξτε το Κλειδωμένο πλαίσιο κάτω από το Απάτη Καρτέλα και κάντε κλικ στο OK κουμπί.

4. Προχωρήστε για να κάνετε κλικ Βαθμολογία Κριτικής > Προστατέψτε το φύλλο. Δείτε το στιγμιότυπο οθόνης:

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

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


Προστατέψτε ταυτόχρονα πολλά / όλα τα φύλλα εργασίας με κωδικό πρόσβασης στο τρέχον βιβλίο εργασίας:

Το Microsoft Excel σάς επιτρέπει να προστατεύετε ένα φύλλο εργασίας με κωδικό πρόσβασης κάθε φορά. Εδώ μπορείτε να χρησιμοποιήσετε το Προστατέψτε το φύλλο εργασίας και Αποπροστασία φύλλου εργασίας βοηθητικά προγράμματα της Kutools για Excel για γρήγορη προστασία ή αποπροστασία πολλών φύλλων εργασίας ή όλων των φύλλων εργασίας στο τρέχον βιβλίο εργασίας με κωδικό πρόσβασης ταυτόχρονα.
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)


Κάντε το κελί ως μόνο για ανάγνωση με κωδικό VBA χωρίς προστασία φύλλου εργασίας

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

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

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Κάντε το κελί ως μόνο για ανάγνωση στο Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
            MsgBox Cells(Target.Row, Target.Column).Address & " cannot be selected and edited as it is a read-only cell", _
            vbInformation, "Kutools for Excel"
        End If
    End If
End Sub

Note: Αυτός ο κωδικός μπορεί να κάνει συγκεκριμένα κελιά σε μία στήλη ως μόνο για ανάγνωση. Σε αυτόν τον κώδικα, θα κάνει τα κελιά A3, A4 και A5 ως μόνο για ανάγνωση στο τρέχον φύλλο εργασίας.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Όταν κάνετε κλικ στα κελιά A3, A4 ή A5 στο τρέχον φύλλο εργασίας, θα λάβετε ένα Kutools για Excel το παράθυρο διαλόγου όπως φαίνεται παρακάτω, και ο δρομέας θα μετακινηθεί αυτόματα στο δεξί παρακείμενο κελί.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very useful!!
This comment was minimized by the moderator on the site
Hi! How about if i want to just make 1 column editable and the rest uneditable? Thanks!
This comment was minimized by the moderator on the site
Hi Jac,
Please click on the column header to select the whole column, then do the steps mentioned in the post to unlock the column cells then protect the worksheet.
This comment was minimized by the moderator on the site
every usefull, thank you with gratitude
This comment was minimized by the moderator on the site
Thanks for the quick guidance.
This comment was minimized by the moderator on the site
Hi



I have mulipe sheets Menu ( option A1& A2) , A1 and A2 and VIEW work sheets ( where i will have BROWSE button) .



1. In menu i will select A1..

2. it will go to VIEW sheet ( which is working fine) till now ..

3. when i click on the BROWSE in the VIEW sheet A1 shee shoulf get displayed and the content present in the cells should be non editable..



Could you please help..
This comment was minimized by the moderator on the site
Good day,
Supposing there is a Command Button (ActiveX Control) in the View sheet. After inserting the below VBA into the worksheet code window, click on the button, in a popping up Kutools for Excel dialog box, specify a password to protect the sheet A1. Then sheet A1 is opened and non editable.

Private Sub CommandButton1_Click()
Dim xSheet As Worksheet
Dim xStr As String
On Error Resume Next
Set xSheet = Sheets("A1")
If xSheet Is Nothing Then Exit Sub
xSheet.UsedRange.Locked = True
xStr = Application.InputBox("Please specify a password to protect the sheet A1", "KuTools for Excel", , , , , , 2)
If xStr = False Or xStr = "" Then Exit Sub
xSheet.Protect xStr
xSheet.Activate
End Sub
This comment was minimized by the moderator on the site
i just want to make few cells of a book locked for input, only they shows the result as i programmed them to do so
This comment was minimized by the moderator on the site
Hey, Thanks a lot for this steps.


However, what if I want to copy the values in the cells that I have locked?
This comment was minimized by the moderator on the site
Dear Yahia,
The locked cells in a protected worksheet can't be copied.
This comment was minimized by the moderator on the site
Very Helpful. Thanks ! :D
This comment was minimized by the moderator on the site
Dear i want to protect the hidden cells from by copying to the new sheet, is there any option in the excel sheet for that. Means no can able to view the formulaes after copying from one sheet to other sheet.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations