Multiple passwords

[WatfordKev]

When opening a worksheet, I'd like for more than one password to be available. Ideally I'd like to subsequently use that information as an audit trail on my workbook, so I can check for instance when the last time user1 or user2 logged in! ...NB I will tell them in advance that I will be doing this!

 

[Trevor G]

Why not just use the Workbook Open event and add a basic audit trail to say who came in and when. You would use the Environ("UserName") to do this. Create a log sheet. Open your workbook then use Alt + F11 then on left side of screen double click thisworkbook then change first drop down to Workbook.

So something like this would work.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_BeforeClose(Cancel <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>)<br>Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>Sheets("Log").Activate<br>Range("d2").Select<br><SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">Until</SPAN> ActiveCell.Value = ""<br>ActiveCell.Offset(1, 0).Select<br><SPAN style="color:#00007F">Loop</SPAN><br>ActiveCell.Value = Environ("UserName")<br>ActiveCell.Offset(0, 1) = <SPAN style="color:#00007F">Date</SPAN><br>ActiveCell.Offset(0, 2) = Time<br>Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()<br>Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>Sheets("Log").Activate<br>Range("A2").Select<br><SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">Until</SPAN> ActiveCell.Value = ""<br>ActiveCell.Offset(1, 0).Select<br><SPAN style="color:#00007F">Loop</SPAN><br>ActiveCell.Value = Environ("UserName")<br>ActiveCell.Offset(0, 1) = <SPAN style="color:#00007F">Date</SPAN><br>ActiveCell.Offset(0, 2) = Time<br>Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[WatfordKev]

Thanks Trevor, I've had some great fun with that code, I'm using it to timestamp and log changes to all kinds of stuff in my workbook!

 

[Trevor G]

Pleased to read you are working with the code, and it is working for you Kev.