本示例為設置工作表密碼
ActiveSheet.Protect Password:=641112 ' 保護工作表并設置密碼
ActiveSheet.Unprotect Password:=641112 '撤消工作表保護并取消密碼
'本示例保存當前活動工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:/TEMP/XXXX.XLS"
'本示例通過將 Saved 屬性設為 True 來關閉包含本段代碼的工作簿，并放棄對該
工作簿的任何更改。
ThisWorkbook.Saved = True
ThisWorkbook.Close

'本示例對自動重新計算功能進行設置，使 Microsoft Excel 不對第一張工作表自
動進行重新計算。
Worksheets(1).EnableCalculation = False

'下述過程打開 C 盤上名為 MyFolder 的文件夾中的 MyBook.xls 工作簿。
Workbooks.Open ("C:/MyFolder/MyBook.xls")

'本示例顯示活動工作簿中工作表 sheet1 上單元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value

本示例顯示活動工作簿中每個工作表的名稱
For Each ws In Worksheets
MsgBox ws.Name
Next ws

本示例向活動工作簿添加新工作表 , 并設置該工作表的名稱?
Set NewSheet = Worksheets.Add
NewSheet.Name = "current Budget"

本示例將新建的工作表移到工作簿的末尾
'Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
End Sub

本示例將新建工作表移到工作簿的末尾
'Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub