2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub Auto_Open()
Dim Obj As Object, sn As String
For Each Obj In GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard")
sn = Obj.SerialNumber
Next
If Range("A24") = "NC程序名" Then
If sn = "K716333294" Then
Call Work
Else
MsgBox "设备认证失败!"
End If
End If
End Sub
If Range("A24") = "NC程序名" Then