1、 本示例取消活动工作簿中的所有更改

ActiveWorkbook.RejectAllChanges

2、 本示例在商业问题中使用规划求解函数，以使总利润达到最大值SolverSave 函数将当前问题保存到活动工作表上的某一区域

Worksheets("Sheet1").Activate

SolverReset

SolverOptions Precision:=0.001

SolverOK SetCell:=Range("TotalProfit"), _

MaxMinVal:=1, _

ByChange:=Range("C4:E6")

SolverAdd CellRef:=Range("F4:F6"), _

Relation:=1, _

FormulaText:=100

SolverAdd CellRef:=Range("C4:E6"), _

Relation:=3, _

FormulaText:=0

SolverAdd CellRef:=Range("C4:E6"), _

Relation:=4

SolverSolve UserFinish:=False

SolverSave SaveArea:=Range("A33")

3、 本示例隐藏 Chart1、Chart3 和 Chart5

Charts(Array("Chart1", "Chart3", "Chart5")).Visible = False

4、 当激活工作表时，本示例对 A1:A10 区域进行排序

'Private Sub Worksheet_Activate()

Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscending

End Sub

5、 本示例更改 Microsoft Excel 链接

ActiveWorkbook.ChangeLink "c:\\excel\\book1.xls", _

"c:\\excel\\book2.xls", xlExcelLinks

6、 本示例启用受保护的工作表上的自动筛选箭头?

ActiveSheet.EnableAutoFilter = True

ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

7、 本示例将活动工作簿设为只读?

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

8、 本示例使共享工作簿每三分钟自动更新一次?

ActiveWorkbook.AutoUpdateFrequency = 3

9、 下述 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容

Sub ClearSheet()

Worksheets("Sheet1").Cells.ClearContents

End Sub

10、 本示例对所有工作簿都关闭滚动条?

Application.DisplayScrollBars = False

11、 如果具有密码保护的工作簿的文件属性没有加密，则本示例设置指定工作簿的密码加密选项

Sub SetPasswordOptions()

With ActiveWorkbook

If .PasswordEncryptionProvider <> "Microsoft RSA SChannel Cryptographic Provider" Then

.SetPasswordEncryptionOptions _

PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _

PasswordEncryptionAlgorithm:="RC4", _

PasswordEncryptionKeyLength:=56, _

PasswordEncryptionFileProperties:=True

End If

End With

End Sub

12、 在本示例中，如果活动工作簿不能进行写保护，那么 Microsoft Excel 设置字符串密码以作为活动工作簿的写密码

Sub UseWritePassword()

Dim strPassword As String

strPassword = "secret"

' Set password to a string if allowed.

If ActiveWorkbook.WriteReserved = False Then

ActiveWorkbook.WritePassword = strPassword

End If

End Sub

13、 在本示例中，Microsoft Excel 打开名为 Password.xls 的工作簿，设置它的密码，然后关闭该工作簿本示例假定名为 Password.xls 的文件位于 C:\\ 驱动器上

Sub UsePassword()

Dim wkbOne As Workbook

Set wkbOne = Application.Workbooks.Open("C:\\Password.xls")

wkbOne.Password = "secret"

wkbOne.Close

'注意 Password 属性可读并返回 “********”

End Sub

14、 本示例将 Book1.xls 的当前窗口更改为显示公式

Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate

ActiveWindow.DisplayFormulas = True