Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblätter mit Passwort schützen

Tabellenblätter mit Passwort schützen
30.07.2004 14:56:54
Birkel
Hallo,
in meiner Datei habe ich mehrere Blätter, die nicht jeder ohne weiteres einsehen darf. Gibt es eine Möglichkeit, diese Blätter mit einer Zugriffsabfrage zu versehen, so dass der User, wenn er eines dieser Blätter aufruft, erst ein Passwort eingeben muß, bevor das Blatt angezeigt wird?
Vielen Dank für eure Hilfe
MfG
Birkel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter mit Passwort schützen
30.07.2004 17:46:31
Claus
Probiers mal mit:
ActiveSheet.Protect password:="SuperschlaueskniffligesPasswort"
Claus

AW: Tabellenblätter mit Passwort schützen
30.07.2004 18:02:28
Birkel
Hallo Claus,
danke für deine Hilfe, aber Passwortabfrage erscheint nicht.
Wie muß ich das denn schreiben?
Habe ein Makro, dass wenn ich auf der Startseite auf den Button klicke,
das entsprechende Tabellenblatt erscheint. Da hab ich es rein gepackt.
Geht aber nicht. Dann hab ich es mit folgendem probiert:

Private Sub Sheet_Open()
ActiveSheet.Protect Password:="Wellness"
End Sub

Geht aber auch nicht.
Hilfe.
Danke noch mal
MfG
Birkel
Anzeige
AW: Tabellenblätter mit Passwort schützen
30.07.2004 18:02:56
Birkel
Hallo Claus,
danke für deine Hilfe, aber Passwortabfrage erscheint nicht.
Wie muß ich das denn schreiben?
Habe ein Makro, dass wenn ich auf der Startseite auf den Button klicke,
das entsprechende Tabellenblatt erscheint. Da hab ich es rein gepackt.
Geht aber nicht. Dann hab ich es mit folgendem probiert:

Private Sub Sheet_Open()
ActiveSheet.Protect Password:="Wellness"
End Sub

Geht aber auch nicht.
Hilfe.
Danke noch mal
MfG
Birkel
Anzeige
AW: Tabellenblätter mit Passwort schützen
31.07.2004 04:16:07
TGH
Hallo Claus, versuchs mal so:

Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="Wellness"
End Sub

Code muss in Dein Arbeitsblatt
Gruss
AW: Tabellenblätter mit Passwort schützen
Birkel
Hallo,
Ich hab das ins arbeitsblatt eingefügt, aber keine meldung, keine abfrage.
tut sich garnichts. Wie vorher ohne code.
MfG
Birkel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblätter in Excel mit Passwort schützen


Schritt-für-Schritt-Anleitung

Um ein Excel-Arbeitsblatt mit Passwort zu schützen, folge diesen Schritten:

  1. Öffne dein Excel-Dokument und wechsle zu dem Arbeitsblatt, das du schützen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge den folgenden Code in das entsprechende Arbeitsblatt-Modul ein:

    Private Sub Worksheet_Activate()
       ActiveSheet.Protect Password:="DeinSicheresPasswort"
    End Sub

    Ersetze "DeinSicheresPasswort" mit deinem gewünschten Passwort.

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Teste die Passwortabfrage, indem du das Arbeitsblatt wechselst.

Mit diesem Code wird das Arbeitsblatt geschützt, sobald es aktiviert wird. Du kannst auch andere Blätter auf die gleiche Weise schützen.


Häufige Fehler und Lösungen

  • Keine Passwortabfrage erscheint: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Der Code muss im Modul des spezifischen Arbeitsblatts stehen, nicht im allgemeinen Modul.

  • Das Arbeitsblatt ist nicht geschützt: Überprüfe, ob die Worksheet_Activate()-Methode korrekt verwendet wurde. Du kannst auch Worksheet_Open() verwenden, aber das funktioniert nur, wenn das Blatt sich öffnet.


Alternative Methoden

Es gibt verschiedene Möglichkeiten, ein Excel-Blatt passwortgeschützt zu machen:

  • Manuelles Schützen: Gehe zu Überprüfen > Blatt schützen und gib dort dein Passwort ein. Dies schützt das Blatt sofort, erfordert aber manuelle Eingriffe.

  • Schützen mehrerer Blätter: Wenn du mehrere Blätter schützen möchtest, kannst du den gleichen Code in jedes Arbeitsblatt-Modul einfügen oder ein Makro erstellen, das alle gewünschten Blätter durchläuft und schützt.


Praktische Beispiele

Hier ist ein Beispiel, um mehrere Blätter gleichzeitig zu schützen:

Sub SchützeMehrereBlätter()
    Dim Blatt As Worksheet
    For Each Blatt In ThisWorkbook.Worksheets
        Blatt.Protect Password:="DeinSicheresPasswort"
    Next Blatt
End Sub

Dieser Code durchläuft alle Blätter in deinem Arbeitsbuch und schützt sie mit dem angegebenen Passwort.


Tipps für Profis

  • Verwende starke Passwörter: Achte darauf, ein sicheres Passwort zu wählen, um den Schutz zu gewährleisten.

  • Dokumentiere deine Passwörter: Bewahre eine Liste deiner Passwörter an einem sicheren Ort auf, um den Zugriff auf geschützte Blätter zu erleichtern.

  • Regelmäßige Überprüfungen: Überprüfe regelmäßig die Sicherheit deiner passwortgeschützten Blätter, insbesondere wenn mehrere Benutzer Zugang haben.


FAQ: Häufige Fragen

1. Kann ich ein einzelnes Blatt schützen, während andere ungeschützt bleiben?
Ja, du kannst ein einzelnes Tabellenblatt mit Passwort schützen, während andere Blätter weiterhin zugänglich sind.

2. Was passiert, wenn ich mein Passwort vergesse?
Wenn du dein Passwort vergisst, gibt es keine einfache Möglichkeit, das Blatt wieder zu entsperren. Es wird empfohlen, deine Passwörter sicher zu dokumentieren.

3. Funktioniert dieser Schutz in allen Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 bis 2023.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige