Pregunta para Luis Mondelo!

En ese caso esta es tu nueva macro:

Fíjate en la 3 línea, he añadido un or para otra contraseña. Solo tienes que cambiar el entrecomillado donde pone otracontraseña por tu segunda contraseña

Private Sub CommandButton1_Click()
p1 = TextBox1.Value
If p1 <> "p27837194e" or p1 <> "otracontraseña" Then
MsgBox "Lo siento no tiene acceso"
Unload Me
Exit Sub
Else
Sheets("CyM").Select
Unload Me
End If
End Sub

Hola luis. Vos sabes que ahora no me acepta ninguna contraseña. Osea, no me tira ningún error, sino que me sale el mensaje de MsBox.

Porque sera??

Veamos, la macro está preparada para que si la contraseña es distinta a la escrita en la macro, saldrá un mensaje y se saldrá de la macro.

¿No hace eso?

SI HACE ESO!. Osea la macro es para dos usuarios distintos, cada uno con su contraseña.

Si viene otro usuario y no sabe ninguna de las dos contraseñas colocadas en la macro (textbox) tiene que mandar el mensaje de Msgbox: "Lo siento no tiene acceso"

Dime cuales son las contraseñas

una contraseña es i5816392m y la otra es p27837194e

Prueba con la macro así:

Private Sub CommandButton1_Click()
p1 = TextBox1.Value
If ucase(p1) <> "P27837194E" or ucase(p1) <> "I5816392M" Then
MsgBox "Lo siento no tiene acceso"
Unload Me
Exit Sub
Else
Sheets("CyM").Select
Unload Me
End If
End Sub

ya me cuentas

Una cosa Daniel, tienes que sustituir la palabra OR por AND

Y funcionará bien.