cannot run macro error on users laptop

[Mikeymike_W]

Hi and thanks for any help you can give.

I have a user who is getting the "cannot run the macro, the macro may not be available in the workbook" error.

I recently updated the workbook so only one user could access it according to their username so i'm assuming its this bit of code (which works fine on my own system).

I would really appreciate any help you can give me on this.

Option Explicit
Option Private Module
Private Sub Users()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Dim user As String
Dim Users(1) As String
Users(0) = "Mike"

user = Application.UserName
Dim access As Boolean
Dim i As Integer
access = False
For i = 0 To 0
    If Users(i) = user Then
        access = True
        Exit For
    End If
Next
If access = False Then
    MsgBox ("Sorry, the user """ & user & """ does not have the correct access rights to view this workbook")
    ActiveWorkbook.Close
End If

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub

 

[Candyman8019]

Try changing the PRIVATE to PUBLIC.

 

[Mikeymike_W]

Try changing the PRIVATE to PUBLIC.

I'll give it a bash Candyman, thank you!

 

[Mikeymike_W]

Try changing the PRIVATE to PUBLIC.

Do you think i could keep the module private but make the sub public, would that be enough?

 

[Candyman8019]

I'm not sure what affect that would have. Give it a try. I'm curious now as well.

 

[Mikeymike_W]

I'm not sure what affect that would have. Give it a try. I'm curious now as well.

Cool beans, I'll keep you posted.

I just wanted to keep it off the list of macros so keeping it in a private module will do that for me. Making the sub public means i dont need to use application.run and can just use the standard "Call" so i'm hoping it makes the difference.

 

[dmt32]

Cool beans, I'll keep you posted.

I just wanted to keep it off the list of macros so keeping it in a private module will do that for me. Making the sub public means i dont need to use application.run and can just use the standard "Call" so i'm hoping it makes the difference.

where are you calling the code from?

Dave