各种Excel VBA的命令大全

本示例为设置工作表密码
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