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?
 

Some videos you may like

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

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
 

Watch MrExcel Video

Forum statistics

Threads
1,114,093
Messages
5,545,916
Members
410,711
Latest member
Josh324
Top