VBA常用代码讲解学习.docxVIP

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 SaveChanges:=True? End If? Next w? 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。? Application.WindowState = xlMaximized? 本示例显示活动工作表的名称。? MsgBox The name o