WD1X.COM - 问答一下,轻松解决,电脑应用解决专家
主板显卡CPU内存显示器
硬盘维修显卡维修显示器维修
注册表系统命令DOS命令Win8
存储光存储鼠标键盘
内存维修打印机维修
WinXPWin7Win11Linux
硬件综合机箱电源散热器手机数码
主板维修CPU维修键盘鼠标维修
Word教程Excel教程PowerPointWPS
网络工具系统工具图像工具
数据库javascript服务器
PHP教程CSS教程XML教程

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

更新时间:2012-01-11 14:45 作者:佚名点击:

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

顶一下
(0)
0%
踩一下
(3)
100%
------分隔线----------------------------
你可能感兴趣的内容