Note: The other languages of the website are Google-translated. Back to English

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 unelte > 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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am o întrebare despre codul dvs. de lucru cu restricție prin parolă. Ați postat următorul cod care funcționează... ceea ce caut este codul care va face acest lucru cu mai multe foi de lucru și mai multe parole în același registru de lucru. Este posibil? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" Dacă Application.ActiveSheet.Name = xSheetName Apoi Application.EnableEvents = False Application.ActiveSheet.TitleI = for False "x"Kutools Application = for Excel .InputBox(„Parolă”, xTitleId, „”, Type:=2) Dacă răspuns = „123456” Apoi Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Selectați End If End If Application.Sheets( xSheetName).Visible = True Application.EnableEvents = True End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ai găsit încă o soluție?

Am aceeasi problema
Acest comentariu a fost redus la minimum de moderatorul de pe site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName ca șir
aSheetName = „foaia1”
bSheetName = „foaia2”
cSheetName = „foaia3”

Dacă Application.ActiveSheet.Name = aSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "1234" Atunci
Application.Sheets(aSheetName).Visible = True
Aplicație.Foaie(aSheetName).Selectați
Altfel
Application.Sheets(aSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

Dacă Application.ActiveSheet.Name = bSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "2345" Atunci
Application.Sheets(bSheetName).Visible = True
Aplicație.Foaie(bSheetName).Selectați
Altfel
Application.Sheets(bSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

Dacă Application.ActiveSheet.Name = cSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "3456" Atunci
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Altfel
Application.Sheets(cSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName ca șir
Dim bSheetName ca șir
Dim cSheetName ca șir
aSheetName = „foaia1”
bSheetName = „foaia2”
cSheetName = „foaia3”

Dacă Application.ActiveSheet.Name = aSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "123" Atunci
Application.Sheets(aSheetName).Visible = True
Aplicație.Foaie(aSheetName).Selectați
Altfel
Application.Sheets(aSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

Dacă Application.ActiveSheet.Name = bSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "456" Atunci
Application.Sheets(bSheetName).Visible = True
Aplicație.Foaie(bSheetName).Selectați
Altfel
Application.Sheets(bSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

Dacă Application.ActiveSheet.Name = cSheetName Atunci
Application.EnableEvents = Fals
Application.ActiveSheet.Visible = Fals
xTitleId = „KutoolsforExcel”
răspuns = Application.InputBox(„Parolă”, xTitleId, „”, Type:=2)
Dacă răspuns = "789" Atunci
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Altfel
Application.Sheets(cSheetName).Visible = False
Final, dacă
Final, dacă
Application.EnableEvents = Adevărat

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru cod, am doar o întrebare. Când deschideți foaia vi se pune întrebarea, apoi o introduceți și foaia este vizibilă, dar când săriți la foaia următoare și încercați să redeschideți foaia anterioară, vi se cere din nou aceeași parolă de fiecare dată. Întrebarea mea este că poți ocoli asta și poți face Excel să ceară parola o dată?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul dvs. permite utilizatorilor să vadă foaia atâta timp cât țin apăsat butonul stâng al mouse-ului în timp ce indicatorul mouse-ului este pe filă. Încercați acest lucru pentru a păstra foaia ascunsă până când este introdusă parola corectă: Dacă răspuns = „123456” Apoi 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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este elegant. DACĂ persoana care deschide foaia de calcul nu activează macrocomenzi (adică VBA), ce se întâmplă? Cearşaful ascuns este o raţă aşezată? Sau este destul de imposibil de găsit?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna David,
Dacă deschideți registrul de lucru fără a activa macrocomanda, foaia ascunsă este afișată normal. In acest caz iti recomand sa aplici prima metoda de rezolvare a acestui job.
Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe 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?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, ciekawa

Ne pare rău, în prezent, nu există o modalitate bună de a anula protecția foii ascunse dacă uitați parola.

Dar, puteți aplica Ascunde toate foile ascunse caracteristică a Kutools pentru Excel pentru a ascunde toate foile ascunse fără nicio parolă.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
Puteți descărca Kutools pentru Excel și folosiți-l liber timp de 30 de zile.
Vă rugăm să încercați. Mulțumesc!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL