操作工作簿/工作表的常用VBA代码，主要使用到Workbooks对象、Workbook对象、Worksheets对象以及Worksheet对象的属性与方法。
1.新增、打开、关闭工作簿
Workbooks.Add '新增工作簿
Workbooks.Open("E:\VBAMatrix.xlsx") '打开工作簿
Workbooks.Close '关闭所有打开的工作簿
2.保护/取消保护工作簿
ActiveWorkbook.Protect Password:="123456" '保护工作簿
ActiveWorkbook.Unprotect "123456" '取消当前工作簿的保护
3.激活工作簿
Workbooks("VBAMatrix.xlsx").Activate '激活工作簿
4.获取当前工作簿的路径、名称
ActiveWorkbook.Path '当前工作簿的路径
ActiveWorkbook.Name '当前工作簿的名称
ActiveWorkbook.FullName '当前工作簿的路径及名称
5.在当前工作簿的最后一张工作表后新增工作表，并重命名
ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count)
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count).Name="VBAMatrix"
6.复制当前工作表到当前工作簿的最后一张工作表之后
ActiveSheet.copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count)
7.复制当前工作表到新的工作簿，并重命名
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.Close
8.激活工作表、删除工作表
Worksheets("VBAMatrix").Activate '激活工作表
'代码块
ActiveSheet.Delete '删除工作表
9.遍历当前工作簿的所有工作表
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
'代码块
Next
10.关闭当前工作簿以外的所有其他工作簿，并保存其更改
Dim w As Workbook
For Each w In Workbooks
If w.Name <> ActiveWorkbook.Name Then
w.Close savechanges:=True
End If
Next
