Q1：Excel表格如何设置只读密码及修改工作表密码？
在Excel中无论是删除、添加还是变更密码，打开工作表之后顺序依次是：工具—选项—安全性——“直接修改添加和删除设置”然后确定就可以了！
Q2：excel表格打开设置密码了 可是现在忘了密码怎么办
1.首先将excel表格的文件后缀名.xlsx更改为.rar。
2.通过压缩文件打开这个表格，并找到下面的路径，xl——worksheets——sheet1.xml
3.在压缩文件里的sheet1.xml文件拖出来。
4.用记事本方式将.sheet1.xml文件打开，然后搜索，“protection”，将这段代码删除。即
5.把已经修改后的sheet1.xml文件，拖拽到压缩的工作蒲中，然后选择替换，确认即可。
6.，把文件名称，“演示操作表格.rar”重新更改“演示操作表格.xlsx”，这样就可以将之前设置的密码取消了。excel表格就可以正常打开了。
Q3：Excel表格中，我想把部分数据用密码隐藏起来，输入密码才能看到。请问怎样设置？
想隐藏Excel中的部分数据，设置密码。下面的这种方法希望可以帮到你哦。
选取要设置密码的区域。
打开工作表，如果我们不想让人看到“出生日期”，要查看必须输入正确的密码，可以进行以下设置：选取“出生日期”列D3:D16，右击选“设置单元格格式”。
将选取区域设置隐藏
在弹出的“设置单元格格式”对话框中，在“数字”标签中，单击“自定义”，在右侧的“类型”中重新输入“;;;“，（英文状态下输入三下分号）。确定后即可隐藏选取的区域。
设置查看密码
选取“出生日期”D3:D16区域，依次执行“开始”——“条件格式”——“新建规则”。
在“新建格式规则”窗口中选中“使用公式确定要设置格式的单元格”，并在输入公式“=$D$20=147258”（$D$20为输入密码的单元格，147258是的密码，可以自己定）。
设置隐藏区域显示格式
在上一步的基础上继续点击”格式“按钮，设置“数字”格式为”常规“。这样设置，当满足输入正确密码条件时，“出生日期“区域的格式将转为常规可见格式。
密码单元格（D20）设置隐藏
选择上面提到的D20单元格，右击在快捷菜单中选择“设置单元格格式”，切换至”保护“标签，取消“锁定”，勾选“隐藏”，如图所示。
对D20单元格进行格式设置
在C20单元格输入“输入密码”文字，并设置为红色。在D20单元格设置底色为黄色。
设置密码输入时不可见
选取“D20”单元格，在“设置单元格格式”窗口的“数字”标签中，设置“自定义”格式为“******“。（英文状态下输入6个星号）
保护工作表
隐藏的“出生日期”在编辑栏中还是可以看到，下面的设置可以让编辑栏中无法看到隐藏的内容。
执行”审阅“——“保护工作表“，设置保护密码（此密码和上面的查看密码不同），确定。此时选取出生日期单元格后编辑栏中无法看到内容。
效果展示
当在单元格D20中输入正确密码147258时，出生日期可查看。如果密码错误，出生日期区域将不会显示任何数据。而且在D20中的密码始终以星号显示。
Q4：怎么打开加了密码的EXCEL表格？
1、打开您需要破解的Excel文件
2、依次点击菜单栏上的工具---宏----录制新宏；
3、输入宏名字如:1234，然后停止录制(这样得到一个空宏，为后面添加vb代码做准备)；
4、依次点击菜单栏上的工具---宏----宏,选1234点编辑按钮；
5、删除窗口中的所有字符,替换为下面的内容；
Option Explicit
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. Dont stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, dont."
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 computers 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
6、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次；
耐心等一会,再点击两次确定，就ok啦！
