保存工作簿 Workbooks("工作簿").Save
另存工作簿并设密码 ThisWorkbook.SaveAs Filename:="路径", WriteResPassword:="密码"
另存工作簿(窗口选择)
ThisWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(, "Excel工作簿(*.xls),*.xls")
指定工作簿的副本保存到文件 ThisWorkbook.SaveCopyAs Filename:="路径"
保存自动恢复文件 With Application.AutoRecover
.Time = 分钟
.Path = "路径"
End With
当前工作薄文件添加到收藏中 ActiveWorkbook.AddToFavorites
工作簿是否保存 Workbooks("工作簿名").Saved = True/False
工作簿最后保存时间 Workbooks("工作簿名").BuiltinDocumentProperties("Last Save Time")
关闭工作簿 ThisWorkbook.Close savechanges:=False
关闭所以工作簿 Workbooks.Close
保护撤消工作薄
Workbooks(1).Protect Password:="***", Structure:=True, Windows:=True
Workbooks(1).Unprotect Password:="***"
窗格冻结 ActiveWindow.FreezePanes=True/False
结构窗口保护 Workbooks(1).ProtectStructure = True
Workbooks(1).ProtectWindows = True
窗口的标题 ActiveWindow.Caption
Windows(1).Caption
Application.Windows(1).Caption
窗口拆分 ActiveWindow.Split=True/False
ActiveWindow.SplitColumn = 1
ActiveWindow.SplitRow = 1
ActiveWindow.SplitHorizontal
ActiveWindow.SplitVertical
窗口切换 ActiveWindow.ActivateNext
ActiveWindow.ActivatePrevious
窗口隐藏 ActiveWindow..Visible = False/True
新建窗口 ActiveWindow.NewWindow
Windows.Arrange Arrangestyle:=xlArrangeStyleVertical
ActiveWindow.WindowState = xlMaximized
重排窗口 Windows.Arrange ActiveWorkbook:=True
Windows.Arrange Arrangestyle:= x
x为:
xlArrangeStyleTiled
xlArrangeStyleCascade
xlArrangeStyleHorizontal
xlArrangeStyleVertical
显示比例 ActiveWindow.Zoom = 200
ActiveWindow.Zoom = 100
设置工作簿视图选项 ActiveWindow.DisplayFormulas = False
评论4
最新资源