Direkt zum Inhalt

Wie lege ich ein Passwort fest, um versteckte Blätter in Excel zu schützen?

Wenn Sie eine Arbeitsmappe haben, die einige wichtige versteckte Arbeitsblätter enthält, und anderen nicht erlauben, sie einzublenden. Jetzt müssen Sie ein Kennwort festlegen, um die versteckten Arbeitsblätter vollständig zu schützen. Wenn andere Benutzer sie einblenden, müssen sie das Kennwort eingeben. Haben Sie Möglichkeiten, diese Aufgabe in Excel schnell und einfach zu erledigen?

Legen Sie ein Passwort fest, um versteckte Blätter mit der Funktion VeryHidden zu schützen

Legen Sie ein Passwort fest, um das versteckte Blatt mit VBA-Code zu schützen

Schützen Sie mehrere Arbeitsblätter gleichzeitig mit Kutools for Excel


Legen Sie ein Passwort fest, um versteckte Blätter mit der Funktion VeryHidden zu schützen

Normalerweise können Sie die VeryHidden-Funktion verwenden, um zuerst die Arbeitsblätter auszublenden und dann ein Kennwort für sie festzulegen. Führen Sie die folgenden Schritte aus:

1. Öffnen Sie Ihre Arbeitsmappe und halten Sie sie gedrückt Alt + F11Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. In dem Microsoft Visual Basic für Applikationen-Fenster, klicken Anzeigen > Projekt Explorer und Eigenschaftenfenster to ihre Fenster anzeigen.

doc-protected-hidden-sheet-01

3. Und dann in der Projekt-VBAProject Wählen Sie im Bereich das Arbeitsblatt aus, das Sie ausblenden möchten, und im Immobilien Klicken Sie im Bereich auf die Dropdown-Liste von Sichtbar Abschnitt auswählen xlSheetVeryHidden Option, siehe Screenshot:

doc-protected-hidden-sheet-02

4. Nachdem Sie das Arbeitsblatt ausgeblendet haben, können Sie ein Kennwort festlegen, um es zu schützen. In dem Microsoft Visual Basic für Applikationen-Fenster, klicken Insert > Modul um ein leeres Modul zu öffnen, und klicken Sie dann auf Tools > VBAProject-Eigenschaften, siehe Screenshot:

doc-protected-hidden-sheet-03

5. Dann tauchte der auf VBAProject-Projekteigenschaften Dialogfeld, klicken Sie auf Schutz Registerkarte und dann überprüfen Projekt für die Anzeige sperren Geben Sie abschließend das Passwort in das Feld ein und bestätigen Sie es Kennwort zum Anzeigen der Projekteigenschaften Abschnitt, siehe Screenshot:

doc-protected-hidden-sheet-04

6. Dann klick OK Klicken Sie auf die Schaltfläche, um diesen Dialog zu schließen, und schließen Sie die Schaltfläche Microsoft Visual Basic für Applikationen-Fenster.

7. Speichern Sie die Arbeitsmappe unter Excel Makroaktivierte Arbeitsmappe Formatieren und schließen Sie es, damit der Kennwortschutz wirksam wird.

doc-protected-hidden-sheet-05

8. Wenn Sie das nächste Mal diese Arbeitsmappe öffnen und die ausgeblendeten Blätter sichtbar machen möchten, werden Sie aufgefordert, ein Kennwort einzugeben. Siehe Screenshot:

doc-protected-hidden-sheet-06


Demo: Legen Sie ein Passwort fest, um versteckte Blätter zu schützen


Legen Sie ein Passwort fest, um das versteckte Blatt mit VBA-Code zu schützen

Um ein Passwort zum Schutz der versteckten Blätter festzulegen, kann ich auch über einen VBA-Code für Sie sprechen.

1. Blenden Sie ein Arbeitsblatt aus, das Sie schützen möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

3. Dann wähle DiesesWorkbook von links Projekt ExplorerDoppelklicken Sie darauf, um das zu öffnen ModulKopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Legen Sie ein Kennwort fest, um das versteckte Blatt zu schützen

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-protected-hidden-sheet-07

Note: Im obigen Code, Sheet1 dauert ebenfalls 3 Jahre. Das erste Jahr ist das sog. xSheetName = "Sheet1" Skript ist der versteckte Arbeitsblattname, den Sie schützen möchten, und 123456 der Wenn response = "123456" Dann Skript ist das Kennwort, das Sie für das ausgeblendete Blatt festgelegt haben. Sie können sie nach Ihren Wünschen ändern.

4. Wenn Sie nun das ausgeblendete Blatt anzeigen möchten, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie das Kennwort eingeben können. Dieses Eingabeaufforderungsfeld wird jedes Mal angezeigt, wenn Sie auf klicken, um das ausgeblendete Blatt anzuzeigen.

doc-protected-hidden-sheet-08


Schützen Sie mehrere Arbeitsblätter gleichzeitig mit Kutools for Excel

Wenn Sie mehrere ausgewählte oder alle Arbeitsblätter einer Arbeitsmappe gleichzeitig schützen möchten, müssen Sie normalerweise einzeln manuell in Excel schützen. Aber wenn ja Kutools for ExcelMit seinen Arbeitsblatt schützen Dienstprogramm können Sie sie mit einem Klick schützen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Klicken Sie Kutoolen Plus > Arbeitsblatt schützen, siehe Screenshot:

2. In dem Arbeitsblatt schützen Im Dialogfeld werden alle Arbeitsblätter in der Arbeitsmappe im Listenfeld aufgelistet. Wählen Sie die Arbeitsblätter aus, die Sie schützen möchten. Siehe Screenshot:

doc-protected-hidden-sheet-010

3. Und dann klick OKGeben Sie im folgenden Dialogfeld Ihr Passwort ein, geben Sie es erneut ein und klicken Sie dann auf OKEin weiteres Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, wie viele Arbeitsblätter geschützt wurden.

doc-protected-hidden-sheet-011

4. Dann klick OK Zum Schließen der Dialoge wurden alle Arbeitsblätter in der Arbeitsmappe mit demselben Kennwort geschützt.

Hinweis: Wenn Sie den Schutz aller Arbeitsblätter auf einmal aufheben möchten, müssen Sie nur auf klicken Kutoolen Plus > Arbeitsblatt aufhebenund geben Sie Ihr Passwort ein, um den Schutz aufzuheben.

 Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


In Verbindung stehende Artikel:

Wie schütze ich mehrere Arbeitsblätter gleichzeitig in Excel?

Wie lege ich ein Passwort fest, um die Arbeitsmappe zu schützen?

Wie schütze / sperre ich VBA-Code in Excel?

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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