1. excel中工作表保护密码忘记了
1、先找到有工作表保护密码的Excel表格，然后将忘记密码的Excel文件名称后缀由 .xlsx改为 .rar，如果有提示可以忽略，一般不会造成什么影响。
2、用压缩文件打开忘记密码的Excel文件，然后按以下步骤进行操作：xl——worksheets——sheet1.xml（这里是将sheet1工作表设置了保护密码，可根据实际情况选择相应文件名）。
3、从压缩文件里面找到sheet1.xml文件，然后拖拽至一个方便找到的位置（因为我们要对其要进行修改） 。然后将sheet1.xml文件右击选择用记事本打开方式打开。
4、然后搜索，“protection”，把从这一段代码，全部删除掉。
5、然后再把修改后的sheet1.xml文件，选择拖拽到压缩的工作薄中，选择替换掉即可，点击确定。
6、最后一步，和第一步相反，把文件名称后缀，由“演示表格.rar”重新更改“演示表格.xlsx”。最后打开Excel表格，你会惊喜地发现是不是保护密码都取消了吧
2. excel中工作表保护密码忘记了怎么办
步骤1、打开手机，点击【手机管家】-【进入权限隐私】；
步骤2、进入后点击【应用加密】，如果之前设置了相应的【密码】，是需要输入才可以进入的；
步骤3、不记得就随意输入，下方会出现【忘记密码】，点击会出现之前设置的【密保问题】，输入【相应答案】，就可以【重新设置密码】；
步骤4、如果【密保问题】也忘记了，就需要【恢复出厂设置】来清除密码了，记得备份重要资料；
步骤5、主界面点击【设置】-进入【其他设置】；
步骤6、进入【备份与重置】，进行【相关清理】即可；
备注：如果每次进入加密文件输入密码觉得麻烦，有指纹解锁的机型可以在【应用加密】-【设置】-【使用指纹解锁来打开应用】，可以操作看看。
以上就是应用加密忘记密码了怎么办的步骤，希望给健忘的朋友们有多一个解决方法
3. excel表格工作表保护密码忘了怎么办
1、Excel启动工作表保护后，如果忘记取消工作表保护时使用的密码，则不能对工作表进行编辑。单击“开发工具”菜单，单击“录制宏”，在弹出的“录制新宏”对话框中修改“宏名”，最后单击“确定”按钮。
2、在“代码”区域单击“停止录制”按钮，完成宏的录制。按快捷键 AIT + F8 打开 “宏”对话框，选择新录制的宏，单击“编辑”按钮，对刚才录制的宏进行编辑。
3、打开的宏的代码区域，删除该区域的所有代码。将写好的代码粘贴在该区域，关闭代码编辑区域。
4、再次打开“宏”对话框，选择“PasswordBreaker”，单击“执行”按钮。弹出Excel对话框，单击“确定”按钮，便可以发现Excel的密码保护已经被撤销。
撤消保护工作表后，还可以在“审阅”选项下对工作表重新进行进行保护和撤消保护工作表操作。
4. excel忘了工作表保护密码怎么办
1、首先先找到有工作表保护密码的Excel表格，然后后缀名称，从演示操作表格.xlsx改为演示操作表格.rar，回车确定。
2、然后用压缩文件打开，然后找到下面的路径，xl——worksheets——sheet1.xml（这里设置的保护密码，是sheet1工作表，如果是其他的表格，选择相应的名称即可）。
3、然后把从压缩文件里面找到的sheet1.xml文件，然后拖拽出来，位置可以随意，但是最好是方便找到的地方，要进行修改。
4、然后将sheet1.xml文件打开方式选择用记事本打开，然后搜索，“protection”，把从<sheetprotection.........="0"/>这一段代码，全部删除掉。
5、然后再把修改后的sheet1.xml文件，选择拖拽到压缩的工作蒲中，选择替换掉即可，其他的操作暂时不需要。
6、把文件名称，“演示操作表格.rar”重新更改“演示操作表格.xlsx”即可
5. excel中工作表保护密码忘记了怎么找回
在Excel表格中，用户可以在文档加密页面中，删除密码进行应用，可以撤销保护密码。
1、选择文件
打开需要撤销密码保护的表格，点击文件。
2、选择文档加密
点击文档加密选项。
3、选择密码加密
在右侧选择密码加密选项。
4、删除密码并应用
在密码对话框内删除密码，点击应用即可撤销密码保护。
6. excel中工作表保护密码忘记了怎么解除
我们打开excel 软件后，看见单元格里的文字。接下来，我们在单元格里输入文字。这个时候，我们会发现无法输入文字，并且会收到单元格或则图标受保护的提示。
于是，我们点击excel软件上方的审阅。在审阅处的右上方，我们看见有个撤销工作表保护，点击撤销工作表保护。随即，就会跳出取消工作表保护的密码提示。输入我们设置保护工作表时的密码。然后点击确定。这个时候，我们就取消了excel表格的保护。
当我们返回到excel表格时，我们就能够杂单元格里输入文字或则图表了。
7. excel保护工作表密码忘了怎么办
新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表
一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定
依次点击开发工具----停止录制宏，宏录制完成
依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入VBA界面
在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完
代码复制到VBA编辑窗口内
Public 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 passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const 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 & VERSION
Const 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 me a coffee!" & AUTHORS & VERSION
Const 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 & VERSION
Const 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 & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For 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 Then
PWord1 = 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, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For 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
.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 Then
PWord1 = 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 sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
点击保存
点击开发工具，宏，找到我们刚才录制的宏，点击执行宏
而后，在弹出的所有对话框上，都点击确定，都确定，1分钟后，就可以编辑了
- 相关评论
- 我要评论
-
