摘要:
本示例为设置密码窗口 (1)If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行Else MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码End If'本示例为设置密码窗口 (1)X = MsgBox("是否真的要结帐?", vbYesNo)If X = vbYes Then Close'本示例为设置工作表密码ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密 阅读全文
posted @ 2012-09-13 16:37 ArRan 阅读(6565) 评论(0) 推荐(0)
浙公网安备 33010602011771号