excel宏防止破解(excel宏破解保护)

1. excel宏破解保护

宏禁用解除方法

1、打开Excel表格，点击进入开发工具。

2、进入开发工具后，点击代码选项中的宏安全性。

3、点击宏安全性后，就可信任中心宏设置中，然后把启用所有宏勾选上。

4、然后把启用所有宏勾选上之后，就可以使用宏了。

2. 破解xlsm宏锁定

1.xls xls是一个特有的二进制格式，核心结构属于复合型文档类型，是2003版本Office Microsoft Office Excel工作表保存的默认格式。新建Excel表格保存的后缀名为“.xls”。

2.xlsx xlsx的核心结构是XML类型结构，采用了XML的压缩方式，使其占用的空间更小，xlsx中最后一个x的意义就在于此，它是Excel2007版本的文件。新建Excel表格默认保存的后缀名为“.xlsx”。

3.xlsm xlsm同xlsx一样是属于07年版本的保存文件。一般情况下Excel不会自动启用“宏”，但是老师们在使用过程中可能会需要用到宏功能，在这个时候文件的格式就需要选择xlsm，这样才能够保存表格中的VBA代码，它的后缀名是“.xlsm”。

4.pdf pdf是Portable Document Format的缩写，即可移植文档格式是一种用独立于应用程序、硬件、操作系统的方式呈现文档的文件格式。老师们在生成和输出图片时会保存该格式，其后缀名为“.pdf”。不过需要注意的是Excel导出的pdf文档仅用于阅读，并不可以直接修改。

5.et et属于金山办公软件WPS Office中的电子表格文件，相当于微软办公软件的excel一样，可以用Excel打开，也可以下载安装WPS就能打开。

3. excel宏保护工作表

vba窗口－工具－VBAProject属性－保护－打勾－密码！

4. 怎样破解excel宏密码

方法如下：

1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。

2、在弹出的对话框内选择信任中心。

3、点击信任中心设置，进入下一个对话框。

4、点击宏设置，而后选择启用所有宏。

5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。

6、就可以重新打开文件。

5. excel宏加密防破解

首先我们点击打开这个已经加密的Excel文件，打开时需要正确输入文档密码。输入正确密码后，进入Excel表格页面，点击左上角的【文件】。

接着左侧弹出选项，点击第4个【信息】，在这里我们可以找到取消密码的设置。接着进入信息选项，找到保护工作簿，并点击保护工作簿下方的小三角，点击【用密码进行加密】。最后在加密文档密码下方，我们将已有的密码删除，然后点击文档加密框下方的【确定】

6. 怎么用宏破解被保护的表格

我们可以通过新建工作本，来创建一个新的工作本来创造新的宏而绕过密码保护机制。

在打开的PDN_Tool_v1_1_1.xls工作本里，通过菜单“文件–>新建工作本“，创建一个新的空白工作本。

在新建的工作本里，通过菜单”工具–>宏–>录制新宏…“来创建一个新的宏。

但我们这里先什么都不用做，直接菜单”工具–>宏–>停止录制“来创建一个空白的宏，我们会对这个新的宏进行编辑工作。

通过菜单”工具–>宏–>宏…“，来打开宏选择窗口，我们会在宏窗口的选择列表里看到我们刚才新建的那个宏”hh”。

选择宏“hh”，然后点击“编辑”按钮。

在弹出的“Visual Basic 编辑器”窗口右边，删除原有的代码，将下边的VBA代码粘贴减去，然后关闭“Visual Basic 编辑器”窗口。

7. 破解工作表保护 宏

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

"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