Restrict Excel Access

[AndrewD04]

Hi,

I have a Workbook that i would like to restrict access apart from certain users.

I don't want it to ask for the username and password i would like to it auto detect the username of the person and if they are on the list allow access and if not it wont allow them in the document can anyone help please.

Thanks in advance

Dan

 

[mse330]

Hey Andrew,

You can use the below code, however if the user haven't enabled macros the code will not work

Option Compare Text

Private Sub workbook_open()

Dim Arr() As Variant, Flag As Boolean
Arr = Array("mse330 laptop", "Mike") ' <--- change the names here

For x = LBound(Arr) To UBound(Arr)
    If Environ("Username") = Arr(x) Then
        Flag = True
        Exit For
    End If
Next x

If Flag = False Then
    MsgBox Environ("Username") & ", you don't have permission to access this file !", vbExclamation, "Warning"
    ActiveWorkbook.Close False
End If

End Sub