VBA Tabellenblatt aufrufen + Passworteingabe

Forumthread: VBA Tabellenblatt aufrufen + Passworteingabe

03.06.2019 09:24:15

dino

Hi zusammen,
kann mir jemand weiterhelfen wie ich den VBA Code schreiben muss, wenn ich Tabellenblätter durch anklicken eines Buttons aufrufen möchte und diese mir nur anschauen/bearbeiten kann, wenn ich ein entsprechendes Passwort eingebe?
Bsp. Excel:
https://www.herber.de/bbs/user/130153.xlsx
Vielen Dank im Voraus,
Gruss
dino

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Tabellenblatt aufrufen + Passworteingabe

03.06.2019 11:24:25

dino
AW: VBA Tabellenblatt aufrufen + Passworteingabe

03.06.2019 23:05:50

Toni

AW: VBA Tabellenblatt aufrufen + Passworteingabe

03.06.2019 11:24:25

dino

Wie ist die VBA Schreibweise, wenn man mehrere Arbeitsblätter gleichzeitig einblenden möchte?
Gruss
dino

AW: VBA Tabellenblatt aufrufen + Passworteingabe

03.06.2019 23:05:50

Toni

Hallo Dino,
Frage 2 wirst du schnell bei Google fündig, z.B. hier:
https://www.herber.de/forum/archiv/1112to1116/1115108_mehrere_Blaetter_gleichzeitig_einblenden.html
Bzgl. Frage 1 eigentlich auch, trotzdem mal diese Variante ohne viel Schnickschnack für einen der 3 Buttons:
Unten stehenden Code könntest Du in ein allgemeines Modul kopieren und Deinem Button "Button1" in der Tabelle "Aufgabe" zuweisen (Rechtsklick):

Option Explicit
Public Const conPW = "PW"
Sub PW_Eingabe()
Dim varPW As String
varPW = InputBox("Vermutung ins Blaue:", "Passwortabfrage")
If varPW = "" Then
Exit Sub
ElseIf varPW = conPW Then
With Tabelle2
.Visible = True
.Activate
End With
Else
MsgBox ("Bitte korrektes Passwort eingeben")
End If
End Sub

Alle Ausdrücke in Anführungszeichen kannst Du nach Belieben anpassen.
lG
Toni

Infobox / Tutorial

VBA zur Passwortabfrage für Tabellenblätter in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel mit VBA aufzurufen und eine Passwortabfrage einzufügen, folge diesen Schritten:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

Füge den VBA-Code ein: Kopiere den folgenden Code in das Modul.

Option Explicit
Public Const conPW = "PW" ' Hier das gewünschte Passwort festlegen

Sub PW_Eingabe()
   Dim varPW As String
   varPW = InputBox("Vermutung ins Blaue:", "Passwortabfrage")
   If varPW = "" Then
       Exit Sub
   ElseIf varPW = conPW Then
       With Tabelle2 ' Tabelle2 ist das Tabellenblatt, das aufgerufen wird
           .Visible = True
           .Activate
       End With
   Else
       MsgBox ("Bitte korrektes Passwort eingeben")
   End If
End Sub

Button erstellen: Füge einen Button in dein Arbeitsblatt ein (Entwicklertools > Einfügen > Button) und weise ihm das Makro PW_Eingabe zu.
Testen: Klicke auf den Button und gib das Passwort ein, um das Tabellenblatt sichtbar zu machen.

Häufige Fehler und Lösungen

Fehler: Der Button reagiert nicht.
- Lösung: Stelle sicher, dass das Makro korrekt zugewiesen ist. Rechtsklicke auf den Button und wähle „Makro zuweisen“, um sicherzustellen, dass PW_Eingabe ausgewählt ist.
Fehler: Passwort wird immer als falsch erkannt.
- Lösung: Überprüfe, ob das Passwort im Code (conPW) korrekt eingegeben wurde und keine zusätzlichen Leerzeichen enthält.

Alternative Methoden

Eine alternative Methode ist die Verwendung von Excel-Formeln, um den Zugriff auf bestimmte Daten zu steuern. Du könntest beispielsweise die Sichtbarkeit von Zellen basierend auf einem in einer anderen Zelle eingegebenen Passwort steuern. Diese Methode erfordert jedoch keine VBA-Programmierung und ist weniger sicher.

Praktische Beispiele

Passwort für mehrere Tabellenblätter: Wenn du mehrere Tabellenblätter gleichzeitig einblenden möchtest, kannst du den Code anpassen:

Sub PW_Eingabe_Mehrere()
   Dim varPW As String
   varPW = InputBox("Vermutung ins Blaue:", "Passwortabfrage")
   If varPW = conPW Then
       Tabelle2.Visible = True
       Tabelle3.Visible = True ' Tabelle3 wird ebenfalls sichtbar
   Else
       MsgBox ("Bitte korrektes Passwort eingeben")
   End If
End Sub

Sichtbarkeit steuern: Du kannst die Sichtbarkeit von Tabellenblättern auch auf „xlSheetVeryHidden“ setzen, um sie nicht im Reiter anzuzeigen.

Tipps für Profis

Passwortsicherheit: Verwende komplexe Passwörter, um unbefugten Zugriff zu verhindern.
Fehlerbehandlung: Implementiere eine Fehlerbehandlung im VBA-Code, um unerwartete Eingaben abzufangen.
Dokumentation: Kommentiere deinen Code, um später leichter nachvollziehen zu können, was jeder Abschnitt bewirkt.

FAQ: Häufige Fragen

1. Wie kann ich das Passwort ändern?
Du kannst das Passwort ändern, indem du die Konstante conPW im VBA-Code anpasst.

2. Was passiert, wenn ich das Passwort vergesse?
Wenn du das Passwort vergisst, kannst du den VBA-Code nur ändern, wenn du Zugriff auf die Datei hast. Es wird empfohlen, das Passwort sicher zu notieren.

3. Ist diese Methode sicher genug?
Für grundlegende Anwendungen ist diese Methode ausreichend. Für sensible Daten solltest du zusätzliche Sicherheitsmaßnahmen in Betracht ziehen.

Beliebteste Forumthreads (12 Monate)

VBA Tabellenblatt aufrufen + Passworteingabe

Forumthread: VBA Tabellenblatt aufrufen + Passworteingabe

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

VBA zur Passwortabfrage für Tabellenblätter in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread