如何限制一个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