VBA fOSUserName 64 bit - 32 bit issue

[Retroshift]

Hi

The code below is meant to retrieve the username in a cell with the formula =fOSUserName()
The code works flawlessly on my private desktop with Excel 2019 64 bit.
However, the code does not seem to work on my company's desktop with Excel 2016 32 bit, even though the code works on this 32 bit desktop if I remove the if statement (so I merely write the "declare function").
I need the code to work on both 32 bit and 64 bit systems and I am wondering what the issue is?

#If Win64 = 1 And VBA7 = 1 Then
     Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
     Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

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

 

[johnnyL]

Instead of:

#If Win64 = 1 And VBA7 = 1 Then

Try just:

#If VBA7 Then

 

[Retroshift]

Thanks but I already tried this and it unfortunately has the same result. (And I also want to avoid using the environ(username) because it is prone to spoofing.)

 

[Retroshift]

Can you make an if statement on the bit version of Excel alone?
Because both Excel 2016 and Excel 2019 use VBA 7.1.
Both desktops have Windows 64 bit.
The only difference is that the Excel 2016 is 32 bit and the Excel 2019 is 64 bit.

 

[johnnyL]

I tested your code on 64bit windows
32bit Office Excel 2007 - - - Works
32bit Office Excel 2016 - - - Works

Perhaps your Work environment is restricted in some way.

 

[Retroshift]

I cannot figure out in what way the environment could be restricted if the regular declare function (without the if statement) does work fine. Any ideas?

 

[Retroshift]

Okay, I think I made it work by adding an IF(NOW) function to the cell of the username (for updating).