我想限制Excel工作表仅在我的组织网络内打开。如果我的系统连接到公司的Internet，则只能打开它。如果系统未连接到Internet或连接到外部网络，则不能打开它。
我正在使用宏为此.我已经使用了下面的代码到目前为止，发现这对堆栈溢出的另一个答案.这段代码是在不同的连接网络的系统给出相同的值.这将只工作，如果系统是不同的.但不是为不同的网络.

Option Explicit

Enum COMPUTER_NAME_FORMAT
    ComputerNameNetBIOS
    ComputerNameDnsHostname
    ComputerNameDnsDomain
     ComputerNameDnsFullyQualified
    ComputerNamePhysicalNetBIOS
    ComputerNamePhysicalDnsHostname
    ComputerNamePhysicalDnsDomain
    ComputerNamePhysicalDnsFullyQualified
End Enum

Declare Function GetComputerNameEx Lib "kernel32" Alias "GetComputerNameExA" 
( _
    ByVal NameType As COMPUTER_NAME_FORMAT, _
    ByVal lpBuffer As String, _
    ByRef lpnSize As Long) As Long

Sub test()
    Dim buffer As String
    Dim size As Long
    size = 255
    buffer = Space(size)
    GetComputerNameEx ComputerNameDnsFullyQualified, buffer, size
    Debug.Print Left$(buffer, size)
End Sub