compile error

[MetLife]

Hi,

Whenever I open this workbook it automatically opens up the code module and displays the following error pop up.

Compile Error: The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

The code highlighted:

'----- routines for registry management
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
    ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
    ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
    ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
    lpType As Long, lpData As Any, lpcbData As Long) As Long
    ' Note that if you declare the lpData parameter as String, you must pass it ByVal
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Do I just need to change the "advapi32.dll" to a 64 bit one?

 

[RoryA]

No - have a read of this: Declaring API functions for 64 bit Office (and Mac Office)

You will need to alter the declarations to add PtrSafe and change some of the Long to LongPtr (e.g. hKey). You will also probably need to change some of the variables in the code that uses these API calls.