Exel 自定义 关机、锁屏、重启 函数
在百度文库不小心看到一则Excel技巧：Excel VBA实现电脑关机。觉的很是神奇，Down下来一看，发现其实很简单。VBA自定义函数而已……整理增加了重启、锁屏（这个不错，到点吃饭了一锁搞定）功能。
有图有真相 任意单元格输入公式
锁屏我就没办法截图了,如果是XP、2000、2003的系统可以下载实例测试。
=锁机()
实现代码
关机
Public Declare Function SHShutDownDialog Lib “shell32″ Alias “#60″ (ByVal YourGuess As Long) As Long
Function 关机()
SHShutDownDialog (0)
关机 = “You have canceled shutdown”
End Function
重启
Private Declare Function SHRestartSystemMB Lib “shell32″ Alias “#59″ (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long
Private Const SystemChangeRestart = 4Public Function 重启()
SHRestartSystemMB 0, vbNullString, SystemChangeRestart
End Function
锁屏
Public Function 锁机()
AppActivate (Shell(“c:\windows\system32\rundll32.exe user32.dll,LockWorkStation”))
End Function
ps: 1.输入公式 “=关机()” 括号是英文半角状态下输入。
下载：Excel自定义关机函数Excel这功能够惊艳吧，赶快试试吧。
Exel 这功能不错
哈哈。
Excel都能用的这么牛X，太厉害了~
挺好的，很实用，赶紧去试试！
问题是下载以后放在哪里，怎样用
你的技巧很强哦！呵呵
你的EXCEL 我很佩服 我还要请教你问题 这两天事情太对！
打错 是太多
还真是强大，找个XP的试试！
@园子
其实应用不广 仅学习使用 嘿嘿
@威言威语
Excel 也可编辑 同样可以制作应用程序
@七七
XP 2000 2003 如果是窗口锁屏 锁机功能就实用了
@睿智小超人
下载后 在任意单元格 输入公式即可 实例文档中有说明
同时你可以按VLT+F11查看VBA源代码 分别在模块1 2 3…中
@joyla
哈哈 知道你忙 身兼数职 横跨两部门
这个东西不错哦，可以输入试试
欢迎回访我的博客www.nbseoer.com/archives
@睿智小超人 编译成VBS脚本直接放在文本文档改后缀就可以吧
这个不错，支持 一下。
不错，挺有意思。
@宁波网站建设
博客的主题不错 挺喜欢的
@cautoz
多谢支持 了解到cautoz 很热心哦
@clyee@clyee.com
编译成VBS 代码要修改了 上述代码还是以Excel为平台
@许昌SEO
呵呵
这么强大？我原来都是用什么迅雷这些软件的自动关机功能，想不到这个也可以
哇，还能只能用！支持
上学时觉得新鲜搞过 后来用VB搞了个 用到了现在！
@学夫子
仅学习使用 对一般用户 实用性不强 ：）
@阿修罗
肯定有效的
@电脑人生
Excel也可以是应用程序开发平台
@游戏攻略
哈哈 那你比我强大 我上学那个只会把WORD当记事本用
没想到啊，真强大！
呵呵，其实就是用VBA脚本调用了ShellAPI而已。。不过这样折腾显然不如直接点开始菜单来的快了。技术意义大于实用意义的东西。。。
技术类狂人都是这样的。呵。
呵呵，无尽的折腾啊
这个要顶!
哈 EXeL 也能这么玩啊 见识了