Worksheet version in Footer

  • Thread starter Thread starter Me
  • Start date Start date
M

Me

Does anyone know how, every time the file is save, to put
in a footer:
- the worksheet version.
- the date
- the user's name who modified the worksheet
 
Do you mean the network user's name or the Excel user name. If the latter,
then put this code in the ThisWorkbook code module. It assunes the version
is in variable myVer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Application.UserName & " - " &
Format(Date,"dd mmm yyyy") & " - V" & myVer
End Sub


If it's the former, it's a bit more complicated, but not too much


Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = UserName & " - " & Format(Date,"dd
mmm yyyy") & " - V" & myVer
End Sub



--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top