各种Excel VBA的命令【Word联盟】Word2007官方下 .doc

各种Excel VBA的命令 本示例为设置密码窗口 (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 of the active