下载文档原格式
2003版excel表格密码怎么去除我们在工作中使用excel2003的时候，很久以前设置了密码的文档忘记了该如何打开。
下面让店铺为你带来2003版excel表格密码怎么去除的方法。
2003版excel表格密码去除步骤如下：1、打开您需要解除保护密码的Excel文件;2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa;3、停止录制(这样得到一个空宏);4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;5、删除窗口中的所有字符(只有几个),替换为下面的内容;Option ExplicitPublic Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook structure / windows passwords and for multiple passwords'' China XingYun 27-Feb-2006 (Version 1.0.0)' Modified 2006-Feb-28 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.0.0)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Base code by" & _"China XingYun"Const HEADER As String = "AllInternalPasswords UserMessage"Const VERSION As String = DBLSPACE & "Version 1.0.0 2006-Feb-28"Const REPBACK As String = DBLSPACE & "Please report failure " & _"to the microsoft.public.excel.programming newsgroup."Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _"now be free of all password protection, so make sure you:" & _DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP" & _DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _"may be an offense. If in doubt, don't."Const MSGNOPWORDS1 As String = "There were no passwords on " & _"sheets, or workbook structure or windows." & AUTHORS & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _"will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _"passwords, and your computer's specification." & DBLSPACE& _"Just be patient! Make a coffee!" & AUTHORS & VERSIONConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _"Structure or Windows Password set." & DBLSPACE & _"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _"Note it down for potential future use in other workbooks by " & _"the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _"password set." & DBLSPACE & "The password found was: " & _DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _"future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub6、关闭编辑窗口;7、依次点击菜单栏上的工具---宏,选AllInternalPasswords,运行,确定两次;等一到两分钟,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。
Excel2003 中文版一、简介电子表格处理软件：是office家族中重要成员之一，具有强大的处理计算机功能。
打开方式：“开始”---“所有程序”---“Microsoft Excel2003”或双击桌面上的快捷方式。
二、工作薄和工作表启动Excel系统自动建立一个名为“BOOK1”的工作薄（文件）其中包含了“sheet1”、“sheet2”、“shee3”三张工作表。
创建工作薄：“文件”---“新建”或CTRL+N在工作薄中关于工作表的操作1、插入新的工作表：指针指向工作表标签“sheet”右击“插入”或“插入”---“工作表”2、删除工作表：指向对象标签右击“删除”---“确定”。
3、重命名：方法一：双击工作表的名称标签，输入新名字，回车确定。
方法二：指向工作表的名称标签，右击“重命名”，回车确定。
4、改变工作表标签的颜色：右击“工作表标签颜色”5、移动或复制工作表：指向工作表名称标签，按住左键拖动就可以移动。
移动的同时，按住CTRL键就可以复制工作表。
方法二:指向对象右击“移动或复制工作”，将选定的工作表移动或复制到指定的位置。
6、选择工作表：单击工作表名称标签，就可以选定一个工作表，按ctrl可以同时选择多个工作表。
三、编辑栏单击“视图”---“编辑栏”可以显示或隐藏编辑栏。
名称框：显示单元格地址或名称。
编辑栏：显示单元格内容，单击即可修改单元格内容。
四、单元格1、活动单元格：能够接收用户当前从键盘输入的数据，活动单元格只有一个。
2、单元格的地址：列号和行号组成。
列号：A``Z ；AA---AZ ；BA---BZ；IA—IV（256个列）。
行号：1----65536 按住ctrl可以看到最后一行。
绝对地址：$列号$行号---特指某一个单元格不会发生任何变化。
相对地址：列号行号C9 可随引用环境的变化而变化。
混合地址：$列号行号、列号$行号$c9 c$93、选择1）单击可以选择一个单元格，按左键拖动，可多选。
Excel电子表格功能：完成很多复杂的数据运算，并且能够打印。
打开EXCEL：开始→所有程序→Microsoft Office→Microft office Excel 2003单元格：行和列交叉的位置称为单元格。
B11区域单元格表示方法：区域的（左上角单元格：右下角单元格）C2：D6自动填充：在单元格里输入1，把鼠标指针移动到1单元格的右下方，按下键盘的Ctrl不要松开，然后按下鼠标左键往下拖动，拖好以后，松开鼠标和Ctrl键。
选择单元格：1、直接单击，选择一个单元格。
2、拖动鼠标，选择多个连续的单元格。
3、按下Ctrl键，用鼠标单击或搬运，选择不连续的单元格。
删除单元格的内容：选中单元格，按下键盘的delete键删除。
撤消和恢复：单击工具栏上的撤消和恢复按钮可以完成操作。
操作出错的时候，可以撤消回到上一操作，撤消出错，可以恢复。
查找：编辑→查找替换：编辑→替换第一种方法：用公式求和运算：=单元格1+单元格2+……例：=e2 + f2 + g2求平均分：=(单元格1+单元格2+……)/科目数例：=(e2+f2+g2)/3设置小数位数：选中需要设置小数位数的单元格，在选中的单元格上单击鼠标右键，在弹出的菜单上选择“设置单元格格式”，在设置单元格格式对话框里选择“数值”，输入显示几位小数，确定。
第二种方法：用函数求和：=sum(单元格区域)例：=sum(d2:f2)第二种方法：用函数求平均数：=average(单元格区域)例：=average(d2:f2)第三种求和方法：自动求和求班级共有多少人：=count(单元格区域)求班级优秀学生人数：=countif(单元格区域，条件)例：=countif(j6:j10, ”>=85”)复习：=sum() 求和=average() 求平均分=count() 求单元格个数=countif() 求符合一定条件的单元格个数求优秀率：=优秀人数/总人数=countif(单元格区域，“条件”)/count(单元格区域)例：=countif(d2:d72,”>=85”)/co unt(d2:d72)排序：数据 排序冻结窗口：选择一个单元格，窗口—》冻结窗口自动筛选：数据→筛选→自动筛选=min(单元格区域) 求最小数=max(单元格区域) 求最大数。
