解密EXCEL方法

1、依次点击excel菜单栏上的工具---宏----Visual Basic编辑器

2、复制下面红色文本代码到Visual Basic

3、依次点击菜单栏上的工具---宏-----宏,选Sheet1.AllInternalPasswords,执行,确定两次；耐心等一会,再点击两次确定，就ok啦！

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 McGimpsey27-Dec-2002(Version1.1)

'Modified2003-Apr-04by JEM:All msgs to constants,and

'eliminate one Exit Sub(Version1.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&"Version1.1.12003-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 MSGNOPWORDS1As String="There were no passwords on"&_

"sheets,or workbook structure or windows."&AUTHORS&VERSION

Const MSGNOPWORDS2As 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 MSGPWORDFOUND1As 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 MSGPWORDFOUND2As 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 w1As Worksheet,w2As Worksheet

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

Dim m As Integer,n As Integer,i1As Integer,i2As Integer

Dim i3As Integer,i4As Integer,i5As Integer,i6As Integer

Dim PWord1As String

Dim ShTag As Boolean,WinTag As Boolean

Application.ScreenUpdating=False

With ActiveWorkbook

WinTag=.ProtectStructure Or.ProtectWindows

End With

ShTag=False

For Each w1In 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=65To66:For j=65To66:For k=65To66

For l=65To66:For m=65To66:For i1=65To66

For i2=65To66:For i3=65To66:For i4=65To66

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 GoTo0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE,vbInformation,HEADER Exit Sub

End If

On Error Resume Next

For Each w1In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo0

ShTag=False

For Each w1In Worksheets

'Checks for all clear ShTag triggered to1if not.

ShTag=ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1In Worksheets

With w1

If.ProtectContents Then

On Error Resume Next

Do'Dummy do loop

For i=65To66:For j=65To66:For k=65To66

For l=65To66:For m=65To66:For i1=65To66 For i2=65To66:For i3=65To66:For i4=65To66

.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 w2In 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 GoTo0

End If

End With

Next w1

End If

MsgBox ALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADER End Sub

强力破解EXCEL工作表保护密码

强力破解EXCEL工作表保护 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，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 ' ' 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 " &

破解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工作表保护密码忘记密码怎么办 1.新建一个EXCEL工作表，而后点击另存为，讲表格保存为启用宏的工作表 * ■乐 碍乐雄迥 -* >计■尙 二0Q) .... ㈱ 亍总HI “ ■ I i ■ * \ Jfcft禺呵第證Mkrp^pft Qffiy fxeel JDQ7 工作褰x I gm [EHMI呦 怔■: Ad>51iAk±VAt4f t?nfl； 2. 一次点击开发工具---录制新宏，在弹出的对话框内修改宏名称而后确定 ft 真面布局公式敖掠审同视冒开裁工員 D F 254 3.依次点击开发工具停止录制宏，宏录制完成

| J fFik^j| 匮独 画Mffi植近三t 陥比疙上窸甜 空釦模式劑执行龙话框 代再 4.依次点击开发工具，---宏----在弹出的对话框找到我们刚才录制的宏名称而后进入 VBA界面 处8屯简开林工貝 能t ■BS| 斫厨丁亓的二作輝 说閉 5.在VBA界面，全选里面的代码，而后删除，讲里面的代码全部删除完

Mkroioft visual - Microsoft Office Excel 200?工荷txlsx 文件⑥锚也迺世）磁?惜式型谒试曲迳行逊Zft? 尹碗詠笛莆口呦 [

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宏密码

如何破解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) & _

破解EXCEL工作表保护密码的简单方法

破解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

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

Excel工作表保护密码忘记之解决办法

工作表保护密码破解（图解）1、新建一个EXCEL文件“BOOK1”， 在工具栏空白位置，任意右击，选择Visual Basic项，弹出Visual Basic工具栏： 2、在Visual Basic工具栏中，点击“录制”按钮， 弹出“录制新宏”对话框，选择“个人宏工作簿”：

3、选择“个人宏工作簿”后按确定， 弹出如下“暂停”按钮，点击停止： 4、在Visual Basic工具栏中，点击“编辑”按钮： 5、点击“编辑”按钮后，弹出如下图的编辑界面： 找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）” 双击模块1－将右边代码内容清空

6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”

7、运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮

8、点击“运行”按钮后，弹出“宏”对话框， 点击运行“PERSONAL.XLS!工作保护密码破解”这个宏9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后， 如下图示意就可以解除工作表的密码保护了 （这个图，如果工作表中有多组不同密码，每解开一组，就会提示一次，也就说可能会出现几次）

工作表保护密码破解(代码） =========请复制以下内容============= Public Sub 工作表保护密码破解() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:McCormick JE McGimpsey " Const HEADER As String = "工作表保护密码破解" Const VERSION As String = DBLSPACE & "版本Version 1.1.1" Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥整理" Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _ & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！" Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并修改清除" Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ "如果该文件工作表有不同密码,将搜索下一组密码并解除" Const MSGONLYONE As String = "确保为唯一的?" 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

终于找到excel密码保护破解的方法了,和大家共享一下

Office Password Remover 是一款可以瞬间破解Word、Excel和Access 文档密码的工具，一般情况下解密过程不超过5秒，而且操作简单，无需设置。但是使用本软件需要连接到互联网，因为要向软件服务器发送少量的数据并解密，不过本软件不会泄露任何个人隐私，请放心使用。 在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，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 ' ' 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."