1. excel2013加密方法
1.选中整个工作表，点右键选择“设置单元格格式,将“保护”项下的“锁定”选项“勾”去除；
2 选中修改时需要密码的单元格，将“保护”项下的“锁定”选项“勾”上；
3 点选“工具”-“保护”-“保护工作表”，在出现的对话框中输入两次密码，点确定。
4 需要修改时，只需到“保护工作表”再次输入密码。
2. excel的加密方式
点击excel表格左上角的“文件”；
在“信息”选项卡下，点击“保护工作薄”，在出现的下拉菜单中，选择“保护当前工作表”；
设置密码，允许用户进行的编辑中各个选项，看自己要求进行设置，然后点击“确定”，点击确定后，会要求你再次输入设置的密码，两次密码必须完全相同。
以上就是工作表密码的设置过程，注意此密码区别于工作薄密码，工作薄密码是打开密码，打开excel文件就需要输入工作薄密码，而只设置了工作表密码时，打开文件没有问题，只是限制了编辑权限。
3. excel2013加密如何设置
单击上方的【文件-另存为】，点击【浏览】；弹出窗口中点击【工具】，选择【常规选项】；
弹出一个设置密码的对话框，打开权限密码和修改权限密码里，根据需求来设置；
点击保存后弹出替换文本界面选择【是】，关闭excel，再次打开时，需要输入密码。
4. excel加密方法2007
第一种方法：
1、先打开“受密码保护文件.xlsx”文件，点击左上方的“office按钮”；
2、然后选择“另存为”-“Excel工作薄”；
3、点击左下方“工具”-“常规选项”；
4、完成以后步骤后，就可以看到弹出密码框，输入密码，有打开权限密码和修改权限密码，具体根据自己的需要来定。
设置完成后，点击“确定”然后再输一次密码即可。
5、密码已经设置好了，打开另存为的文件，就会有输入密码的提示。
第二种方法：打开文件，点击左上方的“office按钮”-“准备”-“加密文档”在弹出的密码框中输入密码，点击确定，再次输入密码即可。
设置完成后，保存文件，然后再次打开的时候就会有输入密码的提示。注意事项密码是分大小写的， 输入密码时候注意是否开启了大写键盘；如果需要删掉密码，还是重复设置密码的步骤，去掉密码即可。
5. excel2013 加密
看了其他人的回复貌似都是EXCEL2003的设置方法，按如下步骤设置可以实现EXCEL2007的文档加密：
1. 打开需要加密的Excel2007文档，点击左上角的Office标识，在弹出的对话框中选择“另存为”，或者直接使用快捷键“F12”调出对应窗口；
2. 在弹出的另存为窗口左下角，找到“工具”选项。注意这里是关键，点击它，在弹出的窗口中，选择“常规选项”，在弹出的对话窗口中，就可以对该Excel文档进行密码设置；
3. 密码设置分为“打开权限密码”、“修改权限密码”以及“建议只读” 。建议先勾寻生成备份文件”，以保证文件数据安全。如果不禁止其他人打开该Excel文档，可以不设置“打开权限密码”，直接在“修改权限密码”处设置密码即可，如果要将该文档设置为只读，则需要勾寻建议只读”。如果满意，请给个鼓励哈，谢谢！
6. excel加密如何设置方法
首先我们打开Excel软件，进入需要编辑的excel表格文档，选择需要锁定的单元格。选择好需要编辑的内容后我们鼠标右键点击内容，再出现的菜单中选择“设置单元格格式”。
点击设置单元格格式，进入该界面，我们选择其中的“保护”选项卡，勾选“锁定”。然后点击确定，下一步进入上方的菜单工具栏中选择“审阅”选项卡，找到“保护”窗口，选择“保护工作表”。
我们点击保护工作表选项后，进入保护工作表的设置窗口。在保护工作表的设置中，我们可以设置取消工作表保护的密码也可以不设置，然后点击确定。（如果不设置取消工作表保护的密码的话任何人都可以解除工作表的保护）
然后我们设置好密码后点击确认保存，再进入编辑单元格中，被保护的单元格就无法再进行修改了。对于工作表保护最好还是设置密码，如果不设置密码还是可以进行撤销保护进行更改的
7. excel2003加密方法
新建一个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分钟后，就可以编辑了
- 相关评论
- 我要评论
-