Excel VBA 入门(3) - Workbook对象主要属性

Workbook对象代表Excel的一个工作簿，Workbook和Application的关系就是工作簿和Excel程序的关系

1. ActiveSheet属性

ActiveSheet是一个Worksheet对象（工作表）

    Dim ws As Worksheet    Set ws = Application.ActiveSheet    Debug.Print ws.name    Set ws = ActiveSheet    Debug.Print ws.name    Set ws = Application.ActiveWorkbook.ActiveSheet    Debug.Print ws.name

这三种写法意思一样，最后一种写法比较完全，也说明了Excel程序->工作簿->工作表 之间的关系

2. EnableAutoRecovery属性，用于设置Excel自动恢复功能

    If Not ActiveWorkbook.EnableAutoRecover Then        ActiveWorkbook.EnableAutoRecover = True        Debug.Print "Manul Open"    Else        Debug.Print "Opened"    End If

3. HasPassword属性，工作簿是否加密

    If ActiveWorkbook.HasPassword Then        Debug.Print "Has"    Else        Debug.Print "Hasn't"    End If

4. Password密码

    Dim wb As Workbook    Set wb = Application.WorkBooks.Open("C:\book.xlsx")    '给C盘文件加密，密码为haha    wb.Password = "haha"    wb.Save    wb.Close

去除密码只需Password = ""

5.其他属性就不一一列举了，用于获取工作簿的信息，代码如下

    Dim wb As Workbook    Set wb = Application.ActiveWorkbook    Debug.Print wb.name         '文件名    Debug.Print wb.FullName     '全路径    Debug.Print wb.Path         '路径    Debug.Print wb.ReadOnly     '是否只读

可能的输出如下：

vba.xlsm
E:\Users\Desktop\vba.xlsm
E:\Users\Desktop
False