Forcing save on shared doccument

[Pistolade]

Is there a way to code the macro so that any time a user makes a chang
(and deselects the cell) the file will save? I'm trying to make a sor
of live updating shared document.
Thanks,
-Pistolade

 

[Auric__]

Is there a way to code the macro so that any time a user makes a change
(and deselects the cell) the file will save? I'm trying to make a sort
of live updating shared document.

Put this in the workbook's ThisWorkbook pbject:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Me.Save
End Sub

AFAIK this will only fire when the *contents* of a cell are changed. Things
like formatting changes (bold, italics, fonts, etc.) will *not* fire this
event.

 

[GS]

Put this in the workbook's ThisWorkbook pbject:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target
As Range) Me.Save
End Sub

AFAIK this will only fire when the *contents* of a cell are changed.
Things like formatting changes (bold, italics, fonts, etc.) will
*not* fire this event.

True so long as the formatting isn't done via RTF feature in EditMode!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion