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

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

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

Ορίστε κωδικό πρόσβασης για την προστασία κρυφών φύλλων με λειτουργία VeryHidden

Ορίστε κωδικό πρόσβασης για την προστασία κρυμμένου φύλλου με κωδικό VBA

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


Ορίστε κωδικό πρόσβασης για την προστασία κρυφών φύλλων με λειτουργία VeryHidden

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

1. Ανοίξτε το βιβλίο εργασίας σας και κρατήστε πατημένο Alt + F11για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Στην Παράθυρο Microsoft Visual Basic for Applications, Κλίκ Δες > Εξερεύνηση έργου και Παράθυρο ιδιοτήτων to εμφανίστε τα παράθυρα τους.

doc-προστασία-κρυμμένα-φύλλα-01

3. Και μετά στο Έργο-VBAProject στο παράθυρο, επιλέξτε το φύλλο εργασίας που θέλετε να αποκρύψετε και στο Ιδιοκτησίες παράθυρο, κάντε κλικ στην αναπτυσσόμενη λίστα από το Ορατός για να επιλέξετε xlSheetVeryHidden επιλογή, δείτε το στιγμιότυπο οθόνης:

doc-προστασία-κρυμμένα-φύλλα-02

4. Αφού κάνετε το φύλλο εργασίας πολύ κρυφό, μπορείτε να ορίσετε έναν κωδικό πρόσβασης για να το προστατεύσετε. Στο Παράθυρο Microsoft Visual Basic for Applications, Κλίκ Κύριο θέμα > Μονάδα μέτρησης για να ανοίξετε μια κενή λειτουργική μονάδα και, στη συνέχεια, κάντε κλικ στο Εργαλεία > Ιδιότητες VBAProject, δείτε το στιγμιότυπο οθόνης:

doc-προστασία-κρυμμένα-φύλλα-03

5. Στη συνέχεια, βγήκε έξω VBAProject-Project Properties , κάντε κλικ στην επιλογή Απάτη καρτέλα και, στη συνέχεια, ελέγξτε Κλείδωμα έργου για προβολή κουτί, τέλος, εισάγετε και επιβεβαιώστε τον κωδικό πρόσβασης στο Κωδικός πρόσβασης για προβολή ιδιοτήτων έργου ενότητα, δείτε το στιγμιότυπο οθόνης:

doc-προστασία-κρυμμένα-φύλλα-04

6. Στη συνέχεια κάντε κλικ στο κουμπί OK για έξοδο από αυτό το παράθυρο διαλόγου και κλείστε το Παράθυρο Microsoft Visual Basic for Applications.

7. Αποθηκεύστε το βιβλίο εργασίας ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφοποιήστε και κλείστε το για να τεθεί σε ισχύ η προστασία με κωδικό πρόσβασης.

doc-προστασία-κρυμμένα-φύλλα-05

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

doc-προστασία-κρυμμένα-φύλλα-06


Επίδειξη: Ορισμός κωδικού πρόσβασης για προστασία κρυφών φύλλων


Ορίστε κωδικό πρόσβασης για την προστασία κρυμμένου φύλλου με κωδικό VBA

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

1. Απόκρυψη ενός φύλλου εργασίας που θέλετε να προστατεύσετε.

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

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

Κωδικός VBA: Ορισμός κωδικού πρόσβασης για προστασία κρυμμένου φύλλου

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-προστασία-κρυμμένα-φύλλα-07

Note: Στον παραπάνω κώδικα, Sheet1 του xSheetName = "Φύλλο1" Το σενάριο είναι το κρυφό όνομα φύλλου εργασίας που θέλετε να προστατεύσετε και 123456 στο Αν η απάντηση = "123456" τότε script είναι ο κωδικός πρόσβασης που έχετε ορίσει για το κρυφό φύλλο. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

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

doc-προστασία-κρυμμένα-φύλλα-08


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

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

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

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

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

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

doc-προστασία-κρυμμένα-φύλλα-010

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

doc-προστασία-κρυμμένα-φύλλα-011

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

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

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


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

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

Πώς να ορίσετε έναν κωδικό πρόσβασης για την προστασία του βιβλίου εργασίας;

Πώς να προστατεύσετε / κλειδώσετε τον κώδικα VBA στο Excel;

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

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