VBA error in hidden module Error 32 bit to 64 bit?

ipon70

Board Regular
Joined
May 8, 2013
Messages
101
Office Version
  1. 365
Platform
  1. Windows
So I started getting this error ever since they upgraded to Officer 365.
The helpdesk says its a 32 vba error and needs to be 64 bit....

compileerror.png


Here is the code causing the issue. When the user clicks the delete button it literally doesn't even get the MSG box it just says that above message.

Sub Edit_db()
101:
Application.ScreenUpdating = False
Sheets("REVIEW").Visible = True
If Range("M4") = "" Then
MsgBox "You have left the ID number blank." & vbCrLf & "Please enter a item ID before pressing delete", vbQuestion + vbCritical + vbOK, "DATABASE ENTRY DELETE"
Exit Sub
Else
If Range("N4") = 1 Then
MsgBox "You are trying to delete a non item." & vbCrLf & "Please enter a valid item ID before pressing delete", vbQuestion + vbCritical + vbOK, "DATABASE ENTRY DELETE"
Exit Sub
Else
answer = MsgBox("This will delete the information shown from the database." & vbCrLf & "THIS CAN NOT BE UNDONE!" & vbCrLf & "Click YES to delete the information." & vbCrLf & "Click NO to cancel.", vbQuestion + vbCritical + vbYesNo, "DATABASE ENTRY DELETE")
If answer = vbYes Then
x = InputBox("Enter your Password.", "Password Required")
If x = "123456" Then
Call db_delete_entry
Call Clear_edit
Else
If i <= 1 Then
MsgBox "Invalid Password. Try again"
i = i + 3
GoTo 101:
Else
MsgBox "Incorrect password entered too many times. Try again later."
Exit Sub
End If
End If
End If
End If
End If
Application.ScreenUpdating = True

End Sub
 
Was your VBA project protected originally?
Yeah it was locked down and only a couple people had the password to the actual backend. and then the delete password was different from that and only a few people had that. Everything for years worked, then this "upgrade" happened and the entire process got borked. Then you call the "helpdesk" and they say "we blocked all macro's from running"....well I know that isn't true because 50% of the people can still use this....then two months later they say "well they aren't blocked but they will only run if they are 64 bit code"....and I am like.....I have no idea how to comply with these requests and changes.
 
Upvote 0
None of that code is bit-specific. Is that definitely the code in the Sheet9 worksheet code module?
 
Upvote 0
None of that code is bit-specific. Is that definitely the code in the Sheet9 worksheet code module?
Sheet9 is the code I posted from that sheet. Sheet9 is the "review" sheet of the excel document, which is using the code I posted before.
 
Upvote 0
If you referring to looking for the "declare" statement, yes...there are no declare statements anywhere in the document.
No Rory is referring to in your VB Editor clicking the Tools icon, then clicking References and checking to see if any have the word MISSING next to them


"well they aren't blocked but they will only run if they are 64 bit code"
The only issue you have with 64bit against 32bit is when Running API code changing the declarations on anything with a hook or pointer, the Idea that they have put something in there to force an API code to run
every time you run a macro seems improbable to me.

Sheet9 is the code I posted from that sheet.
In the Project window is it showing as Sheet9 inside or outside the Parentheses (or both)?

1740493886961.png
 
Last edited:
Upvote 0
No Rory is referring to in your VB Editor clicking the Tools icon, then clicking References and checking to see if any have the word MISSING next to them



The only issue you have with 64bit against 32bit is when Running API code changing the declarations on anything with a hook, the Idea that they have put something in there to force an API code to run
every time you run a macro seems improbable to me.


In the Project window is it showing as Sheet9 inside or outside the Parentheses (or both)?

View attachment 122716
missing.PNG
shhet9.PNG


This is what I see for names and missing stuff
 
Upvote 0
Can you scroll down and double check none say missing, can you also while scrolling see if there is a 2.0 of atlentitypicker 1.0 type library
If there is try unchecking 1.0 and checking 2.0
 
Upvote 0
You may also want to unprotect the project and then try a Debug - Compile as that should flag specifically what is causing the error.
 
Upvote 0
Can you scroll down and double check none say missing, can you also while scrolling see if there is a 2.0 of atlentitypicker 1.0 type library
If there is try unchecking 1.0 and checking 2.0
Went through all of them and none of them said missing and 2.0 is not in there to check.
 
Upvote 0

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top