随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA只有本电脑方可打开本工作簿?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateSubWorkbook_Befo筠续师诈reClose(CancelAsBoolean)媪青怍牙'将窗口调整为正常状态,然后将之大小设置为极度小,使之无法显示表中内容WithActiveWindow.WindowState=xlNormal.Top=348'上边距.Left=3'左边距.Width=90'宽度.Height=49'高度EndWith'用密码123保护窗口及结构ActiveWorkbook.Protect"123",Structure:=True,Windows:=TrueThisWorkbook.Closesavechanges:=True'保存工作簿EndSubPrivateSubWorkbook_Open()'限制只有andysky才能开启此工作簿,其他人打开则自杀Application.EnableCancelKey=xlDisabled'此句表示禁用Ctre+Break中断代码执行SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolDevices=objWMIService.ExecQuery("Select*FromWin32_Processor")ForEachobjDeviceIncolDevicesID=objDevice.ProcessorIDNextIfID<>"BFEBFBFF00000F29"Then'如果CPU序列号不是BFEBFBFF00000F29。此号是我的CPU号,每台电脑不同ThisWorkbook.Closesavechanges:=False'关闭工作簿且不保存Else'否则ActiveWorkbook.Unprotect"123"'解密码ActiveWindow.WindowState=xlMaximized'窗体最大化MsgBox11EndIfEndSub
5、重启工作簿,如果开启本工作簿不是在原电脑上进行,则工作簿自动关闭;若禁用宏再开启工作簿,则工作簿缩小至左下角,无法查看其内容