Sub VerificaParola()
    Dim Parola As String
    Dim ParolaCorecta As String

    ' Setează parola corectă
    ParolaCorecta = "NASA2024"

    ' Afi?ează o fereastră de introducere a parolei
    Parola = InputBox("Introduce?i parola:", "Acces Protejat")

    ' Verifică dacă parola introdusă este corectă
    If Parola = ParolaCorecta Then
        MsgBox "Parola corectă. Acces permis!", vbInformation, "Acces Permis"
    Else
        MsgBox "Parolă incorectă. Accesul interzis!", vbExclamation, "Acces Interzis"
    End If
End Sub