vba常用代码讲解学习.pdfVIP

VBA 常 用 代 码 excel 常用宏 宏代码 大全 本示例为设置密码窗口 (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 保护工作表并设置 密码 ActiveSheet.Unprotect Password:=641112 撤消工作表保护 并取消密码 本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并 保存其更改内容。 For Each w In Workbooks If w.Name ThisWorkbook.Name Then w.Close S