Question

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

Answer 1

Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = "d:\test\" '在这里输入要打开的工作簿的完整路径
fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存，本参数用false
End Sub

Answer 2

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