excel如何设置修改密码
1、电脑打开Excel表格，然后点击文件。 2、点击文件后，点击左侧的信息进入信息页面。 3、在信息页面，点击保护工作簿。 4、点击保护工作簿后，会有加密选项，根据情况选择。 5、选择加密文档后，设置一个密码，然后点击确定就可以了。
excel通常用来保存数据，有时为了保护隐私或者安全起见需要设置密码，接下来就介绍如何设置和修改密码
材料/工具
excel
方法
首先打开excel，点击图中所示红框部分
方法/步骤 打开你要加密的Excel文件，这里我以会议章程.xlsx为例， 点击左上角工具栏中“文件”，再点击下方的“信息”一栏， 点击“保护工作北图标，这时会弹出一个菜单列表，其中包括“用密码进行加密”， 点击菜单“用密码进行加密”，这时会弹出密码
选择“文档加密”
1、先在桌面上找到EXCEL表格，并将这份表格点击打开。 2、打开了表格之后，在表格的工具栏上面找到审阅并点击它。 3、进入审阅的菜单栏里面之后，在下面找到保护工作表这个选项，点击。 4、点击了之后，在里面输入密码，点击确定。 5、设置之后
通常会选用密码加密
Excel 2007版本，密码的设置、修改和撤销方法如下： 1.点击“另存为”按钮； 2.在“保存”按钮的左边有个“工具”按钮； 3.点击“工具”按钮，选择“常规选项”； 4.进行密码的设置、修改撤销。 希望对你有所帮助哦！
点击进去后填好图中信息，最后再点击“应用”即可
1、双击桌面的Excel2007快捷方式打开它。 2、打开之后，输入要填写的信息内容，然后点击左上角的那个“圆形”图标，在出现的菜单中将鼠标放在‘准备’上面，然后在出现的子菜单中点击“加密文档”选项。 3、点击之后，在输入框中输入密码，然后点击 确
如果需要修改密码或者取消加密，只需要重复步骤1、2、3，在第四步中修改密码，或者直接删掉所有密码，然后点击“应用”即可
第一步：输入密码后打开文件； 第二步：另存文件，点击工具-常规选项，如图： 第三步：去除所有密码。（注：无法截图，原因不明）
扩展阅读，以下内容您可能还感兴趣。
怎样设置密码保护EXCEL表格
二。两种方法(任选一)：
1.工具---选项---安全性---打开权限密码（设置后无密码打不开文件）/修改权限密码（设置后无密码能打开文件但不能修改文件）
2.文件---另存为--工具--常规选项--打开权限密码（设置后无密码打不开文件）/修改权限密码（设置后无密码能打开文件但不能修改文件）
允许指定用户访问受保护的区域
必须安装了 Windows 2000 或更高版本并且计算机位于域中，才能授予特定用户访问区域的权限。
在“工具”菜单上，指向“保护”，然后单击“允许用户编辑区域”（该命令仅在工作表未受保护时才可用）。
单击“新建”。
在“标题”框中，键入要授权访问区域的标题。
在“引用单元格”框中，键入等号 (=)，然后键入引用或选定的区域。
在“区域密码”框中，键入密码以访问区域。
该密码是可选的。如果您没有使用密码，则任何用户都可编辑单元格。
单击“权限”，然后单击“添加”。
查找和选择要被授予权限的用户。如果想选择多个用户，请按住 Ctrl 并单击其名称。
单击“确定”两次，并按照提示再次键入密码。
对授予了访问权限的每个区域，请重复上述步骤。
如果要保留区域和用户的单个记录，请选中“允许用户编辑区域”对话框中的“将权限信息粘贴到一个新的工作簿中”复选框。
保护工作表：单击“允许用户编辑区域”对话框中的“保护工作表”。
在“保护工作表”对话框中，请确认选中了“保护工作表及锁定的单元格内容”复选框，并为工作表键入密码，接着单击“确定”，然后重新键入密码加以确认。
注释 工作表密码可以禁止其他用户编辑您指定的区域。请确保记住了所选的密码，因为如果丢失了密码，您就不能访问工作表上受保护的元素。
答案补充
保护所有用户的工作表元素
请切换到需要实施保护的工作表。
取消任何您希望用户可对其进行更改的单元格的锁定：选择每一个单元格或区域，单击“格式”菜单上的“单元格”，再单击“保护”选项卡，然后清除“锁定”复选框。
隐藏任何不希望显示的公式：选择具有公式的单元格，单击“格式”菜单上的“单元格”，再单击“保护”选项卡，然后选中“隐藏”复选框。
取消用户要更改的图形对象的锁定。
操作方法
不必取消用户可单击和使用的按钮或控件的锁定。可以取消用户可修改的嵌入图表、文本框及由绘图工具所创建的其他对象的锁定。如果要查看工作表中的哪些元素是图形对象，请单击“编辑”菜单中的“定位”，再单击其中的“定位条件”，然后单击“对象”。
按住 Ctrl 并单击每个要取消锁定的对象。
在“格式”菜单上，单击所选对象对应的命令：“自选图形”、“对象”、“文本框”、“图片”、“控件”或“艺术字”。
单击“保护”选项卡。
清除“锁定”复选框，如果显示，请清除“锁定文本”复选框。
在“工具”菜单上，指向“保护”，再单击“保护工作表”。
为工作表键入密码。
如何给excel设置密码
最低0.27元/天开通百度文库会员，可在文库查看完整内容>
原发布者:dsdkj123
教你如何给Excel加密教你如何给Excel加密，相信大家对Excel不会陌生了吧！很多人都喜欢用Excel来存数据，比如工资表，财务报表等，而这些数据又不能随意公开，那么给Excel加密就至关重要了，下面为大家介绍2种给Excel加密的方法。第一种：windos自带的加密方法，适合给单个Excel加密，不利于给多个Excel加密。1.首先打开你需要加密的Excel文件，然后单击菜单栏的文件，选择另存为，接着点击常规选项。2.点击常规选项后会弹出一个窗口，你就可以输入密码了。3.设置密码后点击确定，然后点击保存，就可以了，下次打开这个文件，就需要输入密码。第二种方法：就是借助加密软件了，适合给多个Excel加密1.首先上网下载一个加密软件，比如迅影加密王，这是一款专业的文档加密软件。用迅影加密王给自己的硬盘创建一个保险柜。如图：2.创建成功后，然后就可以登录自己创建的保险柜了。生成的保险柜会映射出一个z盘，如图：3.打开保险柜，然后把需要加密的Excel文件全部放入z盘，然后退出保险柜，就轻松的给这些Excel加密了。通过以上2种方法的介绍相信大家对如何给Excel加密有了基本的了解了，如果有对第二种方法不熟悉的可以看使用教程使用教程：http://jmw.prayaya.com/a/newfile10.html分享一个破解序列号：excel文件设置密码怎么设置
第一种方法：
1、先打开“受密码保护文件.xlsx”文件，点击左上方的“office按钮”；
2、然后选择“另存为”-“Excel工作薄”；
3、点击左下方“工具”-“常规选项”；
4、完成以后步骤后，就可以看到弹出密码框，输入密码，有打开权限密码和修改权限密码，具体根据自己的需要来定。设置完成后，点击“确定”然后再输一次密码即可。
5、密码已经设置好了，打开另存为的文件，就会有输入密码的提示。
第二种方法：
打开文件，点击左上方的“office按钮”-“准备”-“加密文档”
在弹出的密码框中输入密码，点击确定，再次输入密码即可。
设置完成后，保存文件，然后再次打开的时候就会有输入密码的提示。
注意事项
密码是分大小写的， 输入密码时候注意是否开启了大写键盘；
如果需要删掉密码，还是重复设置密码的步骤，去掉密码即可。本回答被提问者采纳
Excel密码设置人密码如何去掉或者更改
第一步：输入密码后打开文件；
第二步：另存文件，点击工具-常规选项，如图：
第三步：去除所有密码。（注：无法截图，原因不明）
如何更改excel文件的密码
设置的什么密码？如果是工作表保护密码的话试试这个：
打开文件-----工具---宏----录制新宏------输入名字如:123-----停止录制(这样得到一个空宏)工具---宏----宏------选123,----点编辑按钮---删除窗口中的所有字符替换为下面的内容（呵呵，代码不是我写的，感谢写这段代码的人，非常好用）为免输错，你可以直接复制：
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
关闭编辑窗口
工具---宏-----宏运行----确定两次----等会儿（时间可能有点点长，要等会儿）----再确定
哈哈没有密码了
