Se puede?

23/07/2005 - 19:16 por JR | Informe spam

Tengo una hoja a la cual solo deseo que se accese por medio de Clave o
Password para poder modificar. como le puedo hacer ya utilice

If ActiveSheet.Name = "Hoja1" Then
If InputBox("Cual es la Clave") <> "clave" Then
MsgBox "clave erronea Verifique..."
Sheets("Hoja2").Select
EndIf

En ThisWorkbook de Workbook_Activate()

Pero no se que estoy haciendo mal?.
Agradezco cuialquier ayuda.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 KL

23/07/2005 - 19:41 | Informe spam

Hola JR,

Pon el siguiente codigo en el modulo VBA de la hoja que requiere clave de
acceso. Si quieres conocer las tecnicas avanzadas de proteccion revisa el
articulo de Hector Miguel sobre el asunto:
http://www.sistemaslym.net/vba/excel/exarc1.html

Saludos,
KL

Private Sub Worksheet_Activate()
If InputBox("Introduzca la Clave") <> "clave" Then
MsgBox "Clave erronea, verifique..."
Sheets("Hoja2").Activate
End If
End Sub

Responder a este mensaje

#2 JR

02/08/2005 - 19:47 | Informe spam

Gracias he encontrado despues de quemar neuronas la respuesta a mis
preguntas..
fjrb

"KL" escribió en el mensaje
news:

Hola JR,

Pon el siguiente codigo en el modulo VBA de la hoja que requiere clave de
acceso. Si quieres conocer las tecnicas avanzadas de proteccion revisa el
articulo de Hector Miguel sobre el asunto:
http://www.sistemaslym.net/vba/excel/exarc1.html

Saludos,
KL

Private Sub Worksheet_Activate()
If InputBox("Introduzca la Clave") <> "clave" Then
MsgBox "Clave erronea, verifique..."
Sheets("Hoja2").Activate
End If
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida