Who inserted sheet?

[daanachellam]

Hi,

Please let me know who on how to track details of who insterted a new sheet in a shared workbook? Track changes is not helpinng.Please advise.

Regards,
Dyana R

 

[Ruddles]

This code in your ThisWorkbook code module should do it but only if macros are enabled:-

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
 
  Dim iNextRow As Long
  Dim ws As Worksheet
  
  Set ws = Sheets("Log")
  iNextRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
  ws.Cells(iNextRow, 1) = Format(Now(), "dd/mm/yyyy hh:nn:ss")
  ws.Cells(iNextRow, 2) = Environ("username")
   
End Sub

Before inserting this code, create a new worksheet called Log and make it hidden.

 

[taurean]

Prior to that, I believe, you will have to un-share the workbook to access the VBA modules. So do it when no one else is accessing the workbook.