Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2011-11-25 11:01:19 | 被阅次数 | 7257

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

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

上一篇:Excel使用函数帮助

下一篇:EXCEL copy RangeCell的例子

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计