VBA Code to Check for Domain Match and Open Excel File Security

[jgarza0422]

I am trying to put a security check in some of our excel files in order to be used within our companies domain. Then if it fails do not open the file and if the check is valid then open excel file.

Here is what I got started, any help would be appreciated.

Private Sub Workbook_Open()


Dim chkUserDomain As String
Dim strUserDomain As String


chkUserDomain = "Test"
strUserDomain = Environ$("UserDomain")


If chkUserDomain <> strUserDomain Then
MsgBox "You can not open this file!"

Else


OPEN CURRENT EXCEL FILE????


End Sub

 

[MoshiM]

Try this

Private Sub Workbook_Open()



Dim chkUserDomain As String
Dim strUserDomain As String




chkUserDomain = "Test"
strUserDomain = Environ$("UserDomain")




If chkUserDomain <> strUserDomain Then
         
MsgBox "You can not open this file!"
         
ThisWorkbook.Close


End If


End Sub

 

[jgarza0422]

Thanks that works!

Jgarza0422

 

[MoshiM]

I just realized that you would be better off just placing a password on your workbook because, this macro won't run if the user has macros disabled