Disable macros if taken off of network

[eggtimer]

Hi

I have a worksheet that is heavily locked down. For agents to use it they access a form that unlocks the sheet, unhides requested rows & ranges then locks it back up, this form is used by about 80 users

My problem now is that I have a second set of sections that can only be access by one user and this user is not able to access the original sections, so I have created a second form that opens just what they require

And below I have the code that prevents Jo Blogg’s accessing the form 1 (in addition to Jo Bloggs on form2 two people can access both)

Sub showForm1()
Select Case Application.UserName
Case Is = "Jo Bloggs"
MsgBox "Selection failed", vbOK
Case Else
FORM1.Show
End Select
End Sub

Sub ShowForm2()
Select Case Application.UserName
Case Is = "John Smith", "Jo Bloggs", "Bill Brown" 
Form2.Show
Case Else
MsgBox "Selection failed", vbOK
End Select
End Sub

My worry is that if a copy of the form is taken off of our company network (the master is read only and loads of copies are saved each day) then because they will not be recognised as Jo Bloggs they will have access to open the section they are restricted from

Is there any sort of code I can write to disable all macros (or prevent this form from being opened) if it is taken off of the company network?

Any help appreciated

Cheers

Wayne

 

[Joe4]

You could add a block of code to the very beginning of your VBA code (or Workbook_Open) event that checks the path that the file is stored in, and if it is not located in the pre-determined company path, it boots them out of the file, i.e.

'   Get path that this macro file is currently stored in
    Dim FilePath As String
    FilePath = ActiveWorkbook.Path
    
    If FilePath <> "D:\CompanyDir\SomeDirectory" Then
        MsgBox "File is not on company network", vbOKOnly, "ERROR!"
        Application.Quit
    Else
        MsgBox "File is on company network", vbOKOnly, "OK to Proceed"
    End If

 

[eggtimer]

Perfect
Thank you that works a treat,
Wayne