您现在的位置: 万盛学电脑网 >> 办公软件 >> Excel教程 >> excel综合 >> 正文

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

作者:佚名    责任编辑:admin    更新时间:2022-06-22

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