为您找到与Excel文件如何解密相关的共200个结果:
在Excle中录入好重要的数据的后,经常需要用到密码进行保护数据,时间久了就不记得密码了,这个时候就需要进行解密了。具体该怎么解密呢?接下来是读文网小编为大家带来的excel加密文件怎么解密的教程,供大家参考。
解密步骤1:先用Microsoft Office Excel 2003创建一个“2003.xls”的普通方式加密Excel文档。
解密步骤2:然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。
浏览量:2
下载量:0
时间:
在Excel中经常需要录入重要的数据却不想被他人随意篡改,这个时候就需要用到Excel的密码保护功能,但也会有时候会忘记密码,这个时候就需要用到破解密码的手段了。下面是读文网小编带来的关于如何解密excel文件的教程,欢迎阅读!
解密步骤1:打开您需要破解保护密码的Excel文件;
解密步骤2:依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aaa;
解密步骤3:停止录制(这样得到一个空宏);
解密步骤4:依次点击菜单栏上的工具---宏----宏,选aaa,点编辑按钮;
解密步骤5:删除窗口中的所有字符(只有几个),替换为下面的内容; Option ExplicitPublic 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 & "andalso" & _ 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 & VERSIONConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was:" & _ DBLSPACE & "$$" & DBLSPACE & "Note it down forpotential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check andclear " & _ "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 BooleanApplication.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
解密步骤6:关闭编辑窗口;
解密步骤7:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
解密步骤8:等一会,再点击确定,没有密码了!
浏览量:2
下载量:0
时间:
现在的个人隐私以及文件安全性越来越重要。那么大家知道电脑如何加密和解密文件或文件夹吗?读文网小编分享了电脑加密和解密文件或文件夹的方法,希望对大家有所帮助。
一、加密文件或文件夹
步骤一:打开Windows资源管理器。
步骤二:右键单击要加密的文件或文件夹,然后单击“属性”。
步骤三:在“常规”选项卡上,单击“高级”。选中“加密内容以便保护数据”复选框
在加密过程中还要注意以下五点:
1.要打开“Windows 资源管理器”,请单击“开始→程序→附件”,然后单击“Windows 资源管理器”。
2.只可以加密NTFS分区卷上的文件和文件夹,FAT分区卷上的文件和文件夹无效。
3.被压缩的文件或文件夹也可以加密。如果要加密一个压缩文件或文件夹,则该文件或文件夹将会被解压,There is a feeling called love。
4.无法加密标记为“系统”属性的文件,并且位于systemroot目录结构中的文件也无法加密。
5.在加密文件夹时,系统将询问是否要同时加密它的子文件夹。如果选择是,那它的子文件夹也会被加密,以后所有添加进文件夹中的文件和子文件夹都将在添加时自动加密。
二、解密文件或文件夹
步骤一:打开Windows资源管理器。
步骤二:右键单击加密文件或文件夹,然后单击“属性”。
步骤三:在“常规”选项卡上,单击“高级”。
步骤四:清除“加密内容以便保护数据”复选框。
同样,我们在使用解密过程中要注意以下问题:
1.要打开“Windows资源管理器”,请单击“开始→程序→附件”,然后单击“Windows资源管理器”。
2.在对文件夹解密时,系统将询问是否要同时将文件夹内的所有文件和子文件夹解密。如果选择仅解密文件夹,则在要解密文件夹中的加密文件和子文件夹仍保持加密。但是,在已解密文件夹内创立的新文件和文件夹将不会被自动加密。
以上就是使用文件加、解密的方法!而在使用过程中我们也许会遇到以下一些问题,在此作以下说明:
1.高级按钮不能用
原因:加密文件系统(EFS)只能处理NTFS文件系统卷上的文件和文件夹。如果试图加密的文件或文件夹在FAT或FAT32卷上,则高级按钮不会出现在该文件或文件夹的属性中。
解决方案:将卷转换成带转换实用程序的NTFS卷。
打开命令提示符。
键入:Convert [drive]/fs:ntfs
(drive 是目标驱动器的驱动器号)
2.当打开加密文件时,显示“拒绝访问”消息
原因:加密文件系统(EFS)使用公钥证书对文件加密,与该证书相关的私钥在本计算机上不可用。
解决方案:查找合适的证书的私钥,并使用证书管理单元将私钥导入计算机并在本机上使用。
3.用户基于NTFS对文件加密,重装系统后加密文件无法被访问的问题的解决方案(注意:重装Win2000/XP前一定要备份加密用户的证书):
步骤一:以加密用户登录计算机。
步骤二:单击“开始→运行”,键入“mmc”,然后单击“确定”。
步骤三:在“控制台”菜单上,单击“添加/删除管理单元”,然后单击“添加”。
步骤四:在“单独管理单元”下,单击“证书”,然后单击“添加”。
步骤五:单击“我的用户账户”,然后单击“完成”(如图2,如果你加密用户不是管理员就不会出现这个窗口,直接到下一步) 。
步骤六:单击“关闭”,然后单击“确定”。
步骤七:双击“证书──当前用户”,双击“个人”,然后双击“证书”。
步骤八:单击“预期目的”栏中显示“加密文件”字样的证书。
步骤九:右键单击该证书,herve paris,指向“所有任务”,然后单击“导出”。
步骤十:按照证书导出向导的指示将证书及相关的私钥以PFX文件格式导出(注意:推荐使用“导出私钥”方式导出,air max 2009,这样可以保证证书受密码保护,以防别人盗用。另外,证书只能保存到你有读写权限的目录下)。
4.保存好证书
注意将PFX文件保存好。以后重装系统之后无论在哪个用户下只要双击这个证书文件,导入这个私人证书就可以访问NTFS系统下由该证书的原用户加密的文件夹(注意:使用备份恢复功能备份的NTFS分区上的加密文件夹是不能恢复到非NTFS分区的)。
最后要提一下,这个证书还可以实现下述用途:
(1)给予不同用户访问加密文件夹的权限
将我的证书按“导出私钥”方式导出,将该证书发给需要访问这个文件夹的本机其他用户,请你转载一下吧。然后由他登录,导入该证书,实现对这个文件夹的访问。
(2)在其也WinXP机器上对用“备份恢复”程序备份的以前的加密文件夹的恢复访问权限
将加密文件夹用“备份恢复”程序备份,然后把生成的Backup.bkf连同这个证书拷贝到另外一台WinXP机器上,用“备份恢复”程序将它恢复出来(注意:只能恢复到NTFS分区)。然后导入证书,即可访问恢复出来的文件了。
看过“电脑如何加密和解密文件或文件夹”
浏览量:2
下载量:0
时间:
Excel 是微软办公套装软件的一个重要的组成部分,它可以进行各种数据的处理、统计分析和辅助决策操作,广泛地应用于管理、统计财经、金融等众多领域。下面是由读文网小编分享的excel表格文件属性设置教程,以供大家阅读和学习。
表格文件属性设置步骤1:左键点击文件。
表格文件属性设置步骤2:选择“属性”
表格文件属性设置步骤3:再把摘要等内容填写完成,点击确定。OK。
浏览量:4
下载量:0
时间:
设置Excel文件密码对文件进行保护,如果有一天文件被他人窃取的时候,我们还能起到一定的保护作用,那么你知道excel文件怎么设置密码吗?下面是读文网小编整理的一些关于excel文件设置密码的相关资料,供你参考。
先打开 excel 程序,点击工具》选项》在常规选项卡中,有一个忽略其它应用程序,把这个勾打上,最后点击确定,好了,一切弄好以后,再去打开这个 .xls 文件,OK,已经可以打开了。
excel文件设置密码的相关
浏览量:5
下载量:0
时间:
我们在平时办公时,用Excel作的工作表需要传给客户,但又不想让客户随意改动,我们就经常的把Excel工作表文件转换成PDF文档,下面是读文网小编带来的关于excel文档转换成pdf文件的教程,希望阅读过后对你有所启发!
excel转换pdf步骤1:在点击Office按钮后,选择打印,然后进行打印
excel转换pdf步骤2:弹出打印页面,找到打印机,用虚拟的ADOBE PDF打印,选好打印机后,页面范围选择全部,或者某一页,打印内容选择活动工作表,以及打印份数等
excel转换pdf步骤3:接下来的步骤基本同上面的4和5,最终也能转换成PDF文件,这两种方法可以随意选择,然后在这个页面保存就可以了
浏览量:3
下载量:0
时间:
Excel中经常需要合并多个文件,Excel文件具体该如何进行合并呢?下面是读文网小编带来的关于excel合并多个文件的方法,希望阅读过后对你有所启发!
合并多个文件步骤1:新建一个文件夹
合并多个文件步骤2:将要合并的表格放到里面
合并多个文件步骤3:新建一个表格
合并多个文件步骤4:用excel打开
合并多个文件步骤5:右击Sheet1
合并多个文件步骤6:选择查看代码
PS:excel有着一项,WPS没有
合并多个文件步骤7:将下列代码复制到文本框中:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
合并多个文件步骤8:点击运行
合并多个文件步骤9:一段时间(取决于表格的大小和多少)后,合并完成了
浏览量:3
下载量:0
时间:
Excel中经常会遇到文档需要破解密码的需求,加密的Excel文档具体该如何进行破解密码呢?下面是由读文网小编分享的excel2007破解密码的教程,以供大家阅读和学习。
步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常需要把加密的文档进行破解密码,破解密码具体该如何操作呢?接下来是读文网小编为大家带来的excel2007破解密码的方法,供大家参考。
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中已经加密的文档具体该如何操作才能实现解密的效果呢?接下来是读文网小编为大家带来的excel解密表格的方法,供大家参考。
解密表格步骤1:解压Office Password Remover 文件压缩包到桌面;
解密表格步骤2:双击打开文件中的exe可执行文件;
解密表格步骤3:点击文件名旁边的按键选择需要解密的表格文档;
解密表格步骤4:找到加密文件的路径选中并打开;
解密表格步骤5:一键移除密码;
解密表格步骤6:出现信息提示后确定,直到完成解密。
浏览量:4
下载量:0
时间:
Excel中的表格具体该如何操作才能转换成word文件呢?接下来是读文网小编为大家带来的excel表格转换成word文件的教程,供大家参考。
表格换成word文件步骤1:首先我们先打开需要将格式转换成word的excel文档,下图就是我们需要转换成word的文档,这时我们可以看到在表格的左上角有一个“microsoft office”图标,单击该图标会下拉选项。
表格换成word文件步骤2:在下拉的选项里我们将鼠标移到“另存为”处又会下拉如图所示,这时我们单击“其他格式”按钮。
表格换成word文件步骤3:单击之后会弹出如图对话框,这时我们单击“保存类型”后面的小倒三角形,单击之后会下拉如图所示选项,这时我们在下拉的选项里单击“单个文件网页(*mht:*mhtml)”。
表格换成word文件步骤4:单击之后会出现如图所示,这时我们选择后方的“选择(E)工作表”选项,选择好之后单击下方的“保存”按钮。
表格换成word文件步骤5:点击“保存”按钮之后我们推出excel工作表,然后去找到刚刚我们另存为“单个文件网页(*mht:*mhtml)”的文档,找到之后选上该文件,然后单击右键就会出现如图所示情况。
表格换成word文件步骤6:单击右键之后我们将鼠标移到“打开方式”处,然后会下拉选项,在下拉的选项里我们选择“microsoft office word”。
表格换成word文件步骤7:单击之后就会打开如图所示工作表,这时我们已经单击工作表左上角的“microsoft office”图标,将鼠标移到“另存为”处,在下拉的选项里选择“word文档”。
表格换成word文件步骤8:单击之后会弹出如图对话框,这时我们如果要改文件名的话,可以直接在“文件名”后方的输入框里面输入自己想要修改成的文件名,但是要记得,后方的“docx”不能删除哦!修改完成后,直接单击下方的“保存”按钮。
表格换成word文件步骤9:点击“保存”按钮之后,我们就会发现它的保存方式已经变成word的类型了,打开该文档,可以看到格式什么都没变,还是跟excel里面的一样。同理,如果word要转换成excel文档格式,用这个方法也是可以的!
浏览量:5
下载量:0
时间:
在日常办公中,我们经常遇到需要做PPT展示的时候,提供给观摩者一系列相关的Excel数据,从而使我们的汇报看起来更有说服力和详实,那如何在ppt中加入excel文件呢,读文网小编为你解如何在ppt中加入excel文件这个问题,希望对你有所帮助。
第一步:打开PPT,翻页至想要插入的页面。选择插入选项卡,在插入的子选项卡中选择对象选项。
2在弹出的页面中,选择由文件创建 ,然后点击浏览
3选中需要插入的EXCEL表格,点击确定。
4在弹出的一下界面中,勾选显示为图标 ,千万不要勾选链接,选择完毕后,点击确定即可。
5这样我们已经成功的完成了excel的添加,接下来书生将教你如何在播放时候单击excel图标即可打开该EXCEL表格
END
如何在播放时候单击打开excel表格
选中插入的excel图标,按下插入选项卡,这次请点击动作子选项卡。
在弹出的界面中,选择对象动作 ,下拉菜单,选择打开,然后点击确定即可。
我们按下Shift+F5键进行该页的快速放映,当鼠标滑过excel图标时候,你会发现,鼠标变成了手指状。
这个时候,点击excel图标,即可打开插入的excel表格
浏览量:63
下载量:0
时间:
Excel中经常会与到内容少但是文件却很大的问题,内容少文件大的问题具体该如何解决呢?下面是由读文网小编分享的excel表格内容少文件大的解决方案,以供大家阅读和学习。
内容少文件大解决步骤1:以下是一份2.80MB的表格数据,打开却发现没有多少内容,显然和正常表格数据大小不匹配。如图:
内容少文件大解决步骤2:打开表格,选中起始行。如图:
内容少文件大解决步骤3:同时按下键盘“Ctrl+Shift+向下箭头”。如图:
内容少文件大解决步骤4:按下键盘“Ctrl+减号(-)”,清除无用对象回到起始点。如图:
内容少文件大解决步骤5:点击保存(Ctrl+S)。如图:
内容少文件大解决步骤6:此时多余的对象清除,显示为18.5KB,与之前的2.80MB相比,减少了很多。如图:
浏览量:9
下载量:0
时间:
Excel中经常需要使用到密码解密的技术,密码具体该如何进行破解呢?下面是由读文网小编分享的excel表格内进行密码解密的教程,以供大家阅读和学习。
密码解密步骤1:这里有份加密的EXCEL文件
密码解密步骤2:接下来开始破解这个被加密保护的EXCEL文件:
密码解密步骤3:选择工具栏——宏——录制新宏
密码解密步骤4:输入宏名,如aa
密码解密步骤5:点“停止录制”得到一个空宏
密码解密步骤6:删除窗口中的所有字符,把代码工具内的代码复制进来
密码解密步骤7:选工具——宏——选allinternalpasswords,运行,确定两次
密码解密步骤8:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
密码解密步骤9:最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:3
下载量:0
时间:
Excel中的临时保存文件位置具体该如何设置呢?接下来是读文网小编为大家带来的excel2007设置默认临时保存文件位置的方法,供大家参考。
设置临时保存文件位置步骤1:首先,选择Excel的球形图标,同时会出现如下对话菜单。
设置临时保存文件位置步骤2:选择“Excel选项”按钮,如下:
设置临时保存文件位置步骤3:单击后会出现“Excel选项”菜单,如下:
设置临时保存文件位置步骤4:在选项页面里选择“保存”项,如下:
设置临时保存文件位置步骤5:在“保存”页面将“默认文件位置”后面编辑框里的地址修改为你想要存放文件的文件夹地址,位置如下:
浏览量:2
下载量:0
时间:
Excel中经常需要使用到解密的技巧,excel文档具体该如何进行解密呢?下面是由读文网小编分享的excel2007解密操作的教程,以供大家阅读和学习。
解密操作步骤1:首先备份工作簿,以防万一。
解密操作步骤2:修改工作簿文件的扩展名为zip。
解密操作步骤3:解压该压缩文件。
解密操作步骤4:找到代表目标工作表的XML文件(在xlworksheets文件夹中)。
解密操作步骤5:使用任一xml编辑器打开代表目标工作表的xml文档。
解密操作步骤6:找到“sheetProtection”标签并移除该标签所在的行。
解密操作步骤7:保存已编辑的XML文档,用其取代原Zip文件中相应的XML文档。
解密操作步骤8:将文件的扩展名修改回xlsx。
解密操作步骤9:至此,工作表保护已解除。
浏览量:2
下载量:0
时间:
Excel中的文件打不开具体该如何解决呢?下面是由读文网小编分享的excel2003打不开文件的解决教程,以供大家阅读和学习。
打不开文件解决步骤1:当excel打不开的时候我们可以下载一个WPS。这个文件也不大。能够搞定所有的office版本。。 安装好之后右键点击你要打开的表格。然后选择打开方式选择WPS表格即可!!
打不开文件解决步骤2:如果你不想下载这个那我们先看看修复一下excel。百度搜索修复excel文件。然后找找修复的方法!!
打不开文件解决步骤3:如果出现的提示是:“excel无法打开这个文件。该文件可能为只读或加密文件”!这个时候就要打开的密码了。或者是看看文件是否为只读!!
打不开文件解决步骤4:如果还不行就下载一个电脑管家,在电脑管家里面有个电脑诊所,里面有针对office文件打不开的一件解决方法!!点击就能一键修复了!!
浏览量:4
下载量:0
时间:
Excel中的加密文档有时候需要进行解密处理,但是很多人不知道怎么操作,不要着急,小编告诉你excel表格加密文档的解密教程,希望阅读过后对你有所启发!
加密文档解密步骤1:打开您需要破解的Excel文件,如图所示:
加密文档解密步骤2:依次点击菜单栏上的工具---宏----录制新宏;
加密文档解密步骤3:输入宏名字(PS:打击积极性啊!)如:易尔拓,然后停止录制(这样得到一个空宏,为后面添加vb代码做准备);
加密文档解密步骤4:依次点击菜单栏上的工具---宏----宏,选易尔拓,点编辑按钮;
删除窗口中的所有字符,替换为下面的内容;
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
'
' 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
加密文档解密步骤5:依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,执行,确定两次;
耐心等一会,再点击两次确定,就ok啦!
浏览量:2
下载量:0
时间: