打开VBE,在thisworkbook下输入如下代码:
Private Sub Workbook_Open()
If Environ("Computername") <> "xxx" Then '把xxx改成你的计算机全称
ThisWorkbook.Close
End If
End Sub
但是这有局限性,如果对方电脑禁用了宏,就不起作用了
可以使用加密软件来实现 比如域之盾系统 将客户端安装在电脑上 由管理端设置加密策略 加密过的文件任何形式的非法外发传输 拷贝打开都是乱码 ,只有在安装过域之盾客户端的电脑上才可以正常打开加密过的文件 希望能帮助到你
这个得用VBA也就是宏代码做了。