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

Πώς να επιτρέψετε την επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας στο Excel;

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

Επιτρέψτε την επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας επιλέγοντας την επιλογή Επεξεργασία αντικειμένων
Να επιτρέπεται η επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας με κώδικα VBA


Επιτρέψτε την επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας επιλέγοντας την επιλογή Επεξεργασία αντικειμένων

Επιλέξτε την επιλογή Επεξεργασία αντικειμένων για να επιτρέψετε την επεξεργασία αντικειμένων πριν από την προστασία του φύλλου εργασίας. Παρακαλώ κάντε το εξής.

1. κλικ Βαθμολογία Κριτικής > Προστατέψτε το φύλλο.

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

Τώρα το φύλλο εργασίας προστατεύεται και όλα τα αντικείμενα σε αυτό το προστατευμένο φύλλο εργασίας είναι επεξεργάσιμα.


Να επιτρέπεται η επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας με κώδικα VBA

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

1. Πάτα το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στα αριστερά Σχέδιο τζάμι. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο.

Κώδικας VBA: Να επιτρέπεται η επεξεργασία αντικειμένων σε προστατευμένο φύλλο εργασίας

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Note: Στον κώδικα, το Sheet3 είναι το προστατευμένο φύλλο εργασίας που περιέχει τα αντικείμενα που πρέπει να επεξεργαστείτε. Και ο αριθμός "123" είναι ο κωδικός πρόσβασης του προστατευμένου φύλλου. Αλλάξτε τα όπως χρειάζεστε.

3. Πάτα το F5 κλειδιά για την εκτέλεση του κώδικα και όλα τα αντικείμενα σε αυτό το προστατευμένο φύλλο εργασίας είναι άμεσα επεξεργάσιμα.


Σχετικά Άρθρα:

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

🤖 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations