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