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

 时间:2024-11-15 18:54:03

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA只有本电脑方可打开本工作簿?

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

工具/原料

手机

方法/步骤

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

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

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

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

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

怎样使用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

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

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

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

批处理怎么删除指定文件夹文件 中证转债指数编制方法 OSPF中的NBMA网络简介 群晖如何扫描病毒并清理 谷歌浏览器怎么浏览上次打开的网页
热门搜索
欧美 图片 红酒图片大全 热门动漫推荐 林肯mkz图片 女人隐私图片不加密