$Ordnername="au3"
$Passwort="pass"
While 1
    If WinExists($Ordnername) Then
        WinActivate($Ordnername)
        WinSetState($Ordnername,"",@SW_MINIMIZE)
		$Question=InputBox("Achtung!","Der Ordner "&$Ordnername&" ist Passwortgeschützt bitte gib das Passwort ein")
        If $Question Then
            MsgBox(0,"Erfolg","Der Ordner wurde Freigeschalten")
            WinSetState($Ordnername,"",@SW_SHow)
            ExitLoop
        Else
            MsgBox(0,"@Error","Keine Berechtigung")
            WinCLose($Ordnername)
        EndIf
    EndIf
Wend