Group,

I have the following module:
[vba]Option Explicit
Private Sub Workbook_Open()
'Allow only me to open the file in a read/write
If Not Application.UserName = "any name here" Then
ThisWorkbook.ChangeFileAccess xlReadOnly
End If
End Sub[/vba]

This code changes the FileAccess status to read only if you are not the "creator".

I'd like to be able to run a Sub that will look at this module and tell me "any name here" in a message box. This is to help identify who "locked" the worksheet.

Any direction would be helpful.

Thanks!