insert password

Hello to all,
ask help for a curiosity.
I have a workbook that appears at startup with a notice of welcome userfom.
This userform can close immediately with the close button or wait until the end of the scrolling text.
You can change this?:
----------------------------------------------------------------------------------------------------------------------
instead of the close button to add a box in which to enter a password (already established in VBA) and if I enter the exact file you start otherwise closes.
--------------------------------------------------------------------------------------------------------------------
Thanks in advance.
I hope I explained.
I attach the sample file.
In advance thank you.
max_max

==========================================================================================

Ciao a tutti,
chiedo un aiuto per una curiosità.
Ho un workbook che all'avvio compare un avviso di benvenuto con userfom.
Questa userform posso chiuderla subito con il pulsante chiudi o aspettare la fine del testo scorrevole.
è possibile questa modifica?:
----------------------------------------------------------------------------------------------------------------------
al posto del pulsante chiudi aggiungere una casella in cui inserire una password (già stabilita in VBA) e se la inserisco esattamente il file si avvia altrimenti si chiude.
--------------------------------------------------------------------------------------------------------------------
Grazie in anticipo.
Spero di essermi spiegato.
Allego il file di esempio.
In anticipo ringrazio.
max_max

prova password.xls

Hello Leith Ross,
Thank you for your help.
there is an error here in module remove_close:
error.jpg
max_max
-----------------------------------------------
Ciao Leith Ross,
grazie per l'aiuto.
C'è un errore qui nel modulo remove_close:
error.jpg
max_max

Hello,
I entered it into Sheet2 (elenco):
nomeutente = massimo
password = 123456
does not work.
I attach the file
max_max
---------------------------------------
Ciao,
ho inserito nel foglio2 (elenco):
nomeutente = massimo
parola di accesso = 123456
non funziona.
Allego il file.
max_max

errror2.jpg
prova password ver 1.xls

My windowsusername is "massimo".

Error run time 13
Type Mismatch

--------------------------------------------------------------------
' Look up the user id and password.

UserId = "WindowsUserName" '<<<<< changed here
'UserId = Environ("USERNAME")

pwd = Application.VLookup(UserId, Rng, 2, 0)

If pwd = TextBox1 Then '<<<<<< error here
MsgBox "Login Successful!"
Else
MsgBox "Login Failed. This Workbook will now Close.", vbExclamation + vbOKOnly
' Remove the comment character (single quote) from the line below after you have edited Elenco.
ThisWorkbook.Close SaveChanges:=False
End If
--------------------------------------------------------------------

max_max

Hello Leih Ross,
now it's perfect!
Thank you very much.
Greetings from Italy.
max_max
----------------------
Ciao Leih Ross,
ora è perfetto!
Grazie mille.
Un saluto dall'Italia.
max_max

I hope my English is understandable in this forum.
The translation is done with google translator.
Hello,
max_max
--------------------------------------------------------
Spero che il mio inglese in questo forum sia capibile.
La traduzione è fatta con google traduttore.
Ciao,
max_max