Excel工作表保护密码撤销宏命令
Excel撤销工作表保护密码的破解并获取原始密码
在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！1、打开您需要破解保护密码的Excel文件；2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；3、停止录制(这样得到一个空宏)；4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；5、删除窗口中的所有字符(只有几个),替换为下面的内容；从横线下开始复制------------------------------------------------------------------------------------------Option ExplicitPublic Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick 破解Excel工作表和工作薄保护密码.' probably originator of base code algorithm modified for coverage Bob McCormick 基于覆盖工作薄窗口/所有工作表内容密码保护而制作' of workbook structure / windows passwords and for multiple passwords'' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) Norman Harker 与 JE McGimpsey 27-Dec-2002 (版本 1.1)' Modified 2003-Apr-04 by JEM: All msgs to constants, and JEM 2003-Apr-04 改进:全部消息常数,和除去一个退出过程 (版本 1.1.1)' eliminate one Exit Sub (Version 1.1.1)' Reveals hashed passwords NOT original passwords 程序展示的密码不是原始密码Const DBLSPACE As String = vbNewLine & vbNewLine '声明常量_字符型_vbNewLine=Chr(13)+Chr(10)指定的新行字符'Const AUTHORS As String = DBLSPACE & vbNewLine & "Adapted from Bob McCormick base code by" & "Norman Harker and JE McGimpsey" '声明常量_字符型Const AUTHORS As String = DBLSPACE & vbNewLine & "制作程序: Bob McCormick 改进:Norman Harker and JE McGimpsey" '声明常量_字符型'Const HEADER As String = "AllInternalPasswords User Message" '声明常量_字符型Const HEADER As String = "密码使用消息框" '声明常量_字符型'Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" '声明常量_字符型Const VERSION As String = DBLSPACE & "版本 1.1.1 2003-Apr-04" '声明常量_字符型'Const REPBACK As String = DBLSPACE & "Please report failure " & "to the microsoft.public.excel.programming newsgroup." '声明常量_字符型Const REPBACK As String = DBLSPACE & "请报告失败到 microsoft.public.excel.programming 工作组" '声明常量_字符型
Excel工作表保护技巧如何保护工作表和工作簿
Excel工作表保护技巧如何保护工作表和工作
簿
在使用Excel处理数据时，我们经常会有需要保护工作表和工作簿
的需求，以防止他人随意修改或删除数据，保护数据的安全性和完整性。本文将介绍一些Excel工作表保护的技巧，以帮助你更好地保护你
的工作表和工作簿。
1. 密码保护工作表和工作簿
在Excel中，可以为工作表和工作簿设置密码，从而限制对其进行
修改和编辑操作。要为工作表设置密码，可以按照以下步骤进行操作：
1.1 打开Excel并选择你要保护的工作表。
1.2 点击"工具"菜单上的"保护"选项卡，然后选择"加密工作表"。
1.3 在弹出的对话框中输入你所设定的密码，并点击"确定"。
1.4 确认密码弹出对话框中再次输入密码，并点击"确定"。
同样地，你也可以对整个工作簿进行密码保护操作。只需在"工具"
菜单中选择"保护工作簿"选项，并设置密码进行保护。
2. 设置单元格保护属性
除了密码保护，你还可以设置单元格保护属性，以限制某些单元格
的编辑。
2.1 选择需要保护的单元格或范围。
2.2 右键点击所选单元格，选择"格式单元格"。
2.3 在弹出的对话框中，切至"保护"选项卡，并勾选"锁定"。
2.4 最后点击"确定"。
3. 工作表保护选项
Excel还提供了一些工作表保护的选项，让你更灵活地控制对工作
表的访问权限。其中包括以下几种常用选项：
3.1 允许用户进行筛选：允许用户使用Excel的筛选功能，但只能看到结果，无法修改或删除数据。
3.2 允许用户进行排序：允许用户对工作表中的数据进行排序操作。
3.3 允许用户进行插入删除行列：允许用户在工作表中插入或删除
excel 考勤表 撤销保护密码 的方法
excel表--考勤表“撤销保护密码”的方法2019新
工作中，有时会出现这样的情况：用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，有时从网上下载的Excel格式的小程序，想修改，但是作者加了工作表保护密码，也有时候，公司下载考勤表的时候，考勤机自带根据时间自由变换的密码，下载的考勤也会有密码，下面就拉看看office中excel“撤销保护密码”的方法吧！
方法：
●1、双击打开需要破解保护密码的Excel文件
●2、依次点击菜单栏上的视图----宏----录制宏
●3、输入宏名字如: 宏1（名字可随意起，起错了有提示）点击确定
●4、依次点击菜单栏上的视图---宏----停止录制
●5、依次点击菜单栏上的视图---宏----查看宏
●6、选择“考勤1”点击编辑
●7、将窗口内的内容全选后删除
●8、然后将下面分割线以内的内容开始复制粘贴在上面的窗口内：
从横线下开始复制
--------------------复----------------制----------------横-------------线----------------------------------------------------以------------------------------------下-----------------------------------------
Option Explicit
VBA 中的工作表保护和解锁方法
VBA 中的工作表保护和解锁方法
VBA（Visual Basic for Applications）是一种用于编写宏的编程
语言，它被广泛应用于微软的Office系列软件中，尤其是在Excel 中。在Excel中，通过使用VBA，我们可以实现许多自动化任务，从简单的数据处理到复杂的报表生成。
然而，在使用VBA编写宏时，我们可能会遇到需要对工作表
进行保护和解锁的需求。工作表保护可以防止用户不小心或故意
地更改或删除数据，而解锁工作表可以使得特定的操作可以进行。
本文将介绍在VBA中如何实现工作表的保护和解锁，以满足
不同的需求。
1. 工作表保护
工作表保护是指对Excel工作表中的单元格、图表和对象进行
保护，以防止用户对其进行修改。在VBA中，我们可以通过以下
代码来保护工作表：
```
Worksheets("Sheet1").Protect Password:="password"
```
上述代码将保护名为"Sheet1"的工作表，并设置一个密码进行
保护。如果你不想设置密码，可以删除"Password:="部分。值得注
意的是，如果不设置密码，任何人都可以取消工作表保护。
另外，还可以通过以下代码更改工作表的保护选项：
```
Worksheets("Sheet1").Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
```
上述代码将保护工作表并允许用户对图表、对象和内容进行修
改和编辑。你可以根据自己的需求更改这些选项。
2. 工作表解锁
2003版excel表格密码怎么去除
2003版excel表格密码怎么去除
我们在工作中使用excel2003的时候，很久以前设置了密码的文档忘记了该如何打开。下面让店铺为你带来2003版excel表格密码怎么去除的方法。
2003版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
'
' China XingYun 27-Feb-2006 (Version 1.0.0)
' Modified 2006-Feb-28 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.0.0)
' Reveals hashed passwords NOT original passwords
用宏查看Excel密码保护
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出；再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker，点击“确定”退出第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor 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 126ActiveSheet.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 ThenMsgBox "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).SelectRange("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 SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了。第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。另一个能解除Excel工作表保护的VBA脚本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 &
EXCEL 常用的宏代码大全
EXCEL 常用的宏代码大全
本示例为设置密码窗口(1)
If Application.InputBox("请输入密码：") = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If
本示例为设置密码窗口(1)
X = MsgBox("是否真的要结帐？", vbYesNo)
If X = vbYes Then
Close
本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码
'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。
For Each w In Workbooks
If <> Then
w.Close SaveChanges:=True
End If
Next w
'每次打开工作簿时，本示例都最大化Microsoft Excel 窗口。Application.WindowState = xlMaximized
'本示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " &
'本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
'下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate
破解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
撤销工作表保护密码宏代码
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"
如何撤销工作表保护
E x c e l密码保护的解除方法与解除原理
出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。
一、VBA宏代码破解法：
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“MicrosoftOffice安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：
SubPasswordBreaker()
DimiAsInteger,jAsInteger,kAsInteger
DimlAsInteger,mAsInteger,nAsInteger
Dimi1AsInteger,i2AsInteger,i3AsInteger
Dimi4AsInteger,i5AsInteger,i6AsInteger
OnErrorResumeNext
Fori=65To66:Forj=65To66:Fork=65To66
Forl=65To66:Form=65To66:Fori1=65To66
Fori2=65To66:Fori3=65To66:Fori4=65To66
Fori5=65To66:Fori6=65To66:Forn=32To126
vba撤销保护工作表
vba撤销保护工作表
VBA撤销保护工作表是微软VBA编程语言中的一种常用操作。这种操作能够有效地帮助用户恢复被保护的Excel 工作表的编辑权限，从而使得用户可以进行必要的修改和编辑工作。在本文中，我们将从以下三个方面来介绍VBA 撤销保护工作表的操作。
一、VBA撤销保护工作表的基本操作
首先，我们需要了解一些关于VBA撤销保护工作表的基本操作。在VBA中，我们通常使用Unprotect方法来撤销Excel工作表的保护。具体来说，我们需要首先打开Excel工作表，然后进入VBA编辑器。接着，我们需要在VBA编辑器中输入以下代码并执行，即可取消该工作表的保护：
Sub UnprotectSheet () ActiveSheet.Unprotect Password:="password" End Sub
在这段代码中，我们使用了ActiveSheet.Unprotect 方法来撤销当前激活的工作表的保护。同时，我们也需要在代码中输入一个密码（这里的密码是一个字符串常量），以确保只有知道密码的人才可以进行保护或撤销保护操作。
二、VBA撤销保护工作表的注意事项
当执行VBA撤销保护工作表的操作时，我们需要注意一些事项，以确保操作的成功。首先，我们需要确保正在撤销保护的工作表确实是需要进行编辑的工作表。如果不确定当前的工作表是否需要撤销保护，我们可以使用IsProtected方法来判断该工作表是否被保护。代码如下：Sub CheckIfProtected () If
ActiveSheet.ProtectContents = True Then MsgBox "The sheet is protected." Else MsgBox "The sheet is not protected." End If
Excel密码保护的解除方法 解除写保护
Excel密码保护的解除方法解除写保护
Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口，如图1。
出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。
一、VBA宏代码破解法：
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；
Excel密码保护的解除方法与解除原理
Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口，如图1。
出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。
一、VBA宏代码破解法：
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：Password Breaker(图3)，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
瞬间破解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 '
Excel密码保护的解除方法与解除原理
Excel密码保护的解除方法与解除原理
2010-06-22 20:21
Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。”窗口，如图1。
出现这种情况，应该怎么解决呢？经过研究，找到了两种破解Excel工作表保护码的方法。
一、VBA宏代码破解法：
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出；
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“MicrosoftVisualBasic”编辑器，用如下内容替换右侧窗口中的所有代码：
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
教你如何撤销工作表保护密码
Excel,遗忘密码后如何撤销工作表保护密码
工作表保护密码
1、打开您需要撤销保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为以下内容；
Public Sub 工作表保护密码()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:eric"
Const HEADER As String = "工作表保护密码"
Const VERSION As String = DBLSPACE & "版本Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " eric"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除。" & DBLSPACE & "请记得重新设置密码" _
& DBLSPACE & "注意：此方法仅用于遗忘密码使用。"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
EXCEL 常用的宏代码大全
EXCEL 常用的宏代码大全
本示例为设置密码窗口(1)
If Application.InputBox("请输入密码：") = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If
本示例为设置密码窗口(1)
X = MsgBox("是否真的要结帐？", vbYesNo)
If X = vbYes Then
Close
本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码
'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。
For Each w In Workbooks
If <> Then
w.Close SaveChanges:=True
End If
Next w
'每次打开工作簿时，本示例都最大化Microsoft Excel 窗口。Application.WindowState = xlMaximized
'本示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " &
'本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"
'下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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 " & _