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

网友投稿 · 2024-03-07 21:03 · 云表格 · 阅读 292

如何让某个EXCEL文件，限制在某台电脑上打开，而其它电脑不能打开该EXCEL文件。如何让某个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