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

怎么让某个EXCEL文件,限制在某台电脑上打开,而其它电脑不能打开该EXCEL文件。 怎么让某个EXCEL文件…

怎么让某个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

关于作者: asdfghjkl

为您推荐

发表回复