Note: The other languages of the website are Google-translated. Back to English
Σύνδεση Εγγραφή

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

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

Προστατέψτε όλα τα φύλλα ταυτόχρονα με τον κωδικό VBA

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

Καταργήστε την προστασία πολλών φύλλων ταυτόχρονα με kutools για Excel

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

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

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Προστατέψτε όλα τα φύλλα εργασίας σε ένα βιβλίο εργασίας ταυτόχρονα:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

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

doc-protect-πολλαπλά φύλλα1-1

4. Κλίκ OKκαι, στη συνέχεια, εισαγάγετε ξανά τον κωδικό πρόσβασης για να επιβεβαιώσετε τον κωδικό πρόσβασης.

doc-protect-πολλαπλά φύλλα2-2

5. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι όλα τα φύλλα έχουν προστατευτεί με τον ίδιο κωδικό πρόσβασης.

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

Μερικές φορές, δεν θέλετε να προστατεύσετε όλα τα φύλλα στο βιβλίο εργασίας σας και θέλετε μόνο να προστατεύσετε ορισμένα συγκεκριμένα φύλλα, σε αυτήν την περίπτωση, ο παραπάνω κώδικας δεν θα λειτουργήσει. Αλλά με Kutools για Excel'S Προστατέψτε το φύλλο εργασίας βοηθητικό πρόγραμμα, μπορείτε να προστατεύσετε τόσο όλα τα φύλλα όσο και τα συγκεκριμένα φύλλα γρήγορα και εύκολα.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. 
Μεταβείτε στη Λήψη
Δωρεάν δοκιμή 60 ημέρεςΑγορά
PayPal / MyCommerce

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής βήματα:

1. Κλίκ Kutools Plus > Προστατέψτε το φύλλο εργασίας, δείτε το στιγμιότυπο οθόνης:

2. Στην Προστατέψτε το φύλλο εργασίας πλαίσιο διαλόγου, επιλέξτε τα φύλλα που θέλετε να προστατεύσετε. (Από προεπιλογή, όλα τα φύλλα εργασίας στο τρέχον βιβλίο εργασίας είναι επιλεγμένα.) Δείτε το στιγμιότυπο οθόνης:

doc-protect-πολλαπλά φύλλα4-4

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

doc-protect-πολλαπλά φύλλα5-5

4. Στη συνέχεια κάντε κλικ στο κουμπί OK, τα επιλεγμένα φύλλα εργασίας έχουν προστατευτεί.

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

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

Πώς θα μπορούσατε να προστατεύσετε ταυτόχρονα πολλά προστατευμένα φύλλα εργασίας σε ένα βιβλίο εργασίας; Φυσικά, Kutools για Excel παρέχει επίσης το Αποπροστασία φύλλου εργασίας βοηθητικό πρόγραμμα για να τα προστατεύσετε ταυτόχρονα.

Κάντε τα παρακάτω βήματα:

1. Ανοίξτε το βιβλίο εργασίας σας που περιέχει τα προστατευμένα φύλλα εργασίας.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools Plus > Αποπροστασία φύλλου εργασίας, δείτε το στιγμιότυπο οθόνης:

3. Στην Αποπροστασία φύλλου εργασίας πλαίσιο διαλόγου, τα προστατευμένα φύλλα είναι λίστα στο πλαίσιο λίστας και, στη συνέχεια, κάντε κλικ στο Ok κουμπί, δείτε το στιγμιότυπο οθόνης:

doc-protect-πολλαπλά φύλλα7-7

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

doc-protect-πολλαπλά φύλλα8-8

5. Αφού πληκτρολογήσετε τον κωδικό πρόσβασης, κάντε κλικ στο Ok, όλα τα επιλεγμένα φύλλα εργασίας στο πλαίσιο λίστας δεν προστατεύονται.

Σημείωση: Τα φύλλα εργασίας πρέπει να έχουν τον ίδιο κωδικό πρόσβασης.

Για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Μη προστατευμένο φύλλο εργασίας

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

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

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικό άρθρο:

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

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (21)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Κριστίν Τζουγκάν
Κριστίν Τζουγκάν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπέροχα -- λοιπόν, πώς να τα καταργήσετε την προστασία όλων ταυτόχρονα; Είμαι ερασιτέχνης, οπότε χρειάζομαι περισσότερες πληροφορίες.
απάντηση
0
0
Admin_jay
Admin_jay     Κριστίν Τζουγκάν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Τέλεια -- πώς να τα καταργήσετε την προστασία όλα ταυτόχρονα; Είμαι ερασιτέχνης, οπότε χρειάζομαι περισσότερες πληροφορίες.Της Kristin Dzugan[/quote] :-) Μπορείτε εύκολα να τα καταργήσετε την προστασία ως http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
απάντηση
0
0
N1ckol3
N1ckol3     Κριστίν Τζουγκάν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") Εάν Όχι (pass = repass) Τότε MsgBox "κάνατε ένα boo boo" GoTo top End If For i = 1 To Sheets .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Νομίζω ότι έχετε κάποια φύλλα που είναι ήδη προστατευμένα. Καταργήστε την προστασία όλων των φύλλων B4 που εκτελούν αυτήν τη μακροεντολή." End Sub
απάντηση
0
0
shweta
shweta
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ πάρα πολύ :-)
απάντηση
0
0
Κ. Β
Κ. Β
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όπως είπε και η Kristin, πώς να τα ξεπροστατέψεις όλα ταυτόχρονα;
απάντηση
0
0
cz
cz     Κ. Β
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λοιπόν, πώς μπορώ να καταργήσω την προστασία χωρίς kutools;
απάντηση
0
0
Admin-chivo
Admin-chivo     cz
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Λοιπόν, πώς μπορώ να καταργήσω την προστασία χωρίς kutools;Από cz[/quote] Μπορείτε να καταργήσετε την προστασία του φύλλου εργασίας χωρίς Kutools για Excel. Απλώς πρέπει να κάνετε δεξί κλικ στην καρτέλα του φύλλου που θέλετε να καταργήσετε την προστασία και να κάνετε κλικ στην εντολή Κατάργηση προστασίας φύλλου και, στη συνέχεια, να εισαγάγετε τον κωδικό πρόσβασής σας. :-)
απάντηση
0
0
Ακατέργαστος Γκένγκις
Ακατέργαστος Γκένγκις
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όταν εισάγω τον κωδικό εμφανίζεται με "run time error 1004??" επισημαίνοντας με κίτρινο το εξής... s.Protect Password:=pass
απάντηση
0
0
Lightdemon
Lightdemon     Ακατέργαστος Γκένγκις
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξαφνικά έχω και το σφάλμα 1004. Χρησιμοποιώ τη μακροεντολή εδώ και μήνες, αλλά τώρα δεν εκτελείται.
απάντηση
0
0
Μισέλ ΜακΓκρέγκορ
Μισέλ ΜακΓκρέγκορ     Lightdemon
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, είχα κι εγώ αυτό το θέμα. Αποδεικνύεται ότι δεν μπορεί να εκτελεστεί εάν έχετε επιλέξει όλα τα φύλλα στο βιβλίο εργασίας. Δοκιμάστε να επιλέξετε μόνο ένα φύλλο και μετά να εκτελέσετε.
απάντηση
0
0
Lightdemon
Lightdemon
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξαφνικά αντιμετωπίζω το πρόβλημα με το σφάλμα 1004. Χρησιμοποιώ τη μακροεντολή εδώ και μήνες, αποτυγχάνει τυχαία.
απάντηση
0
0
Lightdemon
Lightdemon
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξαφνικά έχω και το σφάλμα 1004. Βρίσκει κανείς λύση;
απάντηση
0
0
etan
etan
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όταν ενεργοποίησα αυτό το VBA, υπερσυνδέσμου δεν λειτουργεί. πώς μπορώ να τα κάνω να λειτουργήσουν; tnx :)
απάντηση
0
0
N1ckole
N1ckole
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ! Αυτό είναι φοβερό, μπόρεσα ακόμη και να τροποποιήσω τον κώδικα VBA ώστε να μπορώ να καταργήσω την προστασία όλων των φύλλων ταυτόχρονα! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Επαλήθευση κωδικού πρόσβασης") Εάν όχι (pass = repass) Τότε MsgBox "κάνατε ένα boo boo" GoTo top Τέλος If For i = 1 Σε φύλλα εργασίας.Μετρήστε επόμενο για κάθε s στο ActiveWorkbook.Φύλλα εργασίας s.Κατάργηση προστασίας κωδικού πρόσβασης:=πέρασμα Επόμενο Έξοδος Sub oops: MsgBox "Νομίζω ότι έχετε κάποια φύλλα που είναι ήδη προστατευμένα. Καταργήστε την προστασία όλων των φύλλων B4 που εκτελούν αυτήν τη μακροεντολή." End Sub
απάντηση
0
0
Zuber
Zuber
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, χρειάζομαι βοήθεια, ο παραπάνω κώδικας ήταν πολύ χρήσιμος, αλλά κλειδώνει την ταξινόμηση (και αυτόματο φίλτρο) μπορείτε να δώσετε κώδικα για να λύσετε αυτό το πρόβλημα και επίσης πού θα εισαχθεί. Ευχαριστώ εκ των προτέρων.
απάντηση
0
0
Σ. Μπράουν
Σ. Μπράουν
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω καρτέλες γραφήματος και φύλλα εργασίας στο βιβλίο εργασίας του Excel 2013. Η παραπάνω κωδικοποίηση VBA λειτουργεί για την προστασία των φύλλων εργασίας αλλά όχι για τις ξεχωριστές καρτέλες του γραφήματος. Πώς μπορώ να προστατεύσω με κωδικό πρόσβασης τις πολλαπλές καρτέλες του γραφήματος και τα πολλά φύλλα εργασίας στο βιβλίο εργασίας μου; Ευχαριστώ!
απάντηση
0
0
Τζέιμς ΜακΦέρσον
Τζέιμς ΜακΦέρσον
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, χρησιμοποίησα αυτόν τον κωδικό τώρα και δεν θα αποδεχτώ τον κωδικό πρόσβασής μου για να επιστρέψω στο υπολογιστικό φύλλο μου!!
απάντηση
0
0
Αντάρα
Αντάρα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να κρύψω τον κωδικό πρόσβασης χρησιμοποιώντας τη μέθοδο VBA; Δεν μπορώ να βρω αυτές τις πληροφορίες μέσω αρχείων βοήθειας google ή F1. Ευχαριστώ εκ των προτέρων!
απάντηση
0
0
Geetha
Geetha
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε για το καταπληκτικό εργαλείο για την προστασία και την κατάργηση της προστασίας όλων των φύλλων κάθε φορά. Παρακαλώ καθοδηγήστε με. Μπορώ να καταργήσω την προστασία όλων των φύλλων στο βιβλίο εργασίας μου κάθε φορά, αλλά όταν εκτελώ προστασία όλων των φύλλων Κώδικας VBA, τότε μόνο τα πρώτα 4 φύλλα προστατεύονται και ξεκουράζονται ή αφήνονται απροστάτευτα. Παρακαλώ βοηθήστε με να λύσω το πρόβλημα.
απάντηση
0
0
Γεώργιος
Γεώργιος
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να το χρησιμοποιήσω σε ένα κοινόχρηστο βιβλίο εργασίας, αλλά λαμβάνω ένα σφάλμα της Microsoft Visual Basic "Σφάλμα χρόνου εκτέλεσης '1004": Σφάλμα που καθορίζεται από την εφαρμογή ή το αντικείμενο" Αναζητώ απλώς προτάσεις για το πώς να το αντιμετωπίσω. Οποιοδήποτε η βοήθεια θα εκτιμηθεί
απάντηση
0
0
Roger Woolnough
Roger Woolnough     Γεώργιος
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εμφανίζεται όταν το φύλλο είναι ήδη κλειδωμένο
απάντηση
0
0
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Επισκέπτης
Δημοσίευση ως επισκέπτης
Σύνδεση
×
Αξιολογήστε αυτήν την ανάρτηση:
Επαναφορά
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL