Clave Para Macro

"KM ** Ve" escribió en el mensaje
news:

hola amigos tengo un macro es para borrar Datos de una hoja, como hago

para

cuando ejecuto el macro que me pide una clave.


KM**VE

no acabo de comprender bien tu duda

Tengo varios macro y Quero protegerlo por una clave para que puede
ejecutarlo, cuando aleguen querré ejecutar el macro que le pide una clave
que yo lo establezco dentro del macro, no es para modificar el macro.



gracias
KM**VE

"elias" escribió en el mensaje
news:

"KM ** Ve" escribió en el mensaje
news:

hola amigos tengo un macro es para borrar Datos de una hoja, como hago

para

cuando ejecuto el macro que me pide una clave.


KM**VE

no acabo de comprender bien tu duda

Hola Kaled,

Prueba hacer lo siguiente:

En un modulo estandar, digamos Modulo1, arriba de todo pon la siguiente
declaracion de la constante de la contrasena:

Public Const Clave="AquiVaTuClave"

Luego en todos los macros que quieres proteger de esta manera introduce como
primera linea de codigo (por debajo de la linea que contiene el nombre del
macro) una instruccion como la siguiente :

If InputBox("Introduzca la clave: ", _
"Macro protegido") <> Clave Then _
MsgBox "Usted no esta autorizado.": Exit Sub

Ejemplo:

Sub MiMacro()
If InputBox("Introduzca la clave: ", _
"Macro protegido") <> Clave Then _
MsgBox "Usted no esta autorizado.": Exit Sub
'aqui va el resto de tu macro
End Sub

Saludos,
KL


"KM **Ve" wrote in message
news:%23yRhqK$

Tengo varios macro y Quero protegerlo por una clave para que puede
ejecutarlo, cuando aleguen querré ejecutar el macro que le pide una clave
que yo lo establezco dentro del macro, no es para modificar el macro.



gracias
KM**VE

"elias" escribió en el mensaje
news:

"KM ** Ve" escribió en el mensaje
news:

hola amigos tengo un macro es para borrar Datos de una hoja, como hago

para

cuando ejecuto el macro que me pide una clave.


KM**VE

no acabo de comprender bien tu duda

hola KL gracias por la ayuda me fonciono todo bien era para ponerlo a los
macro importante para que nadie lo use mas solo quen tiene la clave, pero
hay un error que me sale si no inredusco nada o cuando le cancelo la
ventanita donde me pide la clave el error es:

Se ha Producido el Error ´13´ en tiempo de ejecucion
no coinciden los tipos

**
una pregunta mas como Guardo este macro en una ruta espesifica

quero que guarda en una carpeta espesifica. la ruta esta en una hoja en la
celda (G3)
Ejemplo: C:\Mis documentos\Trabajo\Excel


Sub MiMacroParaGuardar()
If InputBox("", "") <> "mi ClaVe SecrEta" Then Exit Sub
ThisWorkbook.SaveAs Range("g1"), xlWorkbookNormal
End Sub


Gracias
KM**VE

"KL" escribió en el mensaje
news:ey5t0f$

Hola Kaled,

Prueba hacer lo siguiente:

En un modulo estandar, digamos Modulo1, arriba de todo pon la siguiente
declaracion de la constante de la contrasena:

Public Const Clave="AquiVaTuClave"

Luego en todos los macros que quieres proteger de esta manera introduce
como primera linea de codigo (por debajo de la linea que contiene el
nombre del macro) una instruccion como la siguiente :

If InputBox("Introduzca la clave: ", _
"Macro protegido") <> Clave Then _
MsgBox "Usted no esta autorizado.": Exit Sub

Ejemplo:

Sub MiMacro()
If InputBox("Introduzca la clave: ", _
"Macro protegido") <> Clave Then _
MsgBox "Usted no esta autorizado.": Exit Sub
'aqui va el resto de tu macro
End Sub

Saludos,
KL


"KM **Ve" wrote in message
news:%23yRhqK$

Tengo varios macro y Quero protegerlo por una clave para que puede
ejecutarlo, cuando aleguen querré ejecutar el macro que le pide una clave
que yo lo establezco dentro del macro, no es para modificar el macro.



gracias
KM**VE

"elias" escribió en el mensaje
news:

"KM ** Ve" escribió en el mensaje
news:

hola amigos tengo un macro es para borrar Datos de una hoja, como hago

para

cuando ejecuto el macro que me pide una clave.


KM**VE

no acabo de comprender bien tu duda