撤销工作表保护密码 刷卡记录表如何撤销工作表保护密码|天天快讯

• 2023-06-04 17:00:21 来源：

我们在使用excel工作表的时候可能都使用过保护功能，这样就可以把工作表用密码保护起来，防止别人来进行修改，但是这样可能没有办法进行一些特殊操作，时间长了还可能忘记密码，这要怎么办?如何撤销工作表保护密码?下面就来介绍一下。

撤销工作表保护密码方法：

2007版Excel表格中可以按照以下方式建宏：

(资料图片仅供参考)

1、打开Excel表格中的Excel选项，选择自定义，得到如下画面：

2、然后在左边侧框栏中选择“查看宏”之后双击或者选择添加按钮，则可以看到右边栏中有了查看宏按钮，之后点击右下角的确定。

3、大家可以在下面这个窗口处看到箭头所指的按钮：点击按钮，之后弹出窗口：

4、在宏名处填写一个名字(可随意)，然后点击创建，弹出以下窗口：

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

"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

关键词: