当前位置:首页 > 文章库 > 文章收藏 » 文章详细»

Excel解密三步法(Excel解密办公技巧亲测有效)

来源:投稿     浏览:次 时间:2022-08-17 08:21:08

有时候我们会遇到excel无法编辑需要输入密码的情况,那么遇到这种问题如何解决呢?



步骤如下:

1.点击“视图”,找到【宏】,点击“查看宏”

(也可以去开发工具菜单栏找到'宏')


2.先随便创建一个宏名,点击“创建”


3.创建后,会弹出一个vb界面,输入如下代码:(感谢大佬赐予代码)

Public Sub Password_cracking()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _" 
Author - jnxxhzz "Const HEADER As String = "Password_cracking"Const VERSION As String = DBLSPACE & " 
Version 1.0"Const REPBACK As String = DBLSPACE & ""Const ZHENGLI As String = DBLSPACE & ""Const ALLCLEAR As String = DBLSPACE & "
All password is clear" & DBLSPACE & "Please remember to save"Const MSGNOPWORDS1
As String = "No password!"Const MSGNOPWORDS2 As String = "No password!"Const MSGTAKETIME
As String = "This will take some time , please wait for a while" & DBLSPACE & "
Press next to start"Const MSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"
If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"
If the file worksheet has a different password, it will search for the next set of passwords and release"
Const MSGONLYONE As String = ""Dim w1 As Worksheet, w2 As WorksheetDim i As Integer,
j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer,
i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1
As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith
ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In
WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1,
vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation,
HEADERIf Not WinTag ThenElseOn Error Resume NextDo 'dummy do loopFor i = 65
To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65
To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65
To 66: For n = 32 To 126With 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
ThenPWord1 = 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, HEADERExit Do 'Bypass all
for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo
0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In
Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks
for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If
.ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To
66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65
To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass
all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop
Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADEREnd Sub


3.之后关闭这个vb界面,打开“查看宏”,会出现“Password_cracking”,点击执行便开始解密



4.出现这个就一路点击确定,就解密啦~可以愉快的编辑了,如果出现卡顿的情况,那就是excel禁用了宏,需要手动打开允许。



成功!

相关推荐
  • excel如何查找重复的数据(教你怎么查找内容方法)
    excel如何查找重复的数据(教你怎么查找内容方法)

    【问题】有网友私信于我“请问一组6个数字。一共450组。EXCEL能不能自动识别出重复3个数字以上组数出来呢?比如第一组1-2-3-4-5-6。第二组7-8-9-10-11-12。第三组1-3-6-15-17-18。能不能自动识别1组合三组

  • 如何设置excel的行高和列宽(一键调整行高列宽的方法)
    如何设置excel的行高和列宽(一键调整行高列宽的方法)

    在Excel表格中有成千上万行和列需要调整到适合的单元格,需要怎么操作呢?今天我们来学习一下。1、首先选择我们需要处理的单元格,选择【开始】-【行和列】-【最适合的行高】。如下图所示:2、自动调节行高就完成了。

  • excel怎么查找重复内容(3个步骤找到重复内容)
    excel怎么查找重复内容(3个步骤找到重复内容)

    excel怎么查找重复内容?今天小编给大家一一揭晓,希望能对大家有帮助!1,新建表格,输入示例内容,如图。2,在B2单元格输入以下公式=IF(COUNTIF(A:A,A2)>1,"重复",""),然后回车键。3,往下填充即可,就可以看到重

  • word插入excel表格(分享亲测有用的方法)
    word插入excel表格(分享亲测有用的方法)

    word插入表格的几种方法,以word 2016 为例在使用Word的过程中,很多时候,需要用到表格,以便清晰的展示相关业务数据,归类数据等等。在此,我总结了几种方法下面一一为看官展示一下:在“插入”选项卡中单击表格组

  • excel掌握15个小技巧大全(实用的excel小技巧让你一看就懂)
    excel掌握15个小技巧大全(实用的excel小技巧让你一看就懂)

    今天花费了3小时整理汇总了15个,我觉得工作经常用到的excel小技巧,并且配合动图演示,让你一看就懂,现学现用,快速提高工作效率,话不多说,让我们直接开始吧一、批量添加单位在这里我们利用的功能是自定义格式,

  • excel表头如何固定每页都有(打印时设置每页都有表头)
    excel表头如何固定每页都有(打印时设置每页都有表头)

    在Excel中打印时如何设置每页都有表头?工作中,在使用Excel时,我们经常要将Excel数据打印,对于大量多页数据,我们希望每页内容都有表头,因此要对打印命令进行设置。下面我们来学习怎么设置打印表头。步骤1:单击菜

猜你喜欢
  • 中国卫星发射基地有哪几个地方(我们四大卫星发射基地简介)
    中国卫星发射基地有哪几个地方(我们四大卫星发射基地简介)

    卫星发射中心是开展航天活动的主要场所,在目前世界上,中国、美国、俄罗斯、法国和日本等国均有建造。目前我国拥有四大著名的卫星发射基地: 酒泉卫星发射中心、 太原卫星发射中心、 西昌卫星发射中心和文昌卫星发射

  • 餐具洗洁精可以洗衣服吗(快速了解用洗洁精洗衣服的危害)
    餐具洗洁精可以洗衣服吗(快速了解用洗洁精洗衣服的危害)

    在日常生活中,洗洁精是很常见的一种清洁产品,很多人都会经常使用洗洁精清洗油渍。有时候,衣服上弄到油渍,很多人也会用洗洁精清洗。那么洗洁精可以洗衣服吗?洗洁精是家庭小帮手,它可以帮助妈妈们清洗餐具,清洗水果等,不

  • excel粘贴时跳过隐藏单元格(亲测有效的方法)
    excel粘贴时跳过隐藏单元格(亲测有效的方法)

    Excel粘贴时如何跳过隐藏单元格如下图是某班级成绩表,表格中我们将B列隐藏起来了。现在我们想要跳过隐藏区域进行复制粘贴。全选表格区域点击下图选项(Excel插件,百度即可了解详细的下载安装方法,本文这里不作详细

  • 表格自动换行快捷键(Excel换行同一个格子里面怎么操作)
    表格自动换行快捷键(Excel换行同一个格子里面怎么操作)

    第一种,使用快捷键强制换行:强制换行是使用最多,也最简单,最乖的那种命令。快捷键:ALT+回车你可以像霸道总裁一样,让你的数据在指定内容后面换行,并且不因为当前单元格宽度调整而出现自动调整(第二种自动换行

  • excel批量向下填充(教你批量向上向下填充的技巧)
    excel批量向下填充(教你批量向上向下填充的技巧)

    今天和大家分享,使用Ctrl+Enterexcel批量向下、向上填充的使用方法。1excel批量向下填充如下图所示,将A列的部门向下填充到空白单元格,效果如D1:E11所示。操作步骤如下:1、选中A2:A11,按F5键打开【定位】对话框。

  • 填充颜色快捷键ctrl加什么(Excel里实现快速填充方法)
    填充颜色快捷键ctrl加什么(Excel里实现快速填充方法)

    有时我们需要在表格里进行大量内容的拆分、提取或填充,你还在一个一个单元格的复制粘贴吗?今天我们介绍三种实现快速填充的Excel快捷键操作:第一种快捷键组合是ctrl+e,可以实现快速提取和填充插入第一个单元格,在

  • excel表格里怎么弄选择项(下拉选择项如何设置一招轻松解决)
    excel表格里怎么弄选择项(下拉选择项如何设置一招轻松解决)

    作中,我们是不是经常遇到这样一个问题,在录入员工名单时,录入的信息特别多重复信息,但又不能不录入,录入又特别的麻烦;今天小渔老师教你一招,快速设置下拉选择项,轻松解决信息重复录入的问题。1、首先,我们打

  • exp是生产日期还是保质期(一文搞懂exp)
    exp是生产日期还是保质期(一文搞懂exp)

    现在我们经常会购买一些外国产品,比如保健品、化妆品或者进口零食。你有没有拿到东西先看生产日期和保质期的习惯呢?有一些进口产品可能会贴上中文说明,但有些可能只有外语文字,如果是英语还看得懂,如果是小语种可能真的

  • exw是什么贸易方式(这7种通用贸易术语要清楚)
    exw是什么贸易方式(这7种通用贸易术语要清楚)

    一八供应链在之前的文章中有提到四种水上运输方式的贸易术语,感兴趣但是没有看过的卖家朋友可以简单地看一下。今天,一八供应链就给大家讲一讲七种适用于任何运输方式的贸易术语。EXWEXW即Ex Works,指卖方在指

  • Excel解密三步法(Excel解密办公技巧亲测有效)
    Excel解密三步法(Excel解密办公技巧亲测有效)

    有时候我们会遇到excel无法编辑需要输入密码的情况,那么遇到这种问题如何解决呢?步骤如下:1.点击“视图”,找到【宏】,点击“查看宏”(也可以去开发工具菜单栏找到'宏')2.先随便创建一个宏名,点击“创

  • 第三季度是哪几个月(教你用Excel公式快速判断属于哪个季度)
    第三季度是哪几个月(教你用Excel公式快速判断属于哪个季度)

    给你一个指定的日期,你如何快速知道它是属于哪个季度的?下图中,我们要判断B列的日期分别属于哪个季度?正常来说1月-3月为第1季度,4月-6月为第2季度,7月-9月为第3季度,10月-12月为第4季度。下面跟大家分享3个方

  • excel单元格提取纯文字(8种文本提取用法详解)
    excel单元格提取纯文字(8种文本提取用法详解)

    有时候我们经常会要求从一句话或文本中提取特定的内容,比如:从地址中提取省市区、从一段话中提取特定数字、评价中提取指定客服名字、对话中提取快递单号等等。任何内容的提取都是根据一定的规律来操作的,今天我们

  • excel怎么冻结前两行(教你只需两步冻结工作表前两行)
    excel怎么冻结前两行(教你只需两步冻结工作表前两行)

    当观看excel长表时,滚动到下方就看不到标题行了。如果需要始终看到标题行,我们通常会通过“冻结首行”的功能来实现。但如果“标题行”有两行怎么办呢?这个时候就需要通过“冻结窗格”功能来实现。实现步骤如下:1

  • excel如何查找重复的数据(教你怎么查找内容方法)
    excel如何查找重复的数据(教你怎么查找内容方法)

    【问题】有网友私信于我“请问一组6个数字。一共450组。EXCEL能不能自动识别出重复3个数字以上组数出来呢?比如第一组1-2-3-4-5-6。第二组7-8-9-10-11-12。第三组1-3-6-15-17-18。能不能自动识别1组合三组

  • Excel表格怎么快速查找(Excel查找和替换详细实用教程)
    Excel表格怎么快速查找(Excel查找和替换详细实用教程)

    分享如何使用Excel的查找和替换功能。本文先介绍打开查找和替换对话框的两种方法,然后介绍对话框中各个选项的含义,最后是4个动图示例。1打开查找替换对话框如何打开查找和替换对话框呢?第一种方法:在

  • 金针菇汤怎么做好吃(手把手教会你做金针菇汤)
    金针菇汤怎么做好吃(手把手教会你做金针菇汤)

    这是一道我经常做的汤,孩子们都非常喜欢用料大番茄 1个金针菇 一小撮鸡蛋 1个虾皮 适量做法步骤1、准备好所有材料2、金针菇去掉根部,用清水浸泡一会儿

  • 马的标志的车是什么牌子的车(以马为基础的汽车标志)
    马的标志的车是什么牌子的车(以马为基础的汽车标志)

    在汽车行业有很多俗套的事情。例如,带有马的徽章标志,马象征着力量、速度和优雅的结合。不管你是不是资深车迷,你都能说出几个带有马标志的汽车,最著名的是保时捷和法拉利,还有宝骏。法拉利汽车法拉利“跃马”标

  • 朝鲜冷面汤的正宗做法步骤(教你正宗朝鲜冷面做法)
    朝鲜冷面汤的正宗做法步骤(教你正宗朝鲜冷面做法)

    炎热的夏天到了,食欲也会跟着减退,这个时候当然要吃上一碗正宗的朝鲜大冷面了,冰冰凉凉的冷面汤喝起来都让人觉得舒服。延边朝鲜的冷面汤其实是用牛腱子肉、棒骨,再加上十几种调料制作而成的,我们经常在外面吃到

  • 煮米饭大概需要多少水(教你煮米饭的7个小技巧)
    煮米饭大概需要多少水(教你煮米饭的7个小技巧)

    米好,煮出来的饭就好吃,但是你煮饭时这个水放不准的话,一样煮不出香喷喷的米饭。这个对于我们吃大米饭的中国人来说这个不是什么难事,我是妈妈教的,一回生,二回熟,第三次我煮的米饭就呱呱叫了。煮饭放多少水?1

  • 华为如何查询手机激活时间(华为在哪看激活日期)
    华为如何查询手机激活时间(华为在哪看激活日期)

    首先在华为手机桌面找到“服务”应用,在里面找到【权益查询】并点击它;之后可以看到手机的型号和序列号和三包凭证,从三包凭证可以查看到手机激活时间与日期。还可以点击三包凭证详情界面,也可以看到华

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至1917843637@qq.com 举报一经查实,本站将立刻删除。

最新文章