Excel Macro from 32 to 64 will not run

[Pophil]

Our work upgraded to Microsoft 365 and this has affected a macro that was run on 32,

Here is the original macro

'                                     5/1/2013  .:\L0sT/:.

Private Declare  Function GetUserName Lib "advapi32.dll" _

    Alias "GetUserNameA" _

    (ByVal lpBuffer As String, _

    ByRef nSize As Long) As Long





And this is what i changed it to





'                                     5/1/2013  .:\L0sT/:.

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" _

    Alias "GetUserNameA" _

    (ByVal lpBuffer As String, _

    ByRef nSize As Long) As LongPtr

Also tried this

'                                     5/1/2013  .:\L0sT/:.

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" _

    Alias "GetUserNameA" _

    (ByVal lpBuffer As String, _

    ByRef nSize As Long) As Long



The macro will start to run then eventually close out the excel program.  What am I missing.  Thank you all for your help.





Also does this need to be changed as well for everything to work



'                                     5/1/2013  .:\L0sT/:.

Sub Clear_Temp_Files()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "

End Sub

Sub Clear_Cookies()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"

End Sub

Sub Clear_History()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1"

End Sub

Sub Clear_Form_Data()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16"

End Sub

Sub Clear_Saved_Passwords()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32"

End Sub

Sub Clear_All()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"

End Sub

Sub Clear_Clear_Add_ons_Settings()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351"

End Sub

Sub Clear_4_Tool()

'

    Clear_Temp_Files

    Clear_Cookies

    Clear_History

End Sub

 

[6StringJazzer]

Add PtrSafe before the word Function.

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

 

[Pophil]

Add PtrSafe before the word Function.

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

Unfortunately it didn't work. It will start to run the code then it will close out the program and open it again saying repairing.

 

[6StringJazzer]

That doesn't mean it didn't work. That means something doesn't work.

 

[Pophil]

That doesn't mean it didn't work. That means something doesn't work.

Ok I understand, is there a way to see what didn't work or what the program was trying to repair

 

[6StringJazzer]

I would step through the code in the VBA editor with F8.

 

[Pophil]

I would step through the code in the VBA editor with F8.

thank you for all the help. What I am finding is certain computers with the 64 bit update the program will not work and just close out. Other computers with the 64 bit update the PtrSafe fix works just fine. Any idea why this would happen.

 

[RoryA]

The declaration as 6SJ posted is correct. I don't know why you would bother with an API for this though when Environ("Username") does the same job.

 

[Pophil]

The declaration as 6SJ posted is correct. I don't know why you would bother with an API for this though when Environ("Username") does the same job.

Thank you, this was a program someone created a while ago. What I am finding is certain computers with the 64 bit update the program will not work and just close out. Other computers with the 64 bit update the PtrSafe fix works just fine. Any idea why this would happen.

 

[RoryA]

No, assuming you used the version 6SJ posted and not your version that returns a LongPtr (that is wrong). I'd assume something else is causing the issues.