Solved: Only running MyExcel.xls on named machine?

[Switchman]

Try this code as part of a Workbook_Open event. This is a simple way to ensure it only runs on the company computers.

 
Sub Test_Enviroment
    Dim TheDomain
    TheDomain = Environ("UserDomain")
    If TheDomain = "YOUR_Active_Directory or Workgroup" Then
        GoTo ?Your label here?
    Else
        Call KillMe
    End If
End Sub
 
Sub KillMe()
    With ThisWorkbook
        .Saved = True
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName
        .Close False
    End With
End Sub