本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If 
本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYes Then Closevba排序函数sort用法
本示例为设置工作表密码 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 sheet is " & ActiveSheet.Name  '
本示例保存当前活动工作簿的副本。 ActiveWorkbook.SaveCopyAs "C:/TEMP/XXXX.XLS"  '
下述过程激活工作簿中的第四张工作表。 Sheets(4).Activate  '下述过程激活工作簿中的第1张工作表。 Worksheets(1).Activate  '
本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。 ThisWorkbook.Saved = True ThisWorkbook.Close  '

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。