Expanding on logging

Eddie Wildon

Board Regular
Joined
Jul 29, 2005
Messages
83
Mornin everyone. Really quick question to expand on something im using now anyway..

At the moment, I log who opens a particular sheet by grabbing thier login id, the name they are using in excel, and the time.

Code:
Private Sub Workbook_Open()
    Open ThisWorkbook.Path & "\usage.log" For Append As #1
    Print #1, Environ("USERNAME"), Application.UserName, Now
    Close #1
    Reset
End Sub

What i would like to add to this is weather or not they opened it in read only, or write access mode. Does anyone have any suggestions for this?
 

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.

DauntingGecko

Well-known Member
Joined
Feb 2, 2006
Messages
521
Sure you can work out the rest... :cool:

Code:
If ActiveWorkbook.ReadOnly = True Then
    MsgBox "This workbook is opened as read-only"
Else
    MsgBox "This workbook is opened as write-access"
End If
 

Eddie Wildon

Board Regular
Joined
Jul 29, 2005
Messages
83
*evil grin*

Yup...I think I got it worked out just fine! Excel can be such a rat sometimes!

Thank you BIG time!

Code:
If ActiveWorkbook.ReadOnly = True Then
        Print #1, "This workbook is opened as read-only"
            Else
        Print #1, "This workbook is opened as write-access"
    End If
 

Forum statistics

Threads
1,141,918
Messages
5,709,339
Members
421,630
Latest member
MJ79

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top