高分求EXCEL中自动获取IP地址，不要用WINSOCK

发布网友发布时间：2022-04-22 13:27

共3个回答

热心网友时间：2023-07-25 18:55

这段代码能获取计算机的IP地址
Sub test()
Dim GetIP
Dim IPAddress As String
Set GetIP = CreateObject("MSWinsock.Winsock")
On Error GoTo 0
IPAddress = GetIP.LocalIP
MsgBox IPAddress
End Sub

lz还真是热心啊，你的代码分享了，多谢！呵呵

热心网友时间：2023-07-25 18:55

你是要对文件版本，阅读权限进行控制吗，建议使用moss系统
全称Microsoft office sharepoint services

热心网友时间：2023-07-25 18:56

这种东西我做过的，在工作簿写一个workbook_open事件，然后把文本的属性改成系统隐藏，这样不容易发现，有需要的话，HI我

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com