uenas tardes una consulta y disculpen la molestia:

pretendo que a la hora de abrir el libro de Excel me solicite introducir la clave de tres usuarios ya establecidos, los cuales seria:

1) YORDIN

2) YHOAN

3) OMARILYN

Cuya clave de acceso sea “123” para luego yo modificarla en la macro.

gracias.

FILTRO.rar

Che acá tenes esto:

Private Sub Workbook_Open()

Dim nombre As String

Dim paso2 As Boolean

nombre = UCase(InputBox("Nombre de Usuario"))

paso2 = False

Select Case nombre

Case "YORDIN"

If UCase(InputBox("Introduce tu clave de acceso")) = "123" Then paso2 = True

Case "YHOAN"

If UCase(InputBox("Introduce tu clave de acceso")) = "123" Then paso2 = True

Case "OMARILYN"

If UCase(InputBox("Introduce tu clave de acceso")) = "123" Then paso2 = True

End Select

If paso2 = False Then ThisWorkbook.Close savechanges:=False

End Sub[/CODE]

Si no coloca bien el usuario y contraseña de forma correcta el libro se cierra, espero te sirva che!

Saludos

gracias hermano esa la había usado pero no ahí forma que el usuario no tenga q escribirlo sino que me de la opción a elegir entre ya el listado de los usuarios del libro??

Che acá tenes esto:

Si no coloca bien el usuario y contraseña de forma correcta el libro se cierra, espero te sirva che!

Saludos

gracias hermano esa la había usado pero no ahí forma que el usuario no tenga q escribirlo sino que me de la opción a elegir entre ya el listado de los usuarios del libro??