Hallo Herr Fischer,

ich habe Ihnen einmal eine Excel gebastelt - siehe unten - der Reiter heisse "Schulnoten".

Die Abfrage der Passwords beginnt in Spalte "C" ab Zelle "C6". In Zelle "C50" muss "END" stehen.

Bitte das Password für BLATTSCHUTZ ändern und nicht vergessen, das Makro mit Paaword zu schützen - Code siehe unten - funktioniert gut.

Public Sub Auto_Open()
   Dim Password As String
   Dim Zeile As Integer
'Schritt 1: Aufruf des Password-Eingabefeldes
   'Sheets("Schulnoten").Select
   Password = InputBox("Bitte Password eingeben:")
'Schritt 2: Abfrage nach Schüler-Password
'Schritt 2.1: Der Bildschirmschoner wird aktiviert
   Application.ScreenUpdating = False  'Bildschirmschoner "EIN"
'Schritt 2.3: Der Blattschutz wird aufgehoben
   Sheets("Schulnoten").Unprotect "Blattschutz"    'Password für Blattschutz bitte ändern
'Schritt 2.3: Die Zeilen 6:50 werden eingeblendet
   Rows("6:50").Select
   Selection.EntireRow.Hidden = False
'Schritt 2.4: Die Spalte "C" wird ab Zeile 6 nach unten durchlaufen bis der Eintrag "END" kommt
'...und alle Zeilen werden ausgeblendet, welche nicht mit Password matchen
    Zeile = 6
    Do Until Cells(Zeile, 3).Text = "END"    'bis Eintrag "END" kommt
      If Cells(Zeile, 3).Text = Password Then
         Else
         Cells(Zeile, 3).Select
         Selection.EntireRow.Hidden = True   'Zeilen ausblenden
      End If
    Zeile = Zeile + 1
    Loop
'Schritt 2.5 Der Blattschutz wird wieder eingerichtet
    Sheets("Schulnoten").Protect "Blattschutz"     'Password für Blattschutz bitte ändern
'Schritt 2.6: Der Bildschirmschoner wird wieder deaktiviert
    Application.ScreenUpdating = True  'Bildschirmschoner "AUS"
'Schritt 3: Abfrage nach Lehrer-Password
    If Password = "Lehrer" Then
       Sheets("Schulnoten").Unprotect "Blattschutz"   'Blattschutz aufheben
       Rows("6:50").Select                            'alle Zeilen auswählen
       Selection.EntireRow.Hidden = False             'alle Zeilen einblenden
       Range("D6").Select
       Else
    End If
End Sub
Public Sub Auto_Close()
'Schritt 1: Das Blendet die Zeilen 6:50 aus
    Sheets("Schulnoten").Unprotect "Blattschutz"   'Blattschutz aufheben
    Sheets("Schulnoten").Select
    Rows("6:50").Select
    Selection.EntireRow.Hidden = True
'Schritt 2: Das Makro richtet den Blattschutz wieder ein
    Sheets("Schulnoten").Protect "Blattschutz"
'Schritt 3: Speichern der Datei vor dem Schliessen
    ActiveWorkbook.Save
End Sub