Prev: Check for other open wokbooks
Next: names in file name
From: Carrie_Loos via OfficeKB.com on 28 Apr 2010 18:23
I retreived this code from a post and it works good as long as I am the one
who has it opened originally, but if someone else opens the file first, I
have a 'read only' copy and this code gives me an error. Is there a way to
modify this so I can see who has the Excel file open?

Sub UsersList()
Dim users, msg As String
users = Workbooks("Logistics Repair Time Log.xls").UserStatus
For Row = 1 To UBound(users, 1)
msg = msg & users(Row, 1)
Next
MsgBox msg, 64
End Sub

--
Message posted via http://www.officekb.com

From: Peter T on 29 Apr 2010 06:21
That code works fine for me no matter who opened the shared workbook first.

But you mention 'read only', if the workbook is shared you shouldn't get
that. Are you sure it was saved as shared and all users are allowed to share
it. Check manually

In 97-3003, Tools, Share Workbook
In 2007, Review tab, Share Workbook

All users should be able to see the shared workbook in this dialog.

Regards,
Peter T


"Carrie_Loos via OfficeKB.com" <u34134(a)uwe> wrote in message
news:a739b9111a75d(a)uwe...
>I retreived this code from a post and it works good as long as I am the one
> who has it opened originally, but if someone else opens the file first, I
> have a 'read only' copy and this code gives me an error. Is there a way to
> modify this so I can see who has the Excel file open?
>
> Sub UsersList()
> Dim users, msg As String
> users = Workbooks("Logistics Repair Time Log.xls").UserStatus
> For Row = 1 To UBound(users, 1)
> msg = msg & users(Row, 1)
> Next
> MsgBox msg, 64
> End Sub
>
> --
> Message posted via http://www.officekb.com
>


From: Carrie_Loos via OfficeKB.com on 29 Apr 2010 12:10
Thank you and you are right, I did not have it shared because it tells me I
cannot edit or view macros when the workbook is shared. That's why I wanted
to know who was in the workbook rather than making a shared workbook. Any
suggestions?


Peter T wrote:
>That code works fine for me no matter who opened the shared workbook first.
>
>But you mention 'read only', if the workbook is shared you shouldn't get
>that. Are you sure it was saved as shared and all users are allowed to share
>it. Check manually
>
>In 97-3003, Tools, Share Workbook
>In 2007, Review tab, Share Workbook
>
>All users should be able to see the shared workbook in this dialog.
>
>Regards,
>Peter T
>
>>I retreived this code from a post and it works good as long as I am the one
>> who has it opened originally, but if someone else opens the file first, I
>[quoted text clipped - 9 lines]
>> MsgBox msg, 64
>> End Sub

--
Message posted via http://www.officekb.com

 | 
Pages: 1
Prev: Check for other open wokbooks
Next: names in file name