Signing Spreadsheets

[Vercingetorix.XIII]

There used to be a way to put your name in Windows so that when a user
clicked on Help and About your name and log was there, is there a way to that
in Excel?

 

[ryguy7272]

Here is one way:
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function

Note: it may NOT work as you wish...try it and see...

Regards,
Ryan---

 

[Stephen Bye]

There used to be a way to put your name in Windows so that when a user
clicked on Help and About your name and log was there, is there a way to
that
in Excel?

File > Properties

 

[Vercingetorix.XIII]

thanks, this worked very well...

File > Properties

 

[Vercingetorix.XIII]

I had forgotten all about that one

 

[Gord Dibben]

You didn't like this reply to your posting of yesterday?

Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value _
= ActiveWorkbook.BuiltinDocumentProperties("Author")
End Sub


Gord Dibben MS Excel MVP