excel怎么删除密码
㈠ excel密码怎么解除
方法如下
1、先录入密码,确定打开要取消密码的excel文件。
常用函数
1、数据库函数
当需要分析数据清单中的数值是否符合特定条件时,可以使用数据库工作表函数。
2、日期与时间函数
通过日期与时间函数,可以在公式中分析和处理日期值和时间值。
3、工程函数
工程工作表函数用于工程分析。这类函数中的大多数可分为三种类型:对复数进行处理的函数、在不同的数字系统(如十进制系统、十六进制系统、八进制系统和二进制系统)间进行数值转换的函数、在不同的度量系统中进行数值转换的函数。
㈡ excel表格如何取消密码
excel中,点击左上角“文件”——“信息”。点击“保护工作簿”——“用密码进行加密”,把原来设置的密码删除后,文本框放空,点击“确定”即可。
1、excel中,点击左上角“文件”。
㈢ excel保护密码怎么解除
excel保护密码怎么解除
excel保护密码怎么解除,为了保护我们的文件我们会设置一些密码,但是每次打开excel时都要输入密码,觉得麻烦想省事一点的话可以取消密码,以下关于excel保护密码怎么解除
excel保护密码怎么解除1
先录入密码,确定打开要取消密码的excel文件。
在文件菜单下点击 另存为 ,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。
点击 工具 选择 常规选项
删除密码,点击确定并保存。
提示文件已存在要替换它吗?如果想要覆盖原文件直接点击 是 就替换掉了。
如果想保留原文件重新存一份,点击 否 再修改文件名保存为一份新的文件。
excel保护密码怎么解除2
1、将设置了保护密码的excel文件的扩展名由“.xlsx”修改为“.rar”或者是“.zip”压缩包后缀;
2、鼠标双击打开压缩包文件,进入【xl】下的【worksheets】文件夹,在此文件夹下,包含有跟各个工作表名称对应的xml文件。
3、在此,我们找到需要清除密码的工作表文件,比如:如果是需要清除sheet1工作表的密码,我们就选择sheet1.xml文件,如果是需要清除sheet2工作表的密码,我们就选择sheet2.xml文件,依此类推。本例中,我们是需要清除sheet1工作表的密码,所以选择sheet1.xml文件,并用鼠标将其拖动复制出来。
4、用记事本方式打开sheet1.xml文件,并使用查找功能,搜索关键词sheetProtection快速找到保护代码,即为这段代码,并将其删除。
要删除的'代码如下这段:
5、代码删除后,保存文档,再把文件拉回压缩包里覆盖原文件。
6、最后重新把压缩包的后缀由.rar改回.xlsx后缀格式。
excel保护密码怎么解除3
1、把文件后辍改为Rar,文件图标会变成压缩包形式
2、双击打开压缩包,把xlworksheets文件夹中的sheet1拖动复制出来
为什么要拖出sheet1?因为sheet1就是汇总表工作表,查看方法:
工作表标题上右键 - 查看代码 - 在弹出的新窗口中右上角“工程”小窗口中可以看到工作表的 顺序名(自定义的工作表名)
3、用记事本打开sheet1
4、查找protect 并删除下面蓝色的代码,最后保存
5、把sheet1拖回到压缩包中替换原文件,然后把压缩包后辍名改回 xlsx
㈣ excel设置密码怎么解除
excel表格在审阅页面下点击撤销工作表保护,输入密码就可以了。
1、首先在excel表格中点击审阅,如下图所示。
㈤ 怎么样取消excel表格的密码
具体如下:
1. 第一步,我们先打开加密后的Excel表格,打开时需要输入密码;
2. 接下来,我们点击顶部菜单栏的 文件,然后在下拉选项中点击 另存为;
3. 在弹出的保存窗口中,我们点击如下图的工具,然后选择常规选项;
㈥ 2003版excel表格密码怎么去除
我们在工作中使用excel2003的时候,很久以前设置了密码的文档忘记了该如何打开。下面让我为你带来2003版excel表格密码怎么去除的 方法 。
2003版excel表格密码去除步骤如下:
1、打开您需要解除保护密码的 Excel 文件;
2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;
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
'
' China XingYun 27-Feb-2006 (Version 1.0.0)
' Modified 2006-Feb-28 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.0.0)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Base code by" & _
"China XingYun"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.0.0 2006-Feb-28"
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 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 'mmy 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、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏,选AllInternalPasswords,运行,确定两次;
等一到两分钟,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):
关于2003版excel表格密码去除的相关 文章 推荐:
1. 取消excel2003密码的教程
2. 2003excel表格如何撤销保护密码
3. 2003excel表格密码怎么解除
㈦ 怎么解除excel的密码
先打开Excel文件,输入密码后点击确定,然后依次选择文件-文档加密-密码加密,将打开文件密码和再次输入密码删除,点击应用并保存更改就可以解除密码。
㈧ Excel设的密码怎样解除
excel表格在审阅页面下点击撤销工作表保护,输入密码就可以了。
1、首先在excel表格中点击审阅,如下图所示。
㈨ excel怎么取消密码
首先打开一个加密的Excel文档。进入Excel首页后点击左上角的文件。接着在信息界面点击保护演示稿。然后在弹出的菜单点击用密码加密。最后按删除原来设置的密码,点击确定即可取消密码,如果不想取消密码也可以更换密码即可,详细步骤:
1、首先打开一个加密的Excel文档。