Macro not work in shard woorkbook

[Abhijeet]

Hi
this macro not work in shard workbook I want run in shard workbook.Please help for this

Option Explicit
Private Sub Workbook_Open()

Dim nextrow As Long

nextrow = Sheet3.Cells(Rows.Count, "A").End(xlUp).Row

With Sheet3
.Cells(nextrow, "A") = Environ("username")
.Cells(nextrow, "B") = Now
End With

End Sub

 

[crouchsw]

I changed the "A"s to 1 and the "B" to 2 and moved the code to the "This Workbook" code area, (not in a module), and it worked just fine.

 

[Abhijeet]

Its not work when shared this workbook

 

[Marc L]

Hi,

as you must already know, many things do not work in shared mode, so use it in normal mode …​

 

[Abhijeet]

I want to know how many users are using the shared workbook.What is the way

 

[SirJB7]

Hi, Abhijeet!

Use a new worksheet to hold the users that are logged in and then count from there. Anticipating your usual "give me macro" response, I won't give you any but the clues that'd help you build it:
a) Create a new worksheet.
b) Each time someone opens the workbook you should add its user name to 1st empty cell in column A of the worksheet of a)
c) Each time someone closes the workbook you should delete its user name from column A of the worksheet of a)
d) When you want to know how many users are using the shared workbook you should count the number of non-empty cells in column A of the worksheet of a)

That's all, I guess.

Regards!

 

[Marc L]

Abhijeet, you must read this !​

 

[SirJB7]

Hi, Abhijeet!
I join Marc L recommendation, and I move forward: switch to Access, create a table for each worksheet, a form for those who require it, and get rid of Excel constraints about shared workbooks.
Regards!