Work book shared

Hi All,
I have shared my work book. How do i know the changed made by other users
I need to close and reopen to see the changes made by the other user i would
like to know without closing the work book i should know the changes made by
other user is there any thing like refresh the work book?

TIA

Hi Kiran,


You dont have to close the work sheet and open it again, what you can do is save the work sheet when ever you want to view the changes made by other user, clt+s acts as refresh.

hope this helps

digvijay

Set a log sheet named say Log. You may hide this sheet. Add a standard module and enter the following code:

Sub LogChanges(addr)

Set myLog = Worksheets("log")
myRow = myLog.Range("A65536").End(xlUp).Row+1

myLog.Cells(myRow, 1) = Now()
myLog.Cells(myRow, 2) = addr

End Sub

And in every other sheets module, add the following code

Private Sub Worksheet_Change(ByVal Target As Range)

Call LogChanges(Target.Address)

End Sub


Whenever a user changes some cell, the address is logged in column B in log sheet, and the time in column A.

Mangesh

Mangesh,

Tried your code. This is so cool! (I'm a newbie - only 3 wks with Excel)

I'd like to take this code you posted for the OP and use it a different way.
I am curious...Can this be done?:

Have the Log sheet store "historical" changes, logging only a finite number
of them (overwriting oldest log entries as newer ones are returned)? Can the
Log
sheet also return the Sheet Name that was edited? My idea is to have
something *similar* to an "Audit Trail".

Example of proposed Log sheet:

Sheet Name......... Date & Time............. Cell Address(es)

.........A.................B.................................C...............
1......CustList......6/16/2005..13:09........$A$23:$B$24
2......Products.....6/16/2005 13:15........$D$678
3......CustList......6/16/2005 13:22........$G$567:$K$567
4......CustList......6/16/2005 13:25........$A$567:$E$567
etc...

Hope this makes sense.
--
Summer

You can get the sheet name with this formula:
=RIGHT(CELL("filename",A1),(LEN(CELL("filename",A1))-FIND("]",CELL("filename
",A1))))

I have lost track of the post whcih you mention.

Mangesh




"Summer" <summer@thecabinbythelake.com> wrote in message
news:Z8Fse.179$Q75.56807@newshog.newsread.com...
> Mangesh,
>
> Tried your code. This is so cool! (I'm a newbie - only 3 wks with Excel)
>
> I'd like to take this code you posted for the OP and use it a different
way.
> I am curious...Can this be done?:
>
> Have the Log sheet store "historical" changes, logging only a finite
number
> of them (overwriting oldest log entries as newer ones are returned)? Can
the
> Log
> sheet also return the Sheet Name that was edited? My idea is to have
> something *similar* to an "Audit Trail".
>
> Example of proposed Log sheet:
>
> Sheet Name......... Date & Time............. Cell Address(es)
>
>
.........A.................B.................................C...............
> 1......CustList......6/16/2005..13:09........$A$23:$B$24
> 2......Products.....6/16/2005 13:15........$D$678
> 3......CustList......6/16/2005 13:22........$G$567:$K$567
> 4......CustList......6/16/2005 13:25........$A$567:$E$567
> etc...
>
> Hope this makes sense.
> --
> Summer
>
>
>
>
>
>
>
>

Mangesh,

Thank you for responding!. Answers to my questions are not critical. I am
merely curious. Please do not go through a lot of trouble on my account. If
the solution is complicated, please do not spend time on this.

Below is the original poster's question with your reply (the one you lost
track of).

Thank you again!
~Summer

"Mangesh Yadav" <mangesh.NOSPAMyadav@gmail.com> wrote in message
news:%235T4e2VdFHA.3616@TK2MSFTNGP09.phx.gbl...
| You can get the sheet name with this formula:
|
=RIGHT(CELL("filename",A1),(LEN(CELL("filename",A1))-FIND("]",CELL("filename
| ",A1))))
|
| I have lost track of the post whcih you mention.
|
| Mangesh

| "Summer" <summer@thecabinbythelake.com> wrote in message
| news:Z8Fse.179$Q75.56807@newshog.newsread.com...
| > Mangesh,
| >
| > Tried your code. This is so cool! (I'm a newbie - only 3 wks with Excel)
| >
| > I'd like to take this code you posted for the OP and use it a different
| way.
| > I am curious...Can this be done?:
| >
| > Have the Log sheet store "historical" changes, logging only a finite
| number
| > of them (overwriting oldest log entries as newer ones are returned)? Can
| the
| > Log
| > sheet also return the Sheet Name that was edited? My idea is to have
| > something *similar* to an "Audit Trail".
| >
| > Example of proposed Log sheet:
| >
| > Sheet Name......... Date & Time............. Cell Address(es)
| >
| >
|
.........A.................B.................................C...............
| > 1......CustList......6/16/2005..13:09........$A$23:$B$24
| > 2......Products.....6/16/2005 13:15........$D$678
| > 3......CustList......6/16/2005 13:22........$G$567:$K$567
| > 4......CustList......6/16/2005 13:25........$A$567:$E$567
| > etc...
| >
| > Hope this makes sense.
| > --
| > Summer

-----------------------------------------

Mangesh wrote Jun 14, 2005:

Set a log sheet named say Log. You may hide this sheet. Add a standard
module and enter the following code:


Sub LogChanges(addr)

Set myLog = Worksheets("log")
myRow = myLog.Range("A65536").End(xlUp*).Row

myLog.Cells(myRow, 1) = Now()
myLog.Cells(myRow, 2) = addr


End Sub


And in every other sheets module, add the following code


Private Sub Worksheet_Change(ByVal Target As Range)
Call LogChanges(Target.Address)

End Sub
Whenever a user changes some cell, the address is logged in column B in
log sheet, and the time in column A.


Mangesh

--------------------------------------------

Kiran wrote Jun 14, 2005:

Hi All,
I have shared my work book. How do i know the changed made by other users
I need to close and reopen to see the changes made by the other user i would
like to know without closing the work book i should know the changes made by
other user is there any thing like refresh the work book?
TIA
-----------------------------------------

Hi,

Follow the same method with the following changes in both the codes:

'------------------------------------
Sub LogChanges(addr, sht)

Set myLog = Worksheets("log")
myRow = myLog.Range("A65536").End(xlUp).Row + 1

myLog.Cells(myRow, 1) = Now()
myLog.Cells(myRow, 2) = addr
myLog.Cells(myRow, 3) = sht

End Sub

'------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

Call LogChanges(Target.Address, Me.Name)

End Sub

'------------------------------------


Mangesh





"Summer" <summer@thecabinbythelake.com> wrote in message
news:K7Cte.749$S17.100324@monger.newsread.com...
> Mangesh,
>
> Thank you for responding!. Answers to my questions are not critical. I am
> merely curious. Please do not go through a lot of trouble on my account.
If
> the solution is complicated, please do not spend time on this.
>
> Below is the original poster's question with your reply (the one you lost
> track of).
>
> Thank you again!
> ~Summer
>
> "Mangesh Yadav" <mangesh.NOSPAMyadav@gmail.com> wrote in message
> news:%235T4e2VdFHA.3616@TK2MSFTNGP09.phx.gbl...
> | You can get the sheet name with this formula:
> |
>
=RIGHT(CELL("filename",A1),(LEN(CELL("filename",A1))-FIND("]",CELL("filename
> | ",A1))))
> |
> | I have lost track of the post whcih you mention.
> |
> | Mangesh
>
> | "Summer" <summer@thecabinbythelake.com> wrote in message
> | news:Z8Fse.179$Q75.56807@newshog.newsread.com...
> | > Mangesh,
> | >
> | > Tried your code. This is so cool! (I'm a newbie - only 3 wks with
Excel)
> | >
> | > I'd like to take this code you posted for the OP and use it a
different
> | way.
> | > I am curious...Can this be done?:
> | >
> | > Have the Log sheet store "historical" changes, logging only a finite
> | number
> | > of them (overwriting oldest log entries as newer ones are returned)?
Can
> | the
> | > Log
> | > sheet also return the Sheet Name that was edited? My idea is to have
> | > something *similar* to an "Audit Trail".
> | >
> | > Example of proposed Log sheet:
> | >
> | > Sheet Name......... Date & Time............. Cell Address(es)
> | >
> | >
> |
>
.........A.................B.................................C...............
> | > 1......CustList......6/16/2005..13:09........$A$23:$B$24
> | > 2......Products.....6/16/2005 13:15........$D$678
> | > 3......CustList......6/16/2005 13:22........$G$567:$K$567
> | > 4......CustList......6/16/2005 13:25........$A$567:$E$567
> | > etc...
> | >
> | > Hope this makes sense.
> | > --
> | > Summer
>
> -----------------------------------------
>
> Mangesh wrote Jun 14, 2005:
>
> Set a log sheet named say Log. You may hide this sheet. Add a standard
> module and enter the following code:
>
>
> Sub LogChanges(addr)
>
> Set myLog = Worksheets("log")
> myRow = myLog.Range("A65536").End(xlUp*).Row
>
> myLog.Cells(myRow, 1) = Now()
> myLog.Cells(myRow, 2) = addr
>
>
> End Sub
>
>
> And in every other sheets module, add the following code
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Call LogChanges(Target.Address)
>
> End Sub
> Whenever a user changes some cell, the address is logged in column B in
> log sheet, and the time in column A.
>
>
> Mangesh
>
> --------------------------------------------
>
> Kiran wrote Jun 14, 2005:
>
> Hi All,
> I have shared my work book. How do i know the changed made by other users
> I need to close and reopen to see the changes made by the other user i
would
> like to know without closing the work book i should know the changes made
by
> other user is there any thing like refresh the work book?
> TIA
> -----------------------------------------
>
>

Thank you so much, Mangesh!

--
Summer

Glad to help. Thanks for the feedback.

Mangesh


"Summer" <summer@thecabinbythelake.com> wrote in message
news:f6_te.748$Q75.105975@newshog.newsread.com...
> Thank you so much, Mangesh!
>
> --
> Summer
>
>
>