excel自毁程序(excel被暴力破解后自毁)

1. excel被暴力破解后自毁

首先，在需要添加这个”自毁模式“的Excel表格中按下快捷键【Alt+F11】打开Excel的”Microsoft Visual Basic for Applications“窗口。然后双击左侧的ThisWordbook图标后在打开的右侧窗口中输入以下的代码内容，其中，上面代码中的”12/9/2019 10:22:00“为文档自毁的时间，大家请根据自己的实际情况完成。完成之后按下【Ctrl+S】的快捷键保存文件。需要注意的是，这里的文档不能保存成为普通【Excel工作薄】，一定要保存成【Excel启用宏的工作薄】才能正常执行文件中的程序代码。切记！切记！

至此，Excel的定时自毁模式成功开启，大功告成！

2. excel被暴力破解后自毁了

可以去这里找，并可以设置自动恢复时间，一般是可以找回一部分

3. excel防破解

按Alt+F11进入VBA编辑器，菜单“工具”→“VBAProject属性”，为工程设置上密码即可。

4. 破解受保护的excel

1、把Excel文件的扩展名xlsx修改为Rar。瞬间Excel文件变成了压缩包。（不如果不显示后辍 ，选中工具栏中的文件扩展名选项）

2、双击打开压缩包，找到 xl - Worksheets,把受保护的工作表sheet1.xml 拖动复制出来。

3、用记事本打开sheet1.xml文件，搜protect快速找到保护代码并删除，保护后把文件拖回到压缩包中。

4、重新把后辍名由rar改回xlsx，打开excel文件后发现工作表保护密码已删除。 有人会问，excel文件的打开密码能不能也用这么方式破解？不可以。07以后的Excel版本已采用了更安全的加密方式。不是专业人员是无法破解的。

5. excel杀最新破解

第一步，点击文档的左上角，如下图所示：

第二步，选择“准备”、“加密文档”，如下图所示：

第三步，输入密码，如下图所示：

第四步，再次输入密码（和上次密码一样），点击“确定”保存文档，关闭文档，就完成文档的加密了。

第五步，如果想要解密，重复第一、二、三步，将第三步的密码删除，留成空白即可。

6. excel保护如何不能被破解

运用VBA代码破解，可以试下。先复制下面的代码，打开受保护工作表，按Alt+F11，在代码窗口中粘贴后 按F5，在弹出的对话框一直按确定，完成后就可以了。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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 for potential " & _"future use in other workbooks by same person who " & _"set this password." & DBLSPACE & "Now to check and clear " & _"other passwords." & AUTHORS & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim 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 ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn 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, vbInformation, HEADEREnd Sub

7. excel被密码保护,破解

我们打开excel 软件后，看见单元格里的文字。接下来，我们在单元格里输入文字。这个时候，我们会发现无法输入文字，并且会收到单元格或则图标受保护的提示。

于是，我们点击excel软件上方的审阅。在审阅处的右上方，我们看见有个撤销工作表保护，点击撤销工作表保护。随即，就会跳出取消工作表保护的密码提示。输入我们设置保护工作表时的密码。然后点击确定。这个时候，我们就取消了excel表格的保护。

当我们返回到excel表格时，我们就能够杂单元格里输入文字或则图表了

8. excel 暴力破解

excel工作表作用是非常的大的，主要用于数据的处理与分析，但是有很多人只是用了它的一少部分功能，只是简单的放数据而已，他主要包括基本操作 函数与公式 ，图表操作 数据透视表 VBA程序开发，甚至是可以加密处理的，但是我们有时候又会忘记密码；

下面我们来看看excel工作表密码破解方法：首先打开被保护的excel的表格，你在修改的，你会发现根本修改不了，文件被密码保护；

然后打开工具里的宏或按Alt+F8快捷键，输入aa，点击“创建；

这样就代表创建一个宏，把宏里的字母删除，可以在网上搜索VBA宏的代码粘上去，关闭宏的窗口，就会重新回到excel页面；然后再点击工具中的宏或按Alt+F8快捷键，出现宏里面就有宏名A开头的，直接按执行就好。

然后按“确定，这个“确定”按好后，鼠标键变成倒砂的指标，代表需要等待，大概1-2分钟的样子吧；最后又会出现2次只需要按“确定”，excel就完全解锁了。

9. 怎么人为破坏excel

用组策略可以做到这点,我下面的例子是禁用EXCEL,你可以效仿它."1.进入gpedit.msc,依次展开""用户配置""--管理模板,单击其中的系统项目,然后在右侧双击""不要运行指定的windows应用程序""项,在弹出的窗口中选中""已启用"",再单击""显示""按钮,然后点""添加"",将需要禁止运行的应用程序名称(包括扩展名,如excel就是excel.exe),输入添加项目框中,单击确定. 2.新建两个文本文件,在第一个文件中输入以下内容并保存为excel.cmd: path C:Program FilesMicrosoft OfficeOFFICE11 start excel.exe 然后将excel.cmd,放入U盘中,当然你也可以选择移动硬盘. 第二个文件中输入以下内容并保存为runexcel.cmd(名字可以任意), path I:;J:;K: excel.cmd 其中,excel.cmd中的path后为程序的路径,start后为程序名,可以根据实际情况进行更改,runexcel.cmd中path后为excel.cmd在U盘上可能的路径,因为对移动介质来说,其盘符可能是不同的,在可能的路径之间用英文分号隔开,以便excel.cmd能够正常执行."