第10章--其-他-应-用代码【超实用VBA】(共10页).doc

第10章 其 他 应 用范例144 取得电脑名称Private Sub Workbook_Open() Dim myName As String myName = Environ(Computername) If myName YUANZHUPING Then MsgBox 对不起，您不是合法用户，文件将关闭! ThisWorkbook.Close End IfEnd Sub范例145 定时关闭电脑Sub TimingOff() Shell (at 20:09 Shutdown.exe -s)End Sub范例146 保护VBA代码146-1 设置工程密码146-2 设置“工程不可查看”范例147 使用数字签名范例148 打开指定网页Sub OpenTheWeb() ActiveWorkbook.FollowHyperlink _ Address:=http:/www.microsof