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

2013-09-07 15:36 阅读 446 次 评论关闭

如何让某个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
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:让EXCEL文件只能在某台计算机上打开的VBA代码 | 猎微网
分类:Excel VBA 标签:, , , , ,

评论已关闭!