VBA error in 64-bit Windows 7

[anziga]

I have the following code(in Workbook_open) which works OK in 32-bit Win7 system but in 64-bit system it returns an error message, compile error in hidden module.

Dim username As String
username = Environ("USERNAME")
If username <> "jack" Then
If username <> "jill" Then ActiveWorkbook.Close True
End If

Is there something I need to do differently for 64-bit Win7 system?

 

[Sandeep Warrier]

Hmm strange. It works for me with Win 7 64-Bit.

Do you have anything else in the code?

 

[anziga]

Hi Sandeep

Did you try with your logon/user name in the code, i.e. did that particular Excel document remain open?

 

[Trebor76]

Check for and remove, any erroneous reference(s) in the Visual Basic Editor (VBE) i.e. references that start with MISSING:

 

[anziga]

I did check, couldn't find any... but checked from my 32-bit system, not that problematic 64-bit though, not sure does that make any difference anyway?

Check for and remove, any erroneous reference(s) in the Visual Basic Editor (VBE) i.e. references that start with MISSING:

 

[Trebor76]

I did check, couldn't find any... but checked from my 32-bit system, not that problematic 64-bit though, not sure does that make any difference anyway?

Yes, it makes a huge difference. Of course there's no missing references on the 32-bit machine or else you'd be getting the same error message on that machine as well.

 

[Sandeep Warrier]

I meant that I'm not getting any error.

If you want to code such that the workbook will close if the username is not jack or jill, then use

Sub test()
    Dim username As String
    username = Environ("USERNAME")
    If Not (username = "jack" Or username = "jill") Then
        ActiveWorkbook.Close True
    End If
End Sub

 

[anziga]

Ok, I need to modify my code accordingly and test again. If the error message still appears, need to ask the client to have a look at those erroneous/missing references.

 

[anziga]

Latest update... the problem was that client's system, now it's rectified and in order. Thanks guys for your help and tips.