1. excel2003表格怎么设置密码保护
一、首先打开2003版本的excel表格，需要设置excel的密码时可以点击顶部主菜单中的“工具”菜单。
二、点击工具菜单之后，会弹出一列的功能菜单，找到“选项”菜单并点击进入设置。
三、有时候我们点击选项菜单中，也会弹出一个未安装校对工具的提示，不用管它，可以点击关闭按钮或者确定按钮。
四、在弹出来的选项窗口中，找到右上角的“安全性”选项菜单，并点击这个按钮。
五、来到excel表格的加密设置，在打开权限密码右侧的输入框中输入提前想好的密码，然后点击确定。点六、击确定之后，还会弹出确认密码的提示窗口，这时候只需要再次输入跟第一次一样的密码，然后再次点击确定就可以了。
2. excel2003怎样设置密码保护
运用VBA代码破解，可以试下。先复制下面的代码，打开受保护工作表，按Alt+F11，在代码窗口中粘贴后 按F5，在弹出的对话框一直按确定，完成后就可以了。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'' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _"Adapted from Bob McCormick base code by" & _"Norman Harker and JE McGimpsey"Const HEADER As String = "AllInternalPasswords User Message"Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"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 & VERSIONConst 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 me 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 BooleanApplication.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, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn 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 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 Sub
3. excel2010表格怎么设置密码保护
操作方法如下：
1.首先打开加密的文件，此时就会弹跳出输入密码的窗口；
2.然后输入密码，将文件打开；
3.点击右上角的“文件”；
4.点击“保护工作簿”；
5.选择“用密码进行加密”，然后会弹出窗口；
6.然后就会看到，在弹出的窗口，有密码；
7.然后我们将密码删除，然后点击确定；
8.然后将表格关闭，并保存更改，再次打开时就不需要密码了。
4. excel2003怎么撤销保护密码
你指的是加密吧！ 在工具，选项，安全性里取消掉就可以了。
5. excel2003密码保护怎么解密码
下载opremove1.0.0.2版本的大部分excel2003的文件都可以解密，能查出密码的要用这个软件,Advanced Office Password Recovery。时间要长一些。
请把样表发送到linfzz@126.com，可以帮你分析一下。
6. 怎样给excel2003表格设密码
以EXCEL2003为例说明如下：
1、在“格式--条件格式”中设好条件格式；
2、在“工具--保护”选定“允许用户编辑区域”，将需要输入的区域设定为“允许用户编辑区域”；
3、在“工具--保护”中选定“保护工作表”，在提示框中输入需要选择的保护内容以及密码等（这时，条件格式、允许用户编辑区域等功能会变成灰色的，无法再操作）。确定。 然后，允许编辑区域，就可以输入数据、文字等了，但是却不能进行剪切、格式修改等我们不希望看到的改动了。
7. excel表格如何设置保护密码
表格设置了密码，每次打开时都要录入密码，如何取消excel密码，今天来分享一下，希望有所帮助；
首先双击打开被加密的Excel文件，输入密码，点击【确定】，进入文件后点击左上角的【文件】，选择【文档加密】，轻点进入【密码加密】；
将【打开文件密码】和【再次输入密码】删除，最后点击底部的【应用】并保存更改，可以看到文件名旁的【钥匙图标】去除，之后我们双击打开表格，就不用输入密码；
8. excel2003如何加密码保护
那么怎么给Excel设置密码呢？我们一起来看看吧：
方法如下：
一、找到你想要设置密码的Excel表格，点击文件菜单，选择“另存为”：
二、弹出文件框后，在右下角找到“工具（L）”并下拉选择“常规选择（G）”：
三、此时会弹出一个小方框，在“打开权限密码”“修改权限密码”里写下想要设置的密码（两处密码可以不一样，知晓权限密码的人能观看Excel表格但不能更改表格内容），设置完成后点击“确定”：
四、设置完成后需要二次确认密码，第一次输入的密码为【打开权限密码】，第二次输入的密码为【修改权限密码】。确认无误后，点击“确定”保存密码：
五、问题“文件已存在是否要替换它”，选择“是”：
六、这样就完成Excel表格的密码设置了，保险起见，关闭Excel表格再次打开检查是否设置密码完成。如果有弹出录入密码的提示，则表示密码设置成功。
- 相关评论
- 我要评论
-
