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