Zeilen per Passwort ein- und ausblenden

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const PASSWORD As String = "GEHEIM" 'Kennwort anpassen !!!
If Target.Address = "$A$1" Then
If Range("A3,A5").EntireRow.Hidden Then
If InputBox("Kennwort eingeben:", "Eingabe") = PASSWORD Then
Call Unprotect(PASSWORD:="PASSWORD")
Range("A3,A5").EntireRow.Hidden = False 'Zeilen anpassen !!!
Call Protect(PASSWORD:="PASSWORD")
Cancel = True
End If
Else
Call Unprotect(PASSWORD:="PASSWORD")
Range("A3,A5").EntireRow.Hidden = True 'Zeilen anpassen !!!
Call Protect(PASSWORD:="PASSWORD")
Cancel = True
End If
End If
End Sub