amigo gracias ayudaexcel por dejarme forma parte de su equipo

amigos quería q me colaboren como introducir una clave tengo el usuario al ejecutar la macro pero quiero añadir una clave a cada usuario

la siguiente sentencia la tengo especificada de la siguiente manera

Private Sub CommandButton1_Click()

If Usuario = "" Then MsgBox "Seleccione un usuario": Exit Sub

MsgBox "Bienvenido " & Usuario

Sheets(2).[b49].Value = Usuario

Unload Me

End Sub

Private Sub UserForm_Activate()

Usuario.AddItem "pedro"

Usuario.AddItem "mario"

End Sub

adjunta file

Revisa este Aporte, de seguro te puede servir

Cuentas de usuarios-permisos para uso de menu(formulario) | Ayuda Excel

suerte