Excel VBA 入门(3)

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

1. ActiveSheet属性

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

1. Dim ws As Worksheet
2. Set ws = Application.ActiveSheet
3. Debug.Print ws.name
4. Set ws = ActiveSheet
5. Debug.Print ws.name
6. Set ws = Application.ActiveWorkbook.ActiveSheet
7. 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属性，工作簿是否加密

1. If ActiveWorkbook.HasPassword Then
2. Debug.Print 'Has'
3. Else
4. Debug.Print 'Hasn't'
5. 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.其他属性就不一一列举了，用于获取工作簿的信息，代码如下

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

可能的输出如下：

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