怎样使用VBA只有本电脑方可打开本工作簿？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'将窗口调整为正常状态，然后将之大小设置为极度小，使之无法显示表中内容
  With ActiveWindow
      .WindowState=xlNormal
      .Top=348    '上边距
      .Left=3     '左边距
      .Width=90   '宽度
      .Height=49  '高度
  End With
  '用密码123保护窗口及结构
  ActiveWorkbook.Protect "123", Structure:=True, Windows:=True
 ThisWorkbook.Close savechanges:=True  '保存工作簿
End Sub
Private Sub Workbook_Open() '限制只有andysky才能开启此工作簿,其他人打开则自杀
Application.EnableCancelKey=xlDisabled '此句表示禁用Ctre+Break中断代码执行
Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
Set colDevices=objWMIService.ExecQuery("Select * From Win32_Processor")
For Each objDevice In colDevices
  ID=objDevice.ProcessorID
Next
If ID <> "BFEBFBFF00000F29" Then
            '如果CPU序列号不是BFEBFBFF00000F29。此号是我的CPU号，每台电脑不同
ThisWorkbook.Close savechanges:=False      '关闭工作簿且不保存
Else                                '否则
  ActiveWorkbook.Unprotect "123"        '解密码
  ActiveWindow.WindowState=xlMaximized  '窗体最大化
  MsgBox 11
End If

End Sub

5、重启工作簿，如果开启本工作簿不是在原电脑上进行，则工作簿自动关闭；若禁用宏再开启工作簿，则工作簿缩小至左下角，无法查看其内容