【ActiveSheet属性】
ActiveSheet属性用于返回一个对象,表示活动工作簿中或指定的窗口或工作簿中的活动工作表
【Colors】
Colors属性是一个Variant类型的可读写属性,用于返回或设置工作簿调色板中的颜色
【EnableAutoRecover属性】
EnableAutoRecover属性是一个可读写的Boolean型属性,根据规定的时间间隔保存全部格式的已更改文件。
【代码区域】
Sub 自动恢复功能检测() If ActiveWorkbook.EnableAutoRecover = False Then ActiveWorkbook.EnableAutoRecover = True MsgBox "此处启动了文档的自动回复功能!" Else MsgBox "文档的自动恢复功能已经启动", vbOKOnly, "小提示" End If End Sub
【结果展示】
【HasPassword属性】
HasPassword是一个只读的Boolean型属性,用于检测指定的工作簿是否设置密码。
【代码区域】
Sub 设置工作簿密码() Dim wb As Workbook Rem 打开工作簿 Set wb = Application.Workbooks.Open("c:OLIVER.xlsx") Rem 设置密码 wb.Password = InputBox("请输入为文档设置的密码:", "设置密码") wb.Save wb.Close MsgBox "密码设置完成", vbOKOnly, "设置工作簿密码" End Sub
【结果展示】
打开OLIVER.xlsx后,提示