按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Private Sub Workbook_Open（） Application。WindowState = xlMaximized End Sub 38 、
ActiveSheet 属性 参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定
的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回
Nothing。 说明 如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。 如果某一
工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。 示
例 本示例显示活动工作表的名称。 MsgBox 〃The name of the active sheet is 〃 &
ActiveSheet。Name 39、Calculate 方法 参阅应用于示例特性计算所有打开的工作簿、工作簿
中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示： 要计算 依照本示例 所
有打开的工作簿 Application。Calculate （或只是 Calculate） 指定工作表 指定工作表 指
定 区 域 Worksheets（1）。Rows（2）。Calculate expression。Calculate expression 对 于
Application 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回―应用于‖
列表中的对象之一。 示例 本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。
Worksheets（〃Sheet1〃）。UsedRange。Columns（〃A：C〃）。Calculate 程序的核心是算法问题 40、
End 属性 参阅应用于示例特性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单
元格。等同于按键 End＋ 向上键、End＋ 向下键、End＋ 向左键或 End＋ 向右键。Range 对象，
只读。 expression。End（Direction） expression 必需。 该表达式返回―应用于‖列表中的对
象之一。 Direction XlDirection 类型，必需。所要移动的方向。 XlDirection 可为
XlDirection 常量之一。 xlDown xlToRight xlToLeft xlUp 示例 本示例选定包含单元格 B4
的区域中 B 列顶端的单元格。
XXIV
…………………………………………………………Page 25……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Range（〃B4〃）。End（xlUp）。Select 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。
Range（〃B4〃）。End（xlToRight）。Select 本示例将选定区域从单元格 B4 延伸至第四行最后一
个 包 含 数 据 的 单 元 格 。 Worksheets（〃Sheet1〃）。Activate Range（〃B4〃；
Range（〃B4〃）。End（xlToRight））。Select 41、应用于 CellFormat 和 Range 对象的 Locked 属
性。 本示例解除对 Sheet1 中 A1：G37 区域单元格的锁定，以便当该工作表受保护时也可对
这 些 单 元 格 进 行 修 改 。 Worksheets（〃Sheet1〃）。Range（〃A1：G37〃）。Locked = False
Worksheets（〃Sheet1〃）。Protect 42、Next 属性 参阅应用于示例特性返回一个 Chart、Range
或 Worksheet 对象，该对象代表下一个工作表或单元格。只读。 说明 如果指定对象为区域，
则本属性的作用是仿效 Tab，但本属性只是返回下一单元格，并不选定它。 在处于保护状态
的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指
定单元格右边的单元格。 示例 本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未
保护，选定的单元格将是紧靠活动单元格右边的单元格。 Worksheets（〃Sheet1〃）。Activate
ActiveCell。Next。Select 43、想通过target来设置 （A1：A10）区域内有改动，就发生此事件。
不知道如何 if target。row = 1 and target。column 保护………》保护并共享工
作簿………》以追踪修订方式共享……》输入密码……》保存文件。 完成后，当你打开―VBAProject‖工
程属性时，就将会提示：―工程不可看！― 方法二（推荐，破坏型锁定）： 用16进制编辑工具，
如WinHex、Ultraedit…32 （可到此下载）等，再历害点的人完全可以用debug命令来做。。。。。。
用 以 上 软 件 打 开 EXCEL 文 件 ， 查 找 定 位 以 下 地 方 ：
ID=〃｛00000000…0000…0000…0000…000000000000｝〃 注：实际显示不会全部为0 此时，你只要将
其中的字节随便修改一下即可。保存再打开，就会发现大功告成！
XXVII
…………………………………………………………Page 28……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住
了呵呵）。 顺便说一句，这种方法仍然是可破解的，因为加密总是相对的 。 59、Sub
Addments（） ' 自 動 對 ActiveSheet 所 有 有 公 式 格 位 加 上 裕А〗狻 et RG =
Cells。SpecialCells（xlCellTypeFormulas） For Each c In RG c。Addment c。ment。Text