搜档网
当前位置:搜档网 › excel文件的解密方法

excel文件的解密方法

excel文件的解密方法
excel文件的解密方法

excel文件忘记密码后的解密方法

excel文件密码的设置有2种,一种是写保护,另外一种是打开保护。对应不同的保护措施,应该用不同的解密方法。

一:这是写保护的破解:

方法:

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 ShT ag As Boolean, WinT ag As Boolean Application.ScreenUpdating = False With ActiveWorkbook

WinT ag = .ProtectStructure Or .ProtectWindows

End With

ShT ag = False

For Each w1 In Worksheets

ShT ag = ShT ag 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

ShT ag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShT ag = ShT ag Or w1.ProtectContents

Next w1

If ShT ag 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

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 T o 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 T o 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 T o 66: For n = 32 To 126

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

今天解决的大问题!!

解释一下:

当Excel工作表采用密码保护时,就会生成一个16位(双字节) 长hash值。当输入密码进行验证时,真正进行比较的就是这个hash值。事实上,有很多不同的密码都可以生成同样的hash值。

大家可以试试:

当你用“test”(不含双引号)作为Excel工作表保护密码,你同样可以用“zzyw”(同样不含双引号)这个密码进行解锁。怎么样,神奇吧?

Excel工作簿保护时将密码hash化然后存储起来,解密时也是将输入的密码hash 求值然后与储存的hash值比较,用不同的字串hash求值后可以生成同样的hash结果,根据这个原理,我们用一个12位的字串进行hash求值,尝试破解excel的工作簿保护密码。其实这个破解的方法很简单,就是利用穷举法,不断的用不同的字串组合去尝试比较,用11位A、B字母的组合加1位其他字母可以生成任意的hash字串。

二:这是打开保护的破解

下载一个工具软件Office Password Recovery Toolbox

步骤/方法

1

先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)

2

双击运行该软件;

3

单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;

4

此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”;

5

点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);

6

这时后会提示“状态:正在链接到Rixler Server ”,只需等待几秒钟破解完

成即可。

7

OK,密码被成功移除,该文档已经被成功解密,如下图:

8

8.哦,生成了一个新的没有密码了的文档:西西软件_NESOY.xls

里边内容部方便公开,我随便打开了一个测试时打开的截图。图中的https://www.sodocs.net/doc/ca2885817.html,什么的字样就是我破解后看到的内容。

9

类似的破解软件现在已经很多了,有兴趣的可以自己去找找自己喜欢用了,总之自己习惯用的才是最好用的。

注意事项

此方法只是为了给忘记自己文档的同仁提供方便,请不要用于偷窥别人隐私等不道德的用途。

破解excel保护密码的宏代码

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: " & _

怎样制作EXCEL表格

如何制作电子表格 1 、打开EXCL电子表格程序 2、页面设置 单击文件→页面设置→选纸张,设置纸张大小→选页边距,设置上、下、左、右,横向或纵向→单击确定。 3、设置好页面就会有虚线框出现——你在虚线框内编辑——不要超出虚线框外——不然超出部分打印不出来的——第一行一般都是标题行——从第二行或者第三行开始——输入你的资料,不论有多少列,都必须在虚线框内 4、输入完毕后→选中表格内容(标题行一般不选,因为它不需要边框)→点菜单栏“格式”→单元格→边框→外边框——这是为你输入的内容设置边框——还可以在单元格对话框里设置“对齐”方式——一般水平和垂直都设为居中或常规。 注:想要对表格设置的格式几乎都是“格式”菜单里的“单元格”对话框里,你自己打开看看,练习练习就晓得它们的用途了。 * 制作表格更轻松让系统自动生成表头的方法。 当我们制作的表格有好多页的时候(如成绩统计表等),为便于观看,最好是每一页都添加一个相同的表头。如果表格文件页数很少,通过手工的方法就可以很容易地实现。但当一个表格文件多达数十页的时候,再一个一个地逐页添加,不仅费事,还容易出错。那么,有没有办法让系统自动生成呢? 1. 在Word 2003中 打开Word 2003表格文档,选中第一页表的表头,然后点击“表格→标题行重复”。假如表头有两行内容,选中开头两行,这样,在后面的每一页,都会将这两行的内容作为表头。 2.在Excel 2003中 (1)打开Excel表格文档,点击“文件→页面设置”。 (2)在调出的“页面设置”对话框中,选择“工作表”选项卡,在“顶端标题行”栏中输入表头行号,其中,“$1”表示第1行,“$1:$2”表示第1、2行。本例中设置为“$1:$2”,打印出来的每页表格便都有同第1、2两行同样内容的表头。

excel表格制作方法

Excel表格的35招必学秘技 也许你已经在Excel中完成过上百张财务报表,也许你已利用Excel函数实现过上千次的复杂运算,也许你认为Excel也不过如此,甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手,领略一下关于Excel的别样风情。 一、让不同类型数据用不同颜色显示 在工资表中,如果想让大于等于2000元的工资总额以“红色”显示,大于等于1500 元的工资总额以“蓝色”显示,低于1000元的工资总额以“棕色”显示,其它以“黑色”显示,我们可以这样设置。 1.打开“工资表”工作簿,选中“工资总额”所在列,执行“格式→条件格式”命令,打开“条件格式”对话框。单击第二个方框右侧的下拉按钮,选中“大于或等于”选项,在后面的方框中输入数值“2000”。单击“格式”按钮,打开“单元格格式”对话框,将“字体”的“颜色”设置为“红色”。 2.按“添加”按钮,并仿照上面的操作设置好其它条件(大于等于1500,字体设置为“蓝色”;小于1000,字体设置为“棕色”)。 3.设置完成后,按下“确定”按钮。 看看工资表吧,工资总额的数据是不是按你的要求以不同颜色显示出来了。 二、建立分类下拉列表填充项 我们常常要将企业的名称输入到表格中,为了保持名称的一致性,利用“数据有效性”功能建了一个分类下拉列表填充项。 1.在Sheet2中,将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中,建立一个企业名称数据库。 2.选中A列(“工业企业”名称所在列),在“名称”栏内,输入“工业企业”字符后,按“回车”键进行确认。 仿照上面的操作,将B、C……列分别命名为“商业企业”、“个体企业”…… 3.切换到Sheet1中,选中需要输入“企业类别”的列(如C列),执行“数据→有效性”命令,打开“数据有效性”对话框。在“设置”标签中,单击“允许”右侧的下拉按钮,选中“序列”选项,在下面的“来源”方框中,输入“工业企业”,“商业企业”,“个体企业”……序列(各元素之间用英文逗号隔开),确定退出。 再选中需要输入企业名称的列(如D列),再打开“数据有效性”对话框,选中“序列”选项后,在“来源”方框中输入公式:=INDIRECT(C1),确定退出。 4.选中C列任意单元格(如C4),单击右侧下拉按钮,选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4),单击下拉按钮,即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。 提示:在以后打印报表时,如果不需要打印“企业类别”列,可以选中该列,右击鼠标,选“隐藏”选项,将该列隐藏起来即可。

EXCEL密码保护破解2010

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

破解EXCEL宏密码

如何破解excel宏的保护密码 第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出; 再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PasswordBreaker(图3),点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBrea ker”并点击“编辑”,打开“MicrosoftVisual Basic”编辑器,用如下内容替换右侧窗口中的所有代码: Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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 ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

30秒破解EXCEL密码

30秒破解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 & _

电子表格操作大全

(1)分数的输入 如果直接输入“1/5”,系统会将其变为“1月5日”,解决办法是:先输入“0”,然后输入空格,再输入分数“1/5”。 (2)序列“001”的输入 如果直接输入“001”,系统会自动判断001为数据1,解决办法是:首先输入“'”(西文单引号),然后输入“001”。 (3)日期的输入 如果要输入“4月5日”,直接输入“4/5”,再敲回车就行了。如果要输入当前日期,按一下“Ctrl+;”键。 (4)填充条纹 如果想在工作簿中加入漂亮的横条纹,可以利用对齐方式中的填充功能。先在一单元格内填入“*”或“~”等符号,然后单击此单元格,向右拖动鼠标,选中横向若干单元格,单击“格式”菜单,选中“单元格”命令,在弹出的“单元格格式”菜单中,选择“对齐”选项卡,在水平对齐下拉列表中选择“填充”,单击“确定”按钮(如图1)。

(5)多张工作表中输入相同的内容 几个工作表中同一位置填入同一数据时,可以选中一张工作表,然后按住Ctrl键,再单击窗口左下角的Sheet1、Sheet2......来直接选择需要输入相同内容的多个工作表,接着在其中的任意一个工作表中输入这些相同的数据,此时这些数据会自动出现在选中的其它工作表之中。输入完毕之后,再次按下键盘上的Ctrl键,然后使用鼠标左键单击所选择的多个工作表,解除这些工作表的联系,否则在一张表单中输入的数据会接着出现在选中的其它工作表内。 (6)不连续单元格填充同一数据 选中一个单元格,按住Ctrl键,用鼠标单击其他单元格,就将这些单元格全部都选中了。在编辑区中输入数据,然后按住Ctrl键,同时敲一下回车,在所有选中的单元格中都出现了这一数据。

Excel表格制作使用技巧大全

Excel 使用技巧集锦 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 8 4.给单元格重新命名8 5.在E XCEL中选择整个单元格范围9 6.快速移动/复制单元格9 7.快速修改单元格式次序 9 8.彻底清除单元格内容10 9.选择单元格10 10.为工作表命名11 11.一次性打开多个工作簿 11 12.快速切换工作簿13 13.选定超级链接文本(微软O FFICE技巧大赛获奖作品)13 14.快速查找14 15.修改默认文件保存路径 14 16.指定打开的文件夹15 17.在多个E XCEL工作簿间快速切换15 18.快速获取帮助16 19.创建帮助文件的快捷方式16 20.双击单元格某边移动选定单元格16 21.双击单元格某边选取单元格区域17 22.快速选定不连续单元格 17 23.根据条件选择单元格17 24.复制或移动单元格18

25.完全删除E XCEL中的单元格18 26.快速删除空行19 27.回车键的粘贴功能19 28.快速关闭多个文件20 29.选定多个工作表20 30.对多个工作表快速编辑 20 31.移动和复制工作表21 32.工作表的删除21 33.快速选择单元格21 34.快速选定E XCEL区域(微软O FFICE技巧大赛获奖作品)22 35.备份工件簿22 36.自动打开工作簿23 37.快速浏览长工作簿23 38.快速删除工作表中的空行23 39.绘制斜线表头24 40.绘制斜线单元格25 41.每次选定同一单元格26 42.快速查找工作簿26 43.禁止复制隐藏行或列中的数据27 44.制作个性单元格27 二、数据输入和编辑技巧28 1.在一个单元格内输入多个值 28 2.增加工作簿的页数28 3.奇特的F4键29 4.将格式化文本导入E XCEL29 5.快速换行30 6.巧变文本为数字30 7.在单元格中输入0值31 8.将数字设为文本格式32

破解excel密码宏程序代码

1.将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文 件 2.打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图 所示

3.将代码复制到这个模块中,代码如下: Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub Else FileCopy Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20

excelvbaproject保护密码破解查看见过较详细的操作

EXCEL VBA Project密码破解 过程可能有些繁琐,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 ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version ' 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 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the 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 " & _

关于Excel使用VBA 宏的密码破解方法和思路

对于那种试用的含有VBA宏的Excel 是最好破的。这样的Excel 文件一般加载了dll文件,一打开就提示输入密码,然后还提示你只能使用多少次。有次数限制当然不爽了,呵呵,所以必须破解。首先用Advanced Office Password Recovery 打开文件,马上就会破解出通用密码,然后点击删除VBA密码,然后拷贝工作薄密码。打开Excel 文件,撤销工作薄保护,粘贴你刚才复制的密码。继续看每个表有保护没,有的话全部撤销。每个工作表的密码在刚才的软件界面上都有。然后打开VBA编辑器,提示输入密码,不管它,因为密码已经删除了,所以点击确定就可以进去了。展开工程,删除里面用户保护的VBA代码,保存,关闭。再打开Excel 时你就会发现已经不会提示输入任何密码了,破解完成。 对于不提供试用,只提供输入密码才能访问,而且一打开就全屏的提示输入密码。这样的Excel 破解起来稍微要麻烦一点,不过还是能破。具体方法有空了再写。 就按照刚刚破解的一个VBA加密的Excel 写一下破解思路,仅供参考。 打开Excel 只看到一个表,然后马上出现全屏运行的密码输入窗口。看来该加密方式是利用的这个表写的VBA代码。只有输入正确密码才能登陆,如果点取消,则Excel 就马上关闭了。在全屏的界面按下ALT+F 调出菜单栏,一直按右键,到“工具”菜单,选择“保护”,继续选择“撤销工作薄保护”,然后输入上面用软件破解出来的工作薄保护密码,然后确定。如果没有出现密码错误对话框,就说明密码正确了。然后按CTRL+S保存,等保存完毕,再回到那个登陆窗口,点击取消。此时你就会发现Excel 没有关闭,而是绕过用户密码登陆直接进入了,里面就是你想要看到的Excel 表。此时不要关闭Excel ,不然待会又要求输入登陆密码。进入“工具”-“宏”-“Visual Basic 编辑器”,双击VBAProjiect,会提示输入密码,因为在前面已经用软件删除了VBA密码,所以直接点确定就可以进入。然后移除所有的用户登录代码和模块,保存,如果提示错误,会自动跳转到错误的代码,那么就把出错的代码段删除,如果还发现有登陆相关代码,也一起删除。关闭代码编辑,回到Excel 表格,进入“格式”-“工作表”-“取消隐藏”,把隐藏的工作表显示出来,删除与登录信息相关的表。保存后就可以关闭了。打开Excel 文件,提示是否启用宏,此时你就会发现已经没有了登录窗口。

excel 表格制作教程

excel 表格制作教程 一、基本方法 1.快速选中全部工作表 右键单击工作窗口下面的工作表标签,在弹出的菜单中选择“选定全部工作表”命令即可()。 2. 快速启动Excel 如果想在启动系统自动运行Excel,可以这样操作: 1.双击“我的电脑”图标,进入Windows目录,依次打开“StartMenu\Programs\启动”文件夹; 2.打开Excel 所在的文件夹,用鼠标将Excel图标拖到“启动”文件夹,这时Excel 的快捷方式29. 选定多个工作表 若选择一组相邻的工作表,可先选第一个表,按住Shift 键,再单击最后一个表的标签;若选不相邻的工作表,要按住Ctrl 键,依次单击要选择的每个表的标签;若要选定工作簿中全部的工作表,可从表标签快捷菜单中选择“选定全部工作表”命令。 式,其余数据转换为文本格式。单击“完成”按钮即可。 49. 快速换行 我们在使用Excel 制作表格时经常会遇到需要在一个单元格输入一行或几行文字的情况,如果输入一行后敲回车键就会移到下一单元格,而不是换行,有一个简便实用的操作方法可以实现换行:在选定单元格输入第一行内容后,在换行处按“Alt+回车键”,即可输入第二行内容,再按“Alt+回车键”输入第三行以此类推。 50. 巧变文本为数字 在工作中,发现一些通过文本文件或其它财务软件的数据导入Excel 中后居然是以文本形式存在的(数字默认是右对齐,而文本是左对齐的),即使是重新设置单元格格式为数字也无济于事。有一个办法可以快速地将这些文件转变回数字:在空白的单元格中填人数字1,然后选中这个单元格,执行“复制”命令,然后再选中所要转换的范围,选择“选择性粘贴”中的“乘”,你就会发现它们都变为数字了。 51. 在单元格中输入0值 一般情况下,在Excel 表格中输入诸如“05”、“4.00”之类数字后,只要光标一移出该单元格,格中数字就会自动变成“5”、“4”,Excel 默认的这种做法让人使用非常不便,我们可以通过下面的方法来避免出现这种情况:先选定要输入诸如“05”、“4.00”之类数字的单元格,鼠标右键单击,在弹出的快捷菜单中单击“设置单元格格式”,在接着出现的界面中选“数字”标签页,在列表框中选择“文本”,单击“确定”。这样,在这些单元格中,

如何破解EXCEL工作表保护密码忘记密码怎么办

如何破解EXCEL工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表,而后点击另存为,讲表格保存为启用宏的工作表 2.一次点击开发工具---录制新宏,在弹出的对话框内修改宏名称而后确定 3.依次点击开发工具----停止录制宏,宏录制完成

4.依次点击开发工具,---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入 VBA界面 5.在VBA界面,全选里面的代码,而后删除,讲里面的代码全部删除完

6.代码复制到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."

制作Excel表格简易教程

制作Excel表格简易教程 贾庆山 2004年8月10日 本教程主要讲授使用Microsoft Excel 2002进行基本的表格制作。本教程图文并茂,读者可以对照学习使用。鉴于Microsoft Excel系列软件的兼容性和界面的一致性,本教程对于使用其他版本的Microsoft Excel软件也有一定的参考价值。 第1章:引言 制作Excel表格,将表格实现电子化,可以方便数据的保存与统计,极大提高办公的效率,是实现办公自动化的基础技术。Microsoft Excel软件的功能是强大的,但是本教程集中介绍最基础的部分。使用这些基础功能,已经可以满足目前办公自动化中的大部分需求。下文从两方面介绍:如何创建一个最简单的表格,如何利用Excel的统计功能。每个功能的实现都分步列出,同时给出相应的操作示意图,方便读者对照执行。 第2章:创建表格 首先需要安装Microsoft Excel 2002。之后运行该软件。方法:从开始菜单的程序列表中可以找到Microsoft Excel(图2.1)。单击鼠标右键运行。此时程序自动创建一个空白表格(图2.2)。 图2.1:运行Microsoft Excel 2002。

图2.2:程序自动创建的空白表格。 图2.3:保存Excel表格。

一个表格由许多行(用阿拉伯数字标识)和列(用英文字母标识)组成。每个小格子叫做单元格。用鼠标左键单击选中某一个单元格,就可以直接在其中输入文字或者数字。 第二步,保存表格。方法:在窗口上部菜单栏中选择“文件”-“保存”,然后会弹出一个对话框,要求输入保存的位置和文件名(图2.3)。选择合适的文件名和位置后选择“保存”,就完成保存当前的表格了。 第三步,调整单元格大小。在表格中,有的格子比较大,用来保存较长的文字或数字;有的格子和其他几个格子一样宽(例如标题栏)。而自动生成的表格中每个单元格的大小都是完全相同的。要调整单元格的大小,操作起来非常简单。方法:如要调整单元格的宽度,将鼠标移动到英文字母(A,B,C…)标识栏中相邻两列之间,会看见鼠标变成一个横的双向箭头中间有一个竖杠。此时按住鼠标左键,左右拖动,可以调整一列的宽度,至合适的位置时放开鼠标左键,则一列中所有单元格的宽度就被调整至所需的大小了(图2.4)。类似的,将鼠标移到窗口左侧的数字标识栏中相邻两行之间,会看见鼠标变成一个竖的双向箭头中间有一个横杠。此时按住鼠标左键,上下拖动,可以调整一行的高度,至合适的位置时放开鼠标左键,则一行中所有单元格的高度就被调整至所需的大小了(图2.5)。 图2.4:调整单元格的宽度。 下面介绍如何调整一个单元格的宽度、高度到其他几个单元格宽度、高度之和。这项功能一般用于表示表格中一项内容可以包含几个小项(例如:一个季度的收入可以分成三个月的月收入)。这时,需要通过合并几个小的单元格为一个大单元格来实现。方法:选中希望合并的单元格,然后单击鼠标右键,在弹出的菜单列表中选择“设置单元格格式”(图2.6)。在弹出的对话框中选择“对齐”,然后在设置栏中选中“合并单元格”(图2.7),选择“确定”即可将原先选中的单元格合并成一个单元格(图2.8)。

相关主题