Seguridad a una macro

hola, Carlos !

Mostrar la cita

... forma de proteger solo una macro en excel
... archivo que varias personas debemos manipular en las hojas de calculo
... la macro solo la debo manejar y ejecutar yo.

si se trata de UNA SOLA macro [en todo el libro] y SOLO tu la habras de ejecutar...
1.- asignale una contraseña al proyecto de macros [vba]
2.- 'declara' el procedimiento [sub o funcion] como 'Private' =>Private Sub MiMacro()< [o usa la instruccion 'Option Private Modulo' en la seccion de declaraciones del modulo]
=> de esta forma, la macro NO 'se muestra' en la interfase de usuarios < obviamente... SI se puede 'ejecutar' => herramientas/macro/macros... o... {Alt}+{F8} < [si introduces EXACTAMENTE el 'nombre']

si tu requerimiento es 'diferente'... ¿comentas?
saludos,
hector.

Muchas gracias por la pronta respuesta Hector,

El inconveniente es que nadie aparte de mi debe siquiera
poder ejecutar la macro.

Gracias


Mostrar la cita

hola, Carlos !

Mostrar la cita

... forma de proteger solo una macro en excel
... archivo que varias personas debemos manipular en

las hojas de calculo
Mostrar la cita

Mostrar la cita

... la macro solo la debo manejar y ejecutar yo.

si se trata de UNA SOLA macro [en todo el libro] y SOLO

tu la habras de ejecutar...
Mostrar la cita

1.- asignale una contraseña al proyecto de macros [vba]
2.- 'declara' el procedimiento [sub o funcion]

como 'Private' =>Private Sub MiMacro()<> [o usa la instruccion 'Option Private Modulo' en la
seccion de declaraciones del modulo]
Mostrar la cita

=> de esta forma, la macro NO 'se muestra' en la

interfase de usuarios <> obviamente... SI se puede 'ejecutar' =>
herramientas/macro/macros... o... {Alt}+{F8} <> [si introduces EXACTAMENTE el 'nombre']
Mostrar la cita

si tu requerimiento es 'diferente'... ¿comentas?
saludos,
hector.

.

hola, Carlos !

El inconveniente es que nadie aparte de mi debe siquiera poder ejecutar la macro.

==> y... ¿que pasa si...?
la 'pimera' instruccion de 'la macro' =>solicita una clave de 'autorizacion'<= [p.e.]

Private Sub MiMacro()
If InputBox("Clave AUTORIZADA, por favor...") <> "kl0Actײ÷xyz" Then Exit Sub
[... aqui las instrucciones si la clave se introduce =>EXACTAMENTE A LA 'ESPERADA'<= ...]
End Sub

como podras 'ver' en la clave puedes 'solicitar' CUALQUIER caracter 'extraño' que DEBE coincidir :))

saludos,
hector.