Salt la conținutul principal

Cum se setează parola pentru a proteja foaia ascunsă în Excel?

Dacă aveți un registru de lucru care conține câteva foi de lucru ascunse importante și nu permiteți altora să le dezvăluie. Acum, trebuie să setați o parolă pentru a proteja complet foile de lucru ascunse, atunci când alți utilizatori le dezvăluie, trebuie să introducă parola. Aveți vreo modalitate de a face față acestei sarcini rapid și ușor în Excel?

Setați parola pentru a proteja foile ascunse cu funcția VeryHidden

Setați parola pentru a proteja foaia ascunsă cu codul VBA

Protejați mai multe foi de lucru simultan cu Kutools pentru Excel


Setați parola pentru a proteja foile ascunse cu funcția VeryHidden

În mod normal, puteți utiliza funcția VeryHidden pentru a ascunde mai întâi foile de lucru și apoi setați o parolă pentru acestea, procedați după cum urmează:

1. Deschideți registrul de lucru și țineți apăsat Alt + F11tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. În Fereastra Microsoft Visual Basic pentru aplicații, Faceți clic pe Vizualizare > Explorator de proiecte și Fereastra Proprietăți to afișați panourile lor.

doc-protect-hidden-sheets-01

3. Și apoi în Proiect-VBAProject , alegeți foaia de lucru pe care doriți să o ascundeți și în Proprietăţi , faceți clic pe lista derulantă din Vizibil secțiune de selectat xlSheetVeryHidden opțiune, vezi captura de ecran:

doc-protect-hidden-sheets-02

4. După ce faceți foaia de lucru foarte ascunsă, puteți seta o parolă pentru ao proteja. În Fereastra Microsoft Visual Basic pentru aplicații, Faceți clic pe Insera > Module pentru a deschide un modul gol, apoi faceți clic pe Instrumente > Proprietăți VBAProject, vezi captura de ecran:

doc-protect-hidden-sheets-03

5. Apoi a ieșit Proprietăți VBAProject-Project casetă de dialog, faceți clic pe Protecţie , apoi verificați Proiect de blocare pentru vizualizare caseta, în cele din urmă, introduceți și confirmați parola în Parolă pentru a vizualiza proprietățile proiectului secțiune, vezi captura de ecran:

doc-protect-hidden-sheets-04

6. Apoi apasa OK pentru a ieși din acest dialog și a închide butonul Fereastra Microsoft Visual Basic pentru aplicații.

7. Salvați registrul de lucru ca Cartea de lucru Excel Macro-Enabled formatează-l și închide-l pentru a face ca protecția prin parolă să intre în vigoare.

doc-protect-hidden-sheets-05

8. Data viitoare, când deschideți acest registru de lucru și doriți să faceți foile foarte ascunse să fie vizibile, vi se solicită să introduceți o parolă. Vedeți captura de ecran:

doc-protect-hidden-sheets-06


Demo: setați parola pentru a proteja foile ascunse


Setați parola pentru a proteja foaia ascunsă cu codul VBA

Pentru a seta o parolă pentru a proteja foile ascunse, pot vorbi despre un cod VBA pentru dvs.

1. Ascundeți o foaie de lucru pe care doriți să o protejați.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

3. Atunci alege Acest manual de lucru din stânga Explorator de proiecte, faceți dublu clic pe acesta pentru a deschide fișierul Module, apoi copiați și lipiți următorul cod VBA în modulul gol:

Cod VBA: setați parola pentru a proteja foaia ascunsă

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-protect-hidden-sheets-07

notițe: În codul de mai sus, Sheet1 a xSheetName = "Sheet1" scriptul este numele foii de lucru ascunse pe care doriți să îl protejați și 123456 în Dacă răspuns = "123456" Atunci scriptul este parola pe care ați setat-o ​​pentru foaia ascunsă. Le puteți schimba după nevoile dvs.

4. Acum, când doriți să afișați foaia ascunsă, va apărea o casetă de solicitare pentru a vă permite să introduceți parola. Și această casetă de prompt va apărea de fiecare dată, când faceți clic pentru a afișa foaia ascunsă.

doc-protect-hidden-sheets-08


Protejați mai multe foi de lucru simultan cu Kutools pentru Excel

Dacă doriți să protejați mai multe foi selectate sau toate foile de lucru dintr-un registru de lucru simultan, în mod normal, trebuie să vă protejați unul câte unul manual în Excel. Dar, dacă ai Kutools pentru Excel, Cu său Protejați foaia de lucru utilitar, le puteți proteja cu un singur clic.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Clic Kutools Plus > Protejați foaia de lucru, vezi captura de ecran:

2. În Protejați foaia de lucru casetă de dialog, toate foile de lucru din registrul de lucru sunt listate în caseta de listă, vă rugăm să alegeți foile de lucru pe care doriți să le protejați. Vedeți captura de ecran:

doc-protect-hidden-sheets-010

3. Apoi faceți clic pe OK, în următoarea casetă de dialog, vă rugăm să introduceți parola și să o tastați din nou, apoi să faceți clic pe OK, va apărea o altă casetă de prompt pentru a vă reaminti câte foi de lucru au fost protejate.

doc-protect-hidden-sheets-011

4. Apoi apasa OK pentru a închide casetele de dialog și toate foile de lucru din registrul de lucru au fost protejate cu aceeași parolă.

Notă: Dacă doriți să protejați toate foile de lucru simultan, trebuie doar să faceți clic Kutools Plus > Desprotejați foaia de lucruși introduceți parola pentru a anula protecția.

 Descărcați și proba gratuită Kutools pentru Excel acum!


Legate de articole:

Cum să protejați mai multe foi de lucru simultan în Excel?

Cum se setează o parolă pentru a proteja registrul de lucru?

Cum să protejați / blocați codul VBA în Excel?

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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