随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA只有本电脑方可打开本工作簿？工具/原料more手机方法/步骤1/5分步阅读

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

2/5

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

3/5

在VBA编辑器中插入模块

4/5

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

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:=TrueThisWorkbook.Close savechanges:=True 保存工作簿End SubPrivate 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.ProcessorIDNextIf ID BFEBFBFF00000F29 Then 如果CPU序列号不是BFEBFBFF00000F29。此号是我的CPU号，每台电脑不同ThisWorkbook.Close savechanges:=False 关闭工作簿且不保存Else 否则 ActiveWorkbook.Unprotect 123 解密码 ActiveWindow.WindowState=xlMaximized 窗体最大化 MsgBox 11End If

End Sub

5/5

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

注意事项

智能手机助理给我们的生活带来了极大的便利！