如何让EXCEL文件只能在某台计算机上打开的VBA代码

如何让某个EXCEL文件，限制在某台电脑上打开，而其它电脑不能打开该EXCEL文件。

　　这得借助VBA代码来实现。

　　只需要在工作薄打开的事件中，添加如下代码即可。

　　Private Sub Workbook_Open()

　　Application.ScreenUpdating = False
　　On Error GoTo 100
　　Workbooks.Open ThisWorkbook.Path & "/验证.XLS"
　　ActiveWorkbook.Close False

　　Exit Sub

　　100:
　　MsgBox "你无权使用该文件"
　　ThisWorkbook.Close False
　　Application.ScreenUpdating = True

IT时代网(关注微信公众号ITtime2000，定时推送，互动有福利惊喜)所有原创文章版权所有，未经授权，转载必究。
创客100创投基金成立于2015年，直通硅谷，专注于TMT领域早期项目投资。LP均来自政府、互联网IT、传媒知名企业和个人。创客100创投基金对IT、通信、互联网、IP等有着自己独特眼光和丰富的资源。决策快、投资快是创客100基金最显著的特点。