2022-12-09 14:56来源:m.sf1369.com作者:宇宇
1、首先打开加密的文件,此时就会弹跳出输入密码的窗口。
2、然后输入密码,将文件打开。
3、点击右上角的“文件”。
4、点击“保护工作簿”。
5、选择“用密码进行加密”,然后会弹出窗口。
6、然后就会看到,在弹出的窗口,有密码。
7、然后我们将密码删除,然后点击确定。
8、然后将表格关闭,并保存更改,再次打开时就不需要密码了。
1打开excel,鼠标左键选中有内容的区域,单击鼠标右键,出现菜单后,点击田字格图标,添加所有框线
2点击顶部的视图,取消勾选 显示网格线
3如图所示,就只显示有内容的区域了。
把excel单元格内容锁定不让修改,在审阅中设置保护工作表即可实现。方法步骤如下:
1、打开需要操作的EXCEL表格,点击审阅标签页中的“保护工作表”。
2、视情况可设置保护密码,然后点击确定按钮即可。
3、返回EXCEL表格,点击数据单元格,发现表格excel单元格内容锁定不让修改操作完成。
这是因为工作簿或工作表设置了“保护”,如果其他工作表可编辑,且工具栏是可编辑状态,仅当前工作表工具栏灰色,那么说明当前工作表处于“保护”状态,需要在“审阅”选项下的“取消保护工作表”中,输入正确密码,解除保护,方可编辑。
1、选择不需要锁定的区域,设置单元格格式-保护:取消勾选“保护”。
2、保护工作表。
则,未取消勾选“保护”的单元格区域在保护工作表状态下,将被保护,不能被编辑。而取消勾选“保护”的单元格区域在保护工作表状态下,不受保护,仍可编辑。
1、准备工具(1)excel2、离开座位时,按win+L键一键锁屏,屏锁了什么文件也看不了了。
3、在保存excel文件时,点击:文件-信息-保护工作簿-用密码进行加密,输入密码为当前文件设置打开密码,当再次打开时,会提示输入密码。
4、还可以将excel窗口隐藏,方法是:视图-隐藏窗口。
当别人打开你的excel文件时,界面是这样的。
5、还可以保护工作簿,选取工作表标签-右键”隐藏“-最后保护工作簿。别人打开你的excel文件,隐藏的工作表看不到而且无法取消。
6、隐藏表格所在列,然后保护工作表。别人就无法看到隐藏的部分了。
7、选取左上角小方块,按ctrl+9+0即可把行列全隐藏起来。一般人还真不会取消,除了看了今天教程的聪明人。(1)取消方法:选取小方块,按ctrl+shift+9+08、选取要隐藏的表格,ctrl+1打开单元格设置窗口,数字- 自定义-右侧框中输入";;;"(3个分号),你会发现表格不见了。9、隐藏后的效果如图.这就是让别人无法看到自己EXCEL表格内容的方法了10、如果上述都无法解决问题,可能是程序出现了问题。建议重新下载安装试试,建议使用WPSoffice2016:www.3322.cc/soft/9218.html
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
首先是,显然从原加密到现在可以打开,是有个变化的,楼主应该把如何会变化的加以说明。
其次是,楼主应该看看,是不是有隐藏的或深度隐藏的工作表,查看的方式是文件打开后,再打开VBA编辑器,然后看看项目管理器(VBProject管理器)中的项目,看看有没有一些在Excel工作簿画面中没有的WorkSheet存在,如果有,可以在属性窗口中检查Visible属性是否为-1,如果不是,就是被隐藏的工作表,不管是0还是2,都改为-1既可看到。或者把原始文档发到我邮箱也可帮你看看以下方法可以让任何人浏览内容,但如果想输入内容则需要输入密码:先选择要受保护的行列然后:在“工具”菜单中选择“保护”
选择“允许用户编辑区域”选择“新建”
在“区域密码”下方文本框内输入密码“确定”,确认密码框内再次输入密码“确定”,然后会返回的窗口中选择“保护工作表”
在弹出的对话框中选择“保护工具表及锁定单元格的内容”
然后在下方有文本框中输入密码,确定即可。
“excel中限制某些单元格不能修改”的操作步骤是:
1、打开Excel工作表;
2、按题意,对A1:B2单元格区域进行锁定,不允许编辑,该区域外的其他单元格可编辑,需要通过取消全表“锁定”、局部“锁定”和“保护工作表”实现;
3、按Ctrl+A,全选工作表,单击鼠标右键,“设置单元格格式”,在“保护”选项中,取消勾选“锁定”,确定;
4、选择设置区域A1:B2,单击鼠标右键,“设置单元格格式”,在“保护”选项中,勾选“锁定”,确定;
5、在“审阅”选项下的“保护工作表”中,输入正确密码,对“锁定”区域进行保护;
6、完成以上设置后,当在锁定区域进行编辑时,会提示“您试图更改的单元格或图表处于受保护的工作表中,若要进行修改,请取消工作表保护,您可能需要输入密码”;
7、而未设置的区域编辑功能不受影响;
8、若要恢复设置区域的编辑功能,请在“审阅”选项下的“撤消保护工作表”中,输入正确密码,解除保护工作表,即可。