Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Se puede?

23/07/2005 - 19:16 por JR | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :