這得借助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