让EXCEL文件只能在某台计算机上打开的VBA代码
2026年08月21日 23:27 发布来源: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
End Sub
这得借助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学习网 [ https://www.excelxxw.com/]
需要保留本文链接地址:https://www.excelxxw.com/jiqiao/2621.html
需要保留本文链接地址:https://www.excelxxw.com/jiqiao/2621.html
上一篇:excel编排考场,前后不能有同班同学
下一篇:返回列表
相关教程:
经典Excel学习视频及教程推荐:
Excel优秀工具推荐:
小工具推荐:
