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

发布时间：2024-08-06 21:00:04

浏览量：117次

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

[声明]本网转载网络媒体稿件是为了传播更多的信息，此类稿件不代表本网观点，本网不承担此类稿件侵权行为的连带责任。故此，如果您发现本网站的内容侵犯了您的版权，请您的相关内容发至此邮箱【779898168@qq.com】，我们在确认后，会立即删除，保证您的版权。