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

Πώς να προστατεύσετε όλα τα βιβλία εργασίας σε ένα φάκελο ταυτόχρονα στο Excel;

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

Προστατέψτε τα βιβλία εργασίας σε ένα φάκελο ταυτόχρονα με το VBA

Προστατέψτε πολλά φύλλα ταυτόχρονα με το Kutools για Excel καλή ιδέα3

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

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

1. Ενεργοποιήστε ένα νέο βιβλίο εργασίας και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για Εφαρμογήns παράθυρο και κάντε κλικ στο Κύριο θέμα > ενότηταe, και επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης γραφή.

VBA: Προστατέψτε τα βιβλία εργασίας σε ένα φάκελο.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 1

2. Τύπος F5 κλειδί και a Επιλέξτε ένα φάκελο εμφανίζεται ένα παράθυρο για να επιλέξετε έναν φάκελο για να προστατεύσετε όλα τα φύλλα εργασίας του.
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 2

3. κλικ OK και εμφανίζεται ένας διάλογος για την εισαγωγή κωδικού πρόσβασης για την προστασία των βιβλίων εργασίας.
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 3

4. κλικ OK, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι όλα τα βιβλία εργασίας στον επιλεγμένο φάκελο έχουν προστατευθεί επιτυχώς με έναν κωδικό πρόσβασης.
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 4

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

Άκρο: Αυτός ο κωδικός λειτουργεί για την έκδοση 2007 ή νεότερη έκδοση του Excel, εάν θέλετε να την εφαρμόσετε για την προστασία της χαμηλότερης έκδοσης, μπορείτε να την αλλάξετε xFile = "* .xls" προς την xFile = "* .xlsx" στον κώδικα.


βέλος μπλε δεξιά φούσκα Προστατέψτε πολλά φύλλα ταυτόχρονα με το Kutools για Excel

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

Kutools για Excel, με περισσότερα από 120 εύχρηστες λειτουργίες Excel, βελτιώστε την αποδοτικότητα εργασίας σας και εξοικονομήστε χρόνο εργασίας σας.

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να προστατεύσετε τα φύλλα του και κάντε κλικ στο Εταιρεία > Προστατέψτε το φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 6

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

3. κλικ Okκαι εμφανίζεται ένα άλλο παράθυρο διαλόγου για να εισαγάγετε και να πληκτρολογήσετε ξανά τον κωδικό πρόσβασης, δείτε το στιγμιότυπο οθόνης:
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 8

4. κλικ Okκαι εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι προστατεύετε με επιτυχία τα φύλλα εργασίας.
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 9

Για την προστασία από αυτά τα φύλλα, πρέπει απλώς να κάνετε κλικ Εταιρεία > Αποπροστασία φύλλου εργασίας για να εισαγάγετε κωδικό πρόσβασης για την προστασία.
doc προστατεύει όλα τα βιβλία εργασίας ένα φάκελο 10

λήψη εγγράφου 1

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did all the steps and there was dialogue box saying it's successful but when I open the files, they are opening up without any password.
This comment was minimized by the moderator on the site
am using a mac, and when i click on the F5 key it does not work for me, please how can I resolve it?
This comment was minimized by the moderator on the site
Hi, you can try option - F8 keys. But I only tested this VBA in Microsoft system, I do not know if it work in Mac.
This comment was minimized by the moderator on the site
Brilliant. Saves me nearly an hour every month. Thank you.
This comment was minimized by the moderator on the site
can you do the same code but for unprotecting? with option to browse for the folder
This comment was minimized by the moderator on the site
I'm getting a syntax error for the following: <span style="background-color...
This comment was minimized by the moderator on the site
Did you fix this ? How?
This comment was minimized by the moderator on the site
only remove them
This comment was minimized by the moderator on the site
workbook protect ...great program.... very helpful
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations