怎样才能让EXCEL文档只能在特定的计算机打开

roych

看样子，非要Roy出手不可了~~~(*^__^*) 嘻嘻……
一般来说，思路如下：
1、非要对方启用宏（如果禁用了，神马都是浮云）。因此需要写一个Excel 4.0的宏命令来处理。在此感谢百度文库的网友提供的程序（原教程应该是源于ExcelHome的一本电子书）！
2、启用宏之后，开始执行过程，获取电脑名，符合的就打开，不符合的则关闭。
获取电脑名的代码可以这样写（API函数没试过，貌似不能直接在Excel里直接运行）：

1. Sub test()
   
2. Dim wshnetwork, info As String
   
3. Set wshnetwork = CreateObject("WScript.Network")
   
4. 'If wshnetwork.computername <> "2LXPDH-ROYCH" Then '这一行改为您的文件名
   
5. 'ThisWorkbook.Close
   
6. 'End If
   
7. End Sub

复制代码

此外，写一个过程来隐藏宏程序会更好些。废话少说，详见附件（当然这也只是防君子不防小人的做法啦，如果真的有心破解的话，总有高手能完成的）。

roych

回复 方漠 的帖子

在2007版本下，如果能按tanhong帖子的示例：EXCEL安全措施实例——大家可以试着破解
那样做的话，安全性将大大提升。不过，我对于这方面的研究较少。