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