【VBA编程】12.Workbook对象常用属性

【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后，提示