Function adatfilenyit(filenév As String) As Boolean
    Application.DisplayAlerts = False
    If Dir(filenév) = "" Then ' Ha a file nincs meg a kívánt helyen
        MsgBox "A programfutás feltétele a " + filenév + " file megléte. Kérem pótolni!"
    Else
        While adatfilenyit = False
            On Error GoTo nincsjelszo
            Workbooks.Open Filename:=filenév
            adatfilenyit = True ' Ekkor jó a megnyitás
ujra:
        Wend
    End If
    Application.DisplayAlerts = True
    Exit Function
nincsjelszo:
    If Err > 0 Then
        If Left(Err.Description, 27) = "A beírt jelszó érvénytelen." Then
            MsgBox "Hibás jelszó. Kérem javítani!"
            Err.Clear 'Hibajelzés (szám és szöveg) törlése
            Resume ujra
        Else
            MsgBox "Hibaüzenet: " & Err.Description ' Ez egy tesztsor, ami megkülönbözteti a rendszer automatikus hibaüzeneteitől
        End If
    End If
    Application.DisplayAlerts = True
End Function