让EXCEL文件只能在某台计算机上打开的VBA代码
如何让某个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】 WPS官网下载教程 04-19
- 【excel】 excel背景图片怎么设置 04-13
- 【excel】 表格中的斜线怎么弄 03-09
- 【excel】 怎样把pdf转换成excel文档格式 03-03
- 【excel】 excel表格数字怎么变正常 10-12
- 【excel】 Excel单元格怎么添加下拉选项 09-09
- 【excel】 excel怎么自定义下拉菜单 09-09
- 【excel】 excel怎么设置数据有效性 09-08
- 【excel】 excel怎么调换行列位置 09-02
- 【excel】 excel怎么自动编号排序 08-31
本周热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22 -
2
Excel怎么设置英文首字母大写 2020/08/24 -
3
Excel常用函数公式大全 2013/08/05
-
4
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
-
5
表格中的斜线怎么弄 2022/03/09 -
6
EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
-
7
excel求和出现#value是什么原因? 2016/08/18
-
8
excel单元格中格式太多该怎么解决? 2016/11/25
本月热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
2
Excel常用函数公式大全 2013/08/05
-
3
Excel怎么设置英文首字母大写 2020/08/24
-
4
excel求和出现#value是什么原因? 2016/08/18
-
5
Excel中怎么在散点图中插入直线 2016/08/08
-
6
Excel怎么提取时间中的小时 2020/08/27 -
7
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
-
8
excel表格中隔行选取的三种方法 2016/12/03
-
9
Excel怎么做表格 2013/03/06
-
10
Excel中将15位身份证号转换为18位 2014/07/08