Acivar una macro al pusar Archivo Guardar

Puedes comenzar generando una macro (menu herramientas-macro-grabar nueva
macro) con las acciones que quieres realizar.


"Ubaldo" escribió en el mensaje
news:

Hola a Todos
Estoy interesado en hacer una macro o algo parecido para que aparezca una
caja de dialogo dando unas instrucciones al usuario cada vez que utilice
la
funcion de Archivo Guardar. en las instrucciones le daré la oportunidad de
aceptar y guardar o volver al documento.

Tengo Excel 2002 sobre windows 2000

Muchas gracias a todos y un saludo

Si lo se gracias, pero no se llas instrucciones que tengo que poner para que
se active cuando utilize la función de guardar, es decir si yo creo la macro
y luego digo macro ejecutar me funcionaria, pero no tengo que decir macro
ejecutar sino que se debe ejecutar en el momento justo antes de guardar.

Un saludo

"anonimo" escribió:

Puedes comenzar generando una macro (menu herramientas-macro-grabar nueva
macro) con las acciones que quieres realizar.


"Ubaldo" escribió en el mensaje
news:
> Hola a Todos
> Estoy interesado en hacer una macro o algo parecido para que aparezca una
> caja de dialogo dando unas instrucciones al usuario cada vez que utilice
> la
> funcion de Archivo Guardar. en las instrucciones le daré la oportunidad de
> aceptar y guardar o volver al documento.
>
> Tengo Excel 2002 sobre windows 2000
>
> Muchas gracias a todos y un saludo

OK.
Tienes que utilizar el evento BeforeSave.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

' aqui las isntrucciones

End Sub



"Ubaldo" escribió en el mensaje
news:

Si lo se gracias, pero no se llas instrucciones que tengo que poner para
que
se active cuando utilize la función de guardar, es decir si yo creo la
macro
y luego digo macro ejecutar me funcionaria, pero no tengo que decir macro
ejecutar sino que se debe ejecutar en el momento justo antes de guardar.

Un saludo

"anonimo" escribió:

Puedes comenzar generando una macro (menu herramientas-macro-grabar nueva
macro) con las acciones que quieres realizar.


"Ubaldo" escribió en el mensaje
news:
> Hola a Todos
> Estoy interesado en hacer una macro o algo parecido para que aparezca
> una
> caja de dialogo dando unas instrucciones al usuario cada vez que
> utilice
> la
> funcion de Archivo Guardar. en las instrucciones le daré la oportunidad
> de
> aceptar y guardar o volver al documento.
>
> Tengo Excel 2002 sobre windows 2000
>
> Muchas gracias a todos y un saludo

Hola Perdona mi insistencia pero no conozco el tema de visual basic, podrias
enviarme las sentencias completas que debo poner en la macro desde el sub
inicial hasta el sub final

la sentencia que yo quiero añadir es un MsgBox que diga, (estas seguro de
que quieres guardar la hoja, repaselo)

A ver si me puedes suministrar los datos justo para que yo pueda copiar y
pegar en una macro que cree nueva en blanco.

Gracias por todo




"anonimo" escribió:

OK.
Tienes que utilizar el evento BeforeSave.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

' aqui las isntrucciones

End Sub



"Ubaldo" escribió en el mensaje
news:
> Si lo se gracias, pero no se llas instrucciones que tengo que poner para
> que
> se active cuando utilize la función de guardar, es decir si yo creo la
> macro
> y luego digo macro ejecutar me funcionaria, pero no tengo que decir macro
> ejecutar sino que se debe ejecutar en el momento justo antes de guardar.
>
> Un saludo
>
> "anonimo" escribió:
>
>> Puedes comenzar generando una macro (menu herramientas-macro-grabar nueva
>> macro) con las acciones que quieres realizar.
>>
>>
>> "Ubaldo" escribió en el mensaje
>> news:
>> > Hola a Todos
>> > Estoy interesado en hacer una macro o algo parecido para que aparezca
>> > una
>> > caja de dialogo dando unas instrucciones al usuario cada vez que
>> > utilice
>> > la
>> > funcion de Archivo Guardar. en las instrucciones le daré la oportunidad
>> > de
>> > aceptar y guardar o volver al documento.
>> >
>> > Tengo Excel 2002 sobre windows 2000
>> >
>> > Muchas gracias a todos y un saludo
>>
>>
>>

Al final tienes dos rutinas (que tendrás que perfeccionar) para hacer lo que
pretendes, pero ya te anticipo que lo que pretendes no suele funcionar (es
preferible instruir a los usuarios sobre lo que tienen que hacer)


private Sub Workbook_BeforeClose(Cancel As Boolean)
Respuesta = InputBox("Va a cerrar el fichero, ¿quiere guardar los
cambios?")

If Respuesta = "SI" Then
ThisWorkbook.Close True
Else
MsgBox "NO SE GUARDAN LOS CAMBIOS"
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

Respuesta = InputBox("Va a guardar el fichero, ¿quiere conservar los
cambios que ha hecho?")

If Respuesta = "SI" Then
ThisWorkbook.Save
Else
MsgBox "NO SE GUARDAN LOS CAMBIOS"
End If

End Sub



"Ubaldo" escribió en el mensaje
news:

Hola Perdona mi insistencia pero no conozco el tema de visual basic,
podrias
enviarme las sentencias completas que debo poner en la macro desde el sub
inicial hasta el sub final

la sentencia que yo quiero añadir es un MsgBox que diga, (estas seguro de
que quieres guardar la hoja, repaselo)

A ver si me puedes suministrar los datos justo para que yo pueda copiar y
pegar en una macro que cree nueva en blanco.

Gracias por todo




"anonimo" escribió:

OK.
Tienes que utilizar el evento BeforeSave.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

' aqui las isntrucciones

End Sub



"Ubaldo" escribió en el mensaje
news:
> Si lo se gracias, pero no se llas instrucciones que tengo que poner
> para
> que
> se active cuando utilize la función de guardar, es decir si yo creo la
> macro
> y luego digo macro ejecutar me funcionaria, pero no tengo que decir
> macro
> ejecutar sino que se debe ejecutar en el momento justo antes de
> guardar.
>
> Un saludo
>
> "anonimo" escribió:
>
>> Puedes comenzar generando una macro (menu herramientas-macro-grabar
>> nueva
>> macro) con las acciones que quieres realizar.
>>
>>
>> "Ubaldo" escribió en el mensaje
>> news:
>> > Hola a Todos
>> > Estoy interesado en hacer una macro o algo parecido para que
>> > aparezca
>> > una
>> > caja de dialogo dando unas instrucciones al usuario cada vez que
>> > utilice
>> > la
>> > funcion de Archivo Guardar. en las instrucciones le daré la
>> > oportunidad
>> > de
>> > aceptar y guardar o volver al documento.
>> >
>> > Tengo Excel 2002 sobre windows 2000
>> >
>> > Muchas gracias a todos y un saludo
>>
>>
>>