Wie kann beim Öffnen einer Excel-Datei ein Passwort abgefragt und mit einer Liste in Tabelle 'Zugang' auf Blatt 2 geprüft werden?

Um beim Öffnen einer Excel-Datei ein Passwort abzufragen und zu prüfen, ob dieses Passwort in der Tabelle „Zugang“ auf Blatt 2 vorhanden ist, kannst du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

**1. Öffne den VBA-Editor:**
Drücke `ALT + F11` in Excel.

**2. Füge folgenden Code in das „DieseArbeitsmappe“-Modul ein:**

```vba
Private Sub Workbook_Open()
Dim passwort As String
Dim gefunden As Boolean
Dim zelle As Range
Dim zugangBlatt As Worksheet

Set zugangBlatt = ThisWorkbook.Sheets(2) ' Blatt 2 auswählen

passwort = InputBox("Bitte Passwort eingeben:")

gefunden = False
For Each zelle In zugangBlatt.Range("A:A") ' Annahme: Passwörter stehen in Spalte A
If zelle.Value = "" Then Exit For
If zelle.Value = passwort Then
gefunden = True
Exit For
End If
Next zelle

If Not gefunden Then
MsgBox "Falsches Passwort! Die Datei wird geschlossen.", vbCritical
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
```

**3. Hinweise:**
- Die Passwörter werden in Spalte A von Blatt 2 („Zugang“) erwartet.
- Das Makro prüft beim Öffnen der Datei, ob das eingegebene Passwort in dieser Liste steht.
- Bei falschem Passwort wird die Datei sofort geschlossen.

**Wichtige Hinweise zur Sicherheit:**
Dieses Verfahren bietet keinen echten Schutz vor erfahrenen Nutzern, da VBA-Makros umgangen oder eingesehen werden können. Für echten Schutz solltest du die Excel-Datei mit einem Dateipasswort verschlüsseln (über Datei → Informationen → Arbeitsmappe schützen).

Weitere Infos zu Excel VBA findest du z.B. bei [Microsoft](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

**Makros müssen aktiviert sein, damit das funktioniert!**