Ejecutar macro al guardar.
Jorge
Resulta que quiero que cada vez que alguien guarde cambios
en el archivo, entonces se ejecute una macro que yo quiera.
La macro ya la tengo lista y se trata de ingresar en una
hoja oculta la información sobre el ususario como nombre
de la máquina, usuario de red, hora, fecha, etc. y que
proteja y oculte nuevamente la hoja para llevar un
histórico de cambios, pero como ya les dije, eso está
listo.
Lo que me interesa es que el usuario al darle guardar, o
guardar como, o Ctrl+G o cualquier método para guardar, se
ejecute entonces la macro que tengo.
Gracias por la colaboración.
Jorge M
NikeSnake
Tenés que usar el evento WorkbookBeforeSave con el objeto
Application, con esto, podrás ejectuar la macro y luego
guardar, lo cual tu hoja oculta quedará grabada junto con
el libro
Saludos.
>-----Mensaje original-----
>.
>
Javier Apaza Godoy
Copia esto en el módulo del libro:
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Aquí escribe tu código
End Sub
Saludos:
Javier Apaza Godoy
Jorge
>-----Mensaje original-----
>.
>
grupo...@gmail.com
No entiendo mucho como hacer esto, espero me puedan ayudar.
Necesito que aparezca un mensaje al guardar el archivo, intente con esto pero no me resulta, algun ayuda?
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub