宇托的狗窝 » 办公软件 http://yutuo.net 匍匐地跪着，头仰得再高也无法显示你的高度；挺起胸脯站着，低下头，亦能显得伟岸！ Thu, 03 May 2012 15:08:06 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Excel VBA工程密码破解程序 http://yutuo.net/archives/fb552f3b334bd40e.html http://yutuo.net/archives/fb552f3b334bd40e.html#comments Thu, 12 Jan 2012 15:55:11 +0000 yutuo http://yutuo.net/?p=144 新建一个Excel工作簿，Alt+F11 打开VBA编辑器，新建一个模块，复制以下代码，注意如提示变量未定义，则把Option Explicit行删除即可，经测试已经通过。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 '移除VBA编码保护
Sub ClearPassword()
    Dim FileName As String
    FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
    If FileName = CStr(False) Then
       Exit Sub
    Else
       VBAPassword FileName
    End If
End Sub
 
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
      If Dir(FileName) = "" Then
         Exit Function
      Else
         FileCopy FileName, FileName & ".bak"
      End If
 
      Dim GetData As String * 5
      Open FileName For Binary As #1
      Dim CMGs As Long
      Dim DPBo As Long
      For i = 1 To LOF(1)
          Get #1, i, GetData
          If GetData = "CMG=""" Then CMGs = i
          If GetData = "[Host" Then DPBo = i - 2: Exit For
      Next
    
      If CMGs = 0 Then
         MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
          Close #1
         Exit Function
      End If
    
      If Protect = False Then
         Dim St As String * 2
         Dim s20 As String * 1
       
         '取得一个0D0A十六进制字串
         Get #1, CMGs - 2, St
    
         '取得一个20十六制字串
         Get #1, DPBo + 16, s20
    
         '替换加密部份机码
         For i = CMGs To DPBo Step 2
             Put #1, i, St
         Next
       
         '加入不配对符号
         If (DPBo - CMGs) Mod 2 <> 0 Then
            Put #1, DPBo + 1, s20
         End If
         MsgBox "文件解密成功......", 32, "提示"
      Else
         Dim MMs As String * 5
         MMs = "DPB="""
         Put #1, CMGs, MMs
         MsgBox "对文件特殊加密成功......", 32, "提示"
      End If
      Close #1
End Function

我自己做了一个Excel文件，下载：Password.xls

参考地址：http://hi.baidu.com/noso/blog/item/7fa59c588ca0a8dc9d8204f2.html

]]> http://yutuo.net/archives/fb552f3b334bd40e.html/feed 0 Excel快捷键 http://yutuo.net/archives/1be76713119d73b9.html http://yutuo.net/archives/1be76713119d73b9.html#comments Mon, 16 Nov 2009 19:08:49 +0000 yutuo http://yutuo.net/archives/1be76713119d73b9.html
  • Ctrl+( 取消隐藏选定范围内所有隐藏的行。
  • Ctrl+) 取消隐藏选定范围内所有隐藏的列。
  • Ctrl+& 将外框应用于选定单元格。
  • Ctrl+_ 从选定单元格删除外框。
  • Ctrl+~ 应用“常规”数字格式。
  • Ctrl+$ 应用带有两位小数的“货币”格式（负数放在括号中）。
  • Ctrl+% 应用不带小数位的“百分比”格式。
  • Ctrl+^ 应用带有两位小数的“指数”格式。
  • Ctrl+# 应用带有日、月和年的“日期”格式。
  • Ctrl+@ 应用带有小时和分钟以及 AM 或 PM 的“时间”格式。
  • Ctrl+! 应用带有两位小数、千位分隔符和减号 (-)（用于负值）的“数值”格式。
  • Ctrl+- 显示用于删除选定单元格的“删除”对话框。
  • Ctrl+* 选择环绕活动单元格的当前区域（由空白行和空白列围起的数据区域）。在数据透视表中，它将选择整个数据透视表。

  • Ctrl+: 输入当前时间。
  • Ctrl+; 输入当前日期。
  • Ctrl+` 在工作表中切换显示单元格值和公式。
  • Ctrl+' 将公式从活动单元格上方的单元格复制到单元格或编辑栏中。
  • Ctrl+" 将值从活动单元格上方的单元格复制到单元格或编辑栏中。
  • Ctrl++ 显示用于插入空白单元格的“插入”对话框。
  • Ctrl+1 显示“单元格格式”对话框。
  • Ctrl+2 应用或取消加粗格式设置。
  • Ctrl+3 应用或取消倾斜格式设置。
  • Ctrl+4 应用或取消下划线。
  • Ctrl+5 应用或取消删除线。
  • Ctrl+6 在隐藏对象、显示对象和显示对象占位符之间切换。
  • Ctrl+7 显示或隐藏“常用”工具栏。
  • Ctrl+8 显示或隐藏大纲符号。
  • Ctrl+9 隐藏选定的行。
  • Ctrl+0 隐藏选定的列。
  • Ctrl+A 选择整个工作表。如果工作表包含数据，则按 Ctrl+A 将选择当前区域。再次按 Ctrl+A 将选择整个工作表。当插入点位于公式中某个函数名称的右边时，则会显示“函数参数”对话框。当插入点位于公式中某个函数名称的右边时，按 Ctrl+Shift+A 将会插入参数名称和括号。
  • Ctrl+B 应用或取消加粗格式设置。
  • Ctrl+C 复制选定的单元格。如果连续按两次 Ctrl+C，则会显示 Microsoft Office 剪贴板。
  • Ctrl+D 使用“向下填充”命令将选定范围内最顶层单元格的内容和格式复制到下面的单元格中。
  • Ctrl+F 显示“查找”对话框。按 Shift+F5 也会显示此对话框，而按 Shift+F4 则会重复上一次“查找”操作。
  • Ctrl+G 显示“定位”对话框。按 F5 也会显示此对话框。
  • Ctrl+H 显示“查找和替换”对话框。
  • Ctrl+I 应用或取消倾斜格式设置。
  • Ctrl+K 为新的超链接显示“插入超链接”对话框，或为选定的现有超链接显示“编辑超链接”对话框。
  • Ctrl+L 显示“创建列表”对话框。
  • Ctrl+N 创建一个新的空白文件。
  • Ctrl+O 显示“打开”对话框以打开或查找文件。按 Ctrl+Shift+O 可选择所有包含批注的单元格。
  • Ctrl+P 显示“打印”对话框。
  • Ctrl+R 使用“向右填充”命令将选定范围最左边单元格的内容和格式复制到右边的单元格中。
  • Ctrl+S 使用其当前文件名、位置和文件格式保存活动文件。
  • Ctrl+U 应用或取消下划线。
  • Ctrl+V 在插入点处插入剪贴板的内容，并替换任何选定内容。只有在剪切或复制了对象、文本或单元格内容后，才能使用此快捷键。
  • Ctrl+W 关闭选定的工作簿窗口。
  • Ctrl+X 剪切选定的单元格。
  • Ctrl+Y 重复上一个命令或操作（如有可能）。
  • Ctrl+Z 使用“撤消”命令来撤消上一个命令或删除最后键入的条目。显示了自动更正智能标记时，按Ctrl+Shift+Z 可使用“撤消”或“重复”命令撤消或恢复上一次自动更正操作。
    • F1 显示“帮助”任务窗格。按 Ctrl+F1 可关闭并重新打开当前任务窗格。按 Alt+F1 可创建当前范围中数据的图表。按 Alt+Shift+F1 可插入新的工作表。
    • F2 编辑活动单元格并将插入点放在单元格内容的结尾。如果禁止在单元格中进行编辑，它也会将插入点移到编辑栏中。按 Shift+F2 可编辑单元格批注。
    • F3 将定义的名称粘贴到公式中。按 Shift+F3 将显示“插入函数”对话框。
    • F4 重复上一个命令或操作（如有可能）。按 Ctrl+F4 可关闭选定的工作簿窗口。
    • F5 显示“定位”对话框。按 Ctrl+F5 可恢复选定工作簿窗口的窗口大小。
    • F6 切换到已拆分（“窗口”菜单，“拆分”命令）的工作表中的下一个窗格。按 Shift+F6 可切换到已拆分的工作表中的上一个窗格。如果打开了多个工作簿窗口，则按 Ctrl+F6 可切换到下一个工作簿窗口。
    • F7 显示“拼写检查”对话框，以检查活动工作表或选定范围中的拼写。如果工作簿窗口未最大化，则按 Ctrl+F7 可对该窗口执行“移动”命令。使用箭头键移动窗口，并在完成时按 Esc。
    • F8 打开或关闭扩展模式。在扩展模式中，“EXT”将出现在状态行中，并且按箭头键可扩展选定范围。通过按 Shift+F8，您可以使用箭头键将非邻近单元格或范围添加到单元格的选定范围。当工作簿未最大化时，按 Ctrl+F8 可执行“大小”命令（在工作簿窗口的“控制”菜单上。按 Alt+F8 可显示用于运行、编辑或删除宏的“宏”对话框。
    • F9 计算所有打开的工作簿中的所有工作表。如果先按 F9 再按 Enter（对于数组公式则按 Ctrl+Shift+Enter），则会计算选定的公式部分，并将选定部分替换为计算出的值。按 Shift+F9 可计算活动工作表。按 Ctrl+Alt+F9 可计算所有打开的工作簿中的所有工作表，不管它们自上次计算以来是否已更改。如果按 Ctrl+Alt+Shift+F9，则会重新检查相关公式，然后计算所有打开的工作簿中的所有单元格，其中包括未标记为需要计算的单元格。按 Ctrl+F9 可将工作簿窗口最小化为图标。
    • F10 选择菜单栏或同时关闭打开的菜单和子菜单。按 Shift+F10 可显示选定项目的快捷菜单。按 Alt+Shift+F10 可显示智能标记的菜单或消息。如果存在多个智能标记，按该组合键可切换到下一个智能标记并显示其菜单或消息。按 Ctrl+F10 可最大化或还原选定的工作簿窗口。
    • F11 创建当前范围内数据的图表。按 Shift+F11 可插入一个新工作表。按 Alt+F11 将打开 Visual Basic 编辑器，您可以在其中通过使用 Visual Basic for Applications (VBA) 来创建宏。按 Alt+Shift+F11 将打开 Microsoft 脚本编辑器，您可以在其中添加文本、编辑 HTML 标记以及修改任何脚本代码。
    • F12 显示“另存为”对话框。
    • 箭头键 在工作表中上移、下移、左移或右移一个单元格。按 Ctrl+箭头键可移动到工作表中当前数据区域 （数据区域：包含数据的单元格区域，该区域周围为空白单元格或数据表边框。）的边缘。按 Shift+箭头键可将单元格的选定范围扩大一个单元格。按 Ctrl+Shift+箭头键可将单元格的选定范围扩展到与活动单元格同一列或同一行中的最后一个非空白单元格。当菜单处于可见状态时，按向左键或向右键可选择左边或右边的菜单。当子菜单处于打开状态时，按这些箭头键可在主菜单和子菜单之间切换。当菜单或子菜单处于打开状态时，按向下键或向上键可选择下一个或上一个命令。在对话框中，按箭头键可在打开的下拉列表中的各个选项之间移动，或在一组选项的各个选项之间移动。按 Alt+向下键可打开选定的下拉列表。
    • Backspace 在编辑栏中删除左边的一个字符。也可清除活动单元格的内容。
    • Delete 从选定单元格中删除单元格内容（数据和公式），而不会影响单元格格式或批注。在单元格编辑模式下，按该键将会删除插入点右边的字符。
    • End 当 Scroll Lock 处于开启状态时，移动到窗口右下角的单元格。当菜单或子菜单处于可见状态时，也可选择菜单上的最后一个命令。按 Ctrl+End 可移动到工作表上的最后一个单元格，即所使用的最下方一行与所使用的最右边一列的交汇单元格。按 Ctrl+Shift+End 可将单元格的选定范围扩展到工作表上所使用的最后一个单元格（右下角）。
    • Enter 从单元格或编辑栏中完成单元格输入，并（默认）选择下面的单元格。在数据表单中，按该键可移动到下一条记录中的第一个字段。打开选定的菜单（按 F10 激活菜单栏），或执行选定命令的操作。在对话框中，按该键可执行对话框中默认命令按钮（带有突出轮廓的按钮，通常为“确定”按钮）的操作。按 Alt+Enter 可在同一单元格中另起一个新行。按 Ctrl+Enter 可使用当前条目填充选定的单元格区域。按 Shift+Enter 可完成单元格输入并选择上面的单元格。
    • Esc 取消单元格或编辑栏中的输入。按该键也可关闭打开的菜单或子菜单、对话框或消息窗口。
    • Home 移到工作表中某一行的开头。当 Scroll Lock 处于开启状态时，移到窗口左上角的单元格。当菜单或子菜单处于可见状态时，选择菜单上的第一个命令。按 Ctrl+Home 可移到工作表的开头。按 Ctrl+Shift+Home 可将单元格的选定范围扩展到工作表的开头。
    • Page Down 在工作表中下移一个屏幕。按 Alt+Page Down 可在工作表中向右移动一个屏幕。按 Ctrl+Page Down 可移到工作簿中的下一个工作表。按 Ctrl+Shift+Page Down 可选择工作簿中的当前和下一个工作表。
    • Page Up 在工作表中上移一个屏幕。按 Alt+Page Up 可在工作表中向左移动一个屏幕。按 Ctrl+Page Up 可移到工作簿中的上一个工作表。按 Ctrl+Shift+Page Up 可选择工作簿中的当前和上一个工作表。
    • 空格键 在对话框中，执行选定按钮的操作，或者选中或清除复选框。按 Ctrl+空格键可选择工作表中的整列。按 Shift+空格键可选择工作表中的整行。按 Ctrl+Shift+空格键可选择整个工作表。按 Alt+空格键可显示 Excel 窗口的“控制”菜单。
    • Tab 在工作表中向右移动一个单元格。在受保护的工作表中，可在未锁定的单元格之间移动。在对话框中，移到下一个选项或选项组。按 Shift+Tab 可移到前一个单元格（在工作表中）或前一个选项（在对话框中）。在对话框中，按 Ctrl+Tab 可切换到下一个选项卡。在对话框中，按 Ctrl+Shift+Tab 可切换到前一个选项卡。
    ]]>     http://yutuo.net/archives/1be76713119d73b9.html/feed 0