数据蛇表格密码,excel表格文件设置了密码忘记了怎么办

1、受保护的Excel文档无法修改，输入内容就会出现要求密码的提示框

2、修改文件的后缀名为rar，回车确定

3、双击压缩包，打开xl文件夹

4、打开worksheets文件夹

5、点击sheet1文件，以记事本的格式打开

6、点击编辑→查找

7、在查找内容中输入pro，点击查找下一个

8、删掉这段代码

9、Ctrl+S保存文档，关闭文档。将压缩包的后缀名重新改成xlsx

10、这时候密码已经解除，可以输入内容了

excel文件密码忘记找回方式：

1、找到被密码保护Excel表格文档，鼠标右键点击文档，在属性中将忘记密码的Excel文件名称后缀由.xlsx格式改为.rar格式。

2、打开电脑的360压缩，用360压缩打开忘记密码的Excel文件，在360压缩的菜单栏中将此文件还原，然后重新压缩成sheet1.xml格式。

3、从压缩文件里面找到sheet1.xml文件，然后将此文件拖拽到桌面，使用被基本来打开该sheet1.xml。

4、在笔记本中搜索，protection，在电脑新弹出的代码页面中将（sheetprotection……="0"）这一段代码全部删除。

5、然后再把修改后的sheet1.xml文件，鼠标左键拖拽到压缩的工作薄中，选择替换，点击确定。

6、把文件名称后缀由演示表格.rar重新更改演示表格.xlsx即可打开。

EXCEL工作表保护密码破解

:

1\打文件

2\工具---宏----录制新宏---输入名字:aa

3\停止录制(空宏)

4\工具---宏----宏,选aa,点编辑按钮

5\删除窗口所字符(几),替换面内容:(复制吧)

6\关闭编辑窗口

7\工具---宏-----宏,选AllInternalPasswords,运行,确定两,等2钟,再确定。

OK,没密码!!

内容：

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.

双击打开需要去掉密码的Excel表格。

2.

输入密码,打开Excel表格。

3.

点击图标,选择准备,点击加密文件

4.

删掉密码信息,然后点击确定

1、打开工作表-点击注菜单上的“工具”－－“选项”－－“安全性”－－输入打开或修改密码 2、点击注菜单上的“文件”-对话框的右上角的位置“另存为”－－“工具”－－“常规选项”－－输入打开或修改密码

1.打开要设置密码的excel电子文件，在文件菜单占点击另存为。

2.在弹出的设置窗口右下方，点击工具菜单下的常规选项。

3.在弹出的密码设置框上录入打开权限密码和修改权限密码并点确定，两个密码可以设置成不一样，知道打开权限密码的人可以查看但不能修改，这个可以根据自己的需要进行设置。

4.提示重新输入密码，录入并确定。注意录入的密码为打开权限密码，由于设置了两个密码，提示重新输入密码也会有两次，第二次录入修改权限密码，并保存。

5.保存时会提示文件已存在是否要替换它，选择是。

6.设置完成，再关闭电子表格，重新打开检查设置是否生效。 弹出录入密码的提示，说明给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”即可

1，打开一个有工作表保护密码的Excel表格，双击可看到因为密码保护无法修改，点击“确定”，关闭表格。

2，点击表格的文件名，更改后缀xlsx为rar，按回车键后提示命名风险，点击“是”。双击这个文件，会被用解压软件打开。

3，点击“xl”，打开“worksheets”，将“sheet1.xml”文件拖拽到桌面上并点击右键，选择“打开方式”，点击“记事本”。

4，按Ctrl+F查找，输入protection，点击“查找下一个”，将<sheetprotection到=“1”/>这段代码删除。

5，点击“文件”，选择“保存”，把修改后的sheet1.xml文件拖拽回压缩工具中。

6，点击“替换”，关闭压缩工具，把示例文件的后缀改回xlsx即可。

考勤机导出来的表格儿，通常的密码都是数字六个1，。考勤机在设置的时候可以为考勤员设置导出功能，其目的就是为了更加方便的核对员工的考勤，但是由于考勤属于机密信息，所以再倒出来的时候必须有密码设置，所以考勤机导出来的密码通常是六个1，那么公司可以根据字形的要求，要求软件工程师或者公司的电脑技术人员改成一个更复杂的密码。