Ga naar hoofdinhoud

Hoe stel ik een wachtwoord in om een ​​verborgen blad in Excel te beschermen?

Als u een werkmap heeft die enkele belangrijke verborgen werkbladen bevat en anderen niet toestaat deze zichtbaar te maken. Nu moet u een wachtwoord instellen om de verborgen werkbladen volledig te beschermen. Wanneer andere gebruikers deze zichtbaar maken, moeten ze het wachtwoord invoeren. Heeft u een manier om deze taak snel en gemakkelijk in Excel af te handelen?

Stel een wachtwoord in om verborgen bladen te beschermen met de VeryHidden-functie

Stel een wachtwoord in om het verborgen blad te beschermen met VBA-code

Bescherm meerdere werkbladen tegelijk met Kutools voor Excel


Stel een wachtwoord in om verborgen bladen te beschermen met de VeryHidden-functie

Normaal gesproken kunt u de VeryHidden-functie gebruiken om de werkbladen eerst te verbergen en vervolgens een wachtwoord voor hen in te stellen, doe dit als volgt:

1. Open je werkmap en houd vast Alt + F11toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. In de Microsoft Visual Basic for Applications-venster, Klik Bekijk > Projectverkenner en Eigenschappenvenster to hun ruiten weergeven.

doc-protect-verborgen-bladen-01

3. En dan in de Project-VBAProject kies het werkblad dat u wilt verbergen en kies in het Properties klik op de vervolgkeuzelijst in het Zichtbaar sectie om te selecteren xlBladZeerVerborgen optie, zie screenshot:

doc-protect-verborgen-bladen-02

4. Nadat u het werkblad erg verborgen heeft gemaakt, kunt u een wachtwoord instellen om het te beschermen. In de Microsoft Visual Basic for Applications-venster, Klik Invoegen > Module om een ​​lege module te openen, en klik vervolgens op Tools > VBAProject Eigenschappen, zie screenshot:

doc-protect-verborgen-bladen-03

5. Toen kwam het eruit VBAProject-Project Eigenschappen dialoogvenster, klik Bescherming tabblad en controleer vervolgens Vergrendel project om te bekijken Voer ten slotte het wachtwoord in het Wachtwoord om projecteigenschappen te bekijken sectie, zie screenshot:

doc-protect-verborgen-bladen-04

6. Dan klikken OK om dit dialoogvenster te verlaten en het Microsoft Visual Basic for Applications-venster.

7. Sla de werkmap op als Excel-werkmap met ingeschakelde macro's formatteer en sluit het om de wachtwoordbeveiliging van kracht te laten worden.

doc-protect-verborgen-bladen-05

8. De volgende keer dat u deze werkmap opent en de zeer verborgen bladen zichtbaar wilt maken, wordt u gevraagd een wachtwoord in te voeren. Zie screenshot:

doc-protect-verborgen-bladen-06


Demo: stel een wachtwoord in om verborgen bladen te beschermen


Stel een wachtwoord in om het verborgen blad te beschermen met VBA-code

Om een ​​wachtwoord in te stellen om de verborgen bladen te beschermen, kan ik ook praten over een VBA-code voor u.

1. Verberg een werkblad dat u wilt beschermen.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

3. Kies dan Dit Werkboek van links Projectverkenner, dubbelklik erop om het Module, en kopieer en plak vervolgens de volgende VBA-code in de lege module:

VBA-code: stel een wachtwoord in om het verborgen blad te beschermen

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-verborgen-bladen-07

Note: In de bovenstaande code, Sheet1 van de xSheetName = "Blad1" script is de verborgen werkbladnaam die u wilt beschermen, en 123456 in de Als response = "123456" Dan script is het wachtwoord dat u instelt voor het verborgen blad. U kunt ze aanpassen aan uw behoefte.

4. Als u nu het verborgen blad wilt weergeven, verschijnt er een promptvenster waarin u het wachtwoord kunt invoeren. En dit promptvenster verschijnt elke keer wanneer u klikt om het verborgen blad weer te geven.

doc-protect-verborgen-bladen-08


Bescherm meerdere werkbladen tegelijk met Kutools voor Excel

Als u meerdere geselecteerde of alle werkbladen van een werkmap tegelijk wilt beveiligen, moet u normaal gesproken een voor een handmatig beveiligen in Excel. Maar als je dat hebt gedaan Kutools for Excel, Met Bescherm werkblad hulpprogramma, kunt u ze met één klik beschermen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Klikken Koetools Plus > Bescherm werkblad, zie screenshot:

2. In de Bescherm werkblad dialoogvenster, worden alle werkbladen in de werkmap weergegeven in de keuzelijst, kies de werkbladen die u wilt beschermen. Zie screenshot:

doc-protect-verborgen-bladen-010

3. En klik vervolgens op OK, voer in het volgende dialoogvenster uw wachtwoord in, typ het nogmaals en klik op OK, verschijnt er een ander promptvenster om u eraan te herinneren hoeveel werkbladen zijn beveiligd.

doc-protect-verborgen-bladen-011

4. Dan klikken OK om de dialoogvensters te sluiten en alle werkbladen in de werkmap zijn beveiligd met hetzelfde wachtwoord.

Opmerking: Als u alle werkbladen tegelijk wilt opheffen, hoeft u alleen maar op te klikken Koetools Plus > Beveiliging werkblad opheffenen typ uw wachtwoord om de bescherming te annuleren.

 Download en gratis proef Kutools voor Excel nu!


Gerelateerde artikelen:

Hoe meerdere werkbladen tegelijk in Excel te beveiligen?

Hoe stel ik een wachtwoord in om de werkmap te beschermen?

Hoe VBA-code in Excel te beschermen / vergrendelen?

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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