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

2024-12-05 05:48:53

推荐回答（3个）

回答1：

这段代码能获取计算机的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还真是热心啊，你的代码分享了，多谢！呵呵

回答2：

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

回答3：

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