1. excel输入密码才能查看
根据描述，是设置了“打开”权限和“修改”权限。
第一次输入密码，是打开了文档，但仅为只读；
第二次输入密码，则可以编辑文档。
若要取消“打开”或“修改”密码，请参照：
进入“选项”菜单；
找到“安全性”选项卡；
根据需求，把不需要的选项取消选择。
若取消“打开”选择，则打开后提示输入修改密码，若跳过，则可只读该表格，输入密码进入表格后可以编辑；
若取消“修改”选择，则打开后提示输入打开密码，若跳过，则无法打开表格，输入密码进入表格后可以编辑。
2. 如何设置excel密码 输入密码才能打开
在EXCEL表格里，单击右上角文件按钮，弹出对话框上左侧单击信息，右侧点击保护工作簿，下拉选择密码保护，在密码框中输入密码。
1.点击文件
打开EXCEL表格，点击菜单栏上文件，下拉选择“信息”。
2.选择密码保护
点击“保护工作簿”，下拉选择“用密码进行加密”。
3.输入密码
弹出密码输入框，输入密码进行加密。
3. excel输入密码查看单元格
如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开(关掉所有程序,为了速度): 新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码: Sub crack() Dim i As Long Dim File...
4. excel输入密码看内容
1.打开要设置密码的excel电子文件，在文件菜单占点击另存为。 2.在弹出的设置窗口右下方，点击工具菜单下的常规选项。 3.在弹出的密码设置框上录入打开权限密码和修改权限密码并点确定，两个密码可以设置成不一样，知道打开权限密码的人可以查看但不能修改，这个可以根据自己的需要进行设置。 4.提示重新输入密码，录入并确定。注意录入的密码为打开权限密码，由于设置了两个密码，提示重新输入密码也会有两次，第二次录入修改权限密码，并保存。 5.保存时会提示文件已存在是否要替换它，选择是。 6.设置完成，再关闭电子表格，重新打开检查设置是否生效。 弹出录入密码的提示，说明给excel设置密码成功。
5. excel输入密码查看不同内容
点工具--保护--保护工作表，如果输入密码为:111 以后每次打开，可以浏览，不能录入，要录入数据，就要输入密码! 工具-选项-安全性。。只设置修改
6. excel怎么输入密码才能看
以下是我写的一个从Sheet1的A2:B6这个范围查找用户名和密码进行验证的逻辑，你看看吧.
如果还有不懂，再问吧.
Public Sub aaaaaaaa()
Dim inName As String '输入用户名
Dim inPwd As String '输入密码
Dim rightPwd As String '检索到的密码
inName = "user01" '测试用户名
inPwd = "pwd09" '测试密码
On Error Resume Next
'根据用户名检索正确密码
rightPwd = WorksheetFunction.VLookup(inName, Sheet1.Range("A2:B6"), 2, False)
If rightPwd <> "" And rightPwd = inPwd Then
MsgBox "正确"
Else
MsgBox "错误"
End If
End Sub
7. excel需要输入密码才能查看
excel强制解密的方法
1、打开工作表，发现表格被锁定无法编辑，点击切换到审阅选项，点击撤销工作表保护。
2、输入密码，点击确定即可。
审阅点撤销工作表保护
打开工作表，点击切换到审阅选项，点击撤销工作表保护
输入密码点击确定即可
8. excel输入密码查看性别
Eexel表格功能很强大，能处理很多数据，如果要提取性别，我认为可以用筛选功能。
先建立一个表格，输入基础数据，如序号，姓名，性别等信息，然后选定表头，点开刷选，接着每个列表就会出现刷选功能，点开性别，就可以筛选男，或者刷选女。
比如选男，表格就出现所有男生的人员，隐藏女生的人员。
9. excel密码怎么查看
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即可打开。
10. excel输入密码才能查看文本
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
- 相关评论
- 我要评论
-
