手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

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

时间:2024-10-16 00:19:12

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

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

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

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

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

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

4、在模块当中输入如下代码,然后运行Private Sub Workbook_Befo筠续师诈reClose(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 IfEnd Sub

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

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

怎样使用VBA只有本电脑方可打开本工作簿
© 手抄报圈