proteger macros

08/03/2007 - 20:53 por bky | Informe spam
hola a todos.. tengo la siguente macro en word
Private Sub Document_Save()
ActiveDocument.FormFields("NCF").Result =
ActiveDocument.FormFields("NCF").Result + 1
End Sub

el punto es que quiero proteger el el campo, pero cuando lo hago no me
ejecuta la macro..

si alguien sabe como ayudarme lo agradeceré mucho...

bye

Preguntas similare

Leer las respuestas

#1 Tux
09/03/2007 - 16:17 | Informe spam
bky escribió:
hola a todos.. tengo la siguente macro en word
Private Sub Document_Save()
ActiveDocument.FormFields("NCF").Result =
ActiveDocument.FormFields("NCF").Result + 1
End Sub

el punto es que quiero proteger el el campo, pero cuando lo hago no me
ejecuta la macro..

si alguien sabe como ayudarme lo agradeceré mucho...

bye





Hola Bky :-)

Bien tu lo que quieres es:

¿ejecutar una macro cuando tienes protegido el formulario? si es asi
tendras que hacer uso de la creacion de un boton adicional en tu barra
de herramientas que al darle a click, te aumente en [ 1 ] los digitos
que tengas en el campo: [insertando el codigo en cualquier modulo ]

Sub MiBoton()

ActiveDocument.FormFields("NCF").Result = _
ActiveDocument.FormFields("NCF").Result + 1

End sub

Si quieres que al abrir el documento te haga la misma funcion
:[colocando el codigo en ThisDocument]

Private Sub Document_Open()

ActiveDocument.FormFields("NCF").Result = _
ActiveDocument.FormFields("NCF").Result + 1

End Sub

Si quieres que Al darle al boton guardar o hacer click sobre él, [de la
barra de herramientas estandar o al darle tambien al Guardar de Archivo
guardar ], al hacer click sobre ellos te haga la misma


funcion:[insertarndo codigo en cualquier modulo]

Sub ArchivoGuardar()

ActiveDocument.FormFields("NCF").Result = _
ActiveDocument.FormFields("NCF").Result + 1

'Añado esta linea para guardar documento sino no guardara :-)
ActiveDocument.Save

End Sub

Buenos nos comentas ok? :-)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida