Record date of opening a workbook, together with user name

Hello lost_astronaut

One thing that you have to take into account is that the user should be forced to open workbook with macro's enabled.
For if the user opens workbook without macro's enabled you will not get a macro recording you login information.

ONE WAY TO ACHIEVE THIS ...
- on closing have macro hide and lock all sheets except for a "splash sheet"
- the "splash sheet " in big bold print tells them to open book with macros enabled
- the "on open" macro trigger , if macros are enabled, macro is triggered automatically to hide splash sheet and unhide / unprotect all other sheets.
- if user does not enable macros on open only sees splash sheet ELSE , if enabled sees all sheets but flash sheet


Code to "forced to open workbook with macro's enabled"

Const SPLASH_SHEET_NAME = "DisabledNotice"

Private Sub Workbook_Open()
   changeSheetState xlSheetVeryHidden, xlSheetVisible
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   changeSheetState xlSheetVisible, xlSheetVeryHidden
End Sub

Private Sub changeSheetState(flashSheetState, otherSheetsState)
    Dim wksh As Worksheet
    With Application
    .ScreenUpdating = False
    Sheets(SPLASH_SHEET_NAME).Visible = xlSheetVisible
    For Each wksh In ThisWorkbook.Sheets
        If wksh.name <> SPLASH_SHEET_NAME Then
            wksh.Visible = otherSheetsState
        End If
    Next wksh
    Sheets(SPLASH_SHEET_NAME).Visible = flashSheetState
    .ScreenUpdating = True
    End With
End Sub

if this has helped please consider clicking "add reputation" , thx