Acivar una macro al pusar Archivo Guardar

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
>> >>
>> >>
>> >>
>>
>>
>>

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
>> >>
>> >>
>> >>
>>
>>
>>