Excel使用VBA指定电脑打开

Sub auto_open()
Set WMI = GetObject("winmgmts:")
strCls = "Win32_PhysicalMedia"
strKey = strCls & ".Tag=""\\\\.\\PHYSICALDRIVE0" & """"
s = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)

    If s = " Y2G00QBE " Then '要使用的电脑磁盘序列号,注意加引号
    Exit Sub
    Else
        MsgBox "非授权用户，系统将退出。"
        ThisWorkbook.Close False
    End If
End Sub