Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe stel je een wachtwoord in om het verborgen blad in Excel te beschermen?

Als u een werkmap hebt die enkele belangrijke verborgen werkbladen bevat en anderen niet toestaat deze zichtbaar te maken. Nu moet je een wachtwoord instellen om de verborgen werkbladen volledig te beschermen, wanneer andere gebruikers ze zichtbaar maken, moeten ze het wachtwoord invoeren. Heeft u manieren om snel en gemakkelijk met deze taak om te gaan in Excel?

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

Wachtwoord instellen om verborgen blad met VBA-code te beschermen

Bescherm meerdere werkbladen tegelijk met Kutools voor Excel


Bescherm meerdere of alle werkbladen tegelijk:

Doordat uw bureau Kutools for Excel's Werkblad beschermen en Werkblad opheffen, u kunt alle werkbladen in een werkmap beveiligen of ontgrendelen met hetzelfde wachtwoord tegelijk.

doc-beschermen-multiple-sheets-9

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


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


Normaal gesproken kunt u de functie VeryHidden gebruiken om eerst de werkbladen te verbergen en vervolgens een wachtwoord voor hen in te stellen. Ga hiervoor als volgt te werk:

1. Open uw 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 View > Projectverkenner en Eigenschappen Venster to hun panelen weergeven.

doc-beschermen-verborgen-sheets-01

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

doc-beschermen-verborgen-sheets-02

4. Nadat u het werkblad onzichtbaar gemaakt hebt, kunt u een wachtwoord instellen om het te beschermen. In de Microsoft Visual Basic for Applications-venster, Klik bijvoegsel > module om een ​​lege module te openen en klik vervolgens op Gereedschap > VBAProject Eigenschappenzie screenshot:

doc-beschermen-verborgen-sheets-03

5. Toen in de popped out VBAProject-projecteigenschappen dialoogvenster, klik Bescherming tabblad en controleer vervolgens Project vergrendelen voor weergave vak, tenslotte, voer het wachtwoord in en bevestig dit in de Wachtwoord om projecteigenschappen te bekijken sectie, zie screenshot:

doc-beschermen-verborgen-sheets-04

6. Dan klikken OK om dit dialoogvenster te sluiten, en sluit de Microsoft Visual Basic for Applications-venster.

7. Sla de werkmap op als Excel Macro-Enabled werkmap formatteer en sluit het om de wachtwoordbeveiliging effect te laten hebben.

doc-beschermen-verborgen-sheets-05

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

doc-beschermen-verborgen-sheets-06


Demo: wachtwoord instellen om verborgen bladen te beveiligen


Wachtwoord instellen om verborgen blad met VBA-code te beschermen

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

1. Verberg een werkblad dat u wilt beschermen.

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

3. Kies dan ThisWorkbook van links Projectverkenner, dubbelklik erop om het te openen module, en kopieer en plak vervolgens de VBA-code in de lege module:

VBA-code: wachtwoord instellen om 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-beschermen-verborgen-sheets-07

Notes: In de bovenstaande code, Sheet1 van de xSheetName = "Sheet1" script is de naam van het verborgen werkblad dat u wilt beschermen, en 123456 in de Als reactie = "123456" dan script is het wachtwoord dat u hebt ingesteld voor het verborgen blad. U kunt ze naar uw behoefte veranderen.

4. Als u nu het verborgen blad wilt weergeven, verschijnt er een promptvenster waarin u het wachtwoord kunt invoeren. En deze prompt verschijnt telkens wanneer u klikt om het verborgen blad te tonen.

doc-beschermen-verborgen-sheets-08


Bescherm meerdere werkbladen tegelijk met Kutools voor Excel

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

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

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Klikken Enterprise > Werkblad beschermenzie screenshot:

doc-beschermen-verborgen-sheets-09

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

doc-beschermen-verborgen-sheets-010

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

doc-beschermen-verborgen-sheets-011

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

Let op: Als u alle werkbladen in één keer wilt opheffen, hoeft u alleen maar op te klikken Enterprise > Werkblad opheffenen typ uw wachtwoord om de beveiliging te annuleren.

doc-beschermen-verborgen-sheets-012

Download en proef Kutools nu voor Excel!


Gerelateerde artikelen:

Hoe meerdere werkbladen tegelijkertijd in Excel beschermen?

Hoe een wachtwoord instellen om de werkmap te beschermen?

Hoe VBA-code te beschermen / vergrendelen in Excel?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    David · 28 days ago
    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?
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Darren · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      Severin · 1 years ago
      Found a solution yet?

      I am having the same problem
      • To post as a guest, your comment is unpublished.
        Richard · 1 years ago
        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
        • To post as a guest, your comment is unpublished.
          Tomas · 1 years ago
          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?
      • To post as a guest, your comment is unpublished.
        Rexamillian · 1 years ago
        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