VBA 初级保护自己的代码

hhxxyln · 发表于 2014-7-17 18:46

自己写了一段代码，想利用电脑mac地址保护下，如果mac地址不等于自己电脑的地址，excel自动关闭。找了一段代码，自己修改不成功，哪位朋友来帮帮忙，谢谢

Sub 网卡MAC()

Dim 网卡

Set 网卡 =GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each 地址 In 网卡

If 地址.IPEnabled = True Then

MsgBox "网卡MAC地址: "& 地址.MacAddress

Exit For

End If

housex · 发表于 2014-7-18 08:37

进来看看了

zhewin · 发表于 2023-1-16 15:56

了解一下

bqs211 · 发表于 2024-1-6 15:18

谢谢分享

bqs211 · 发表于 2024-1-7 14:38

谢谢分享

翅膀鞋 · 发表于 2024-2-26 17:53

蟹不肉蟹楼分

ntcgh · 发表于 2024-3-5 07:49

共享学习，谢谢楼主

L1084334947 · 发表于 2024-6-12 14:35

学习学习

[求助] VBA 初级保护自己的代码