2024年3月28日发(作者：)
如对您有帮助，请购买打赏，谢谢您！
Excel中表格工作表保护密码撤销的操作
方法
在做excel表格时我们有时候会给自己的工作表加密，
一旦忘记密码就会很麻烦，如何绕过密码，直接撤销保护。
今天，学习啦小编就教大家在Excel中表格工作表保护密码
撤销的操作方法。
Excel中表格工作表保护密码撤销的操作步骤 打开
excel，点击菜单栏的“视图”，点击二级菜单里的“宏”，
选择录制宏。
表格工作表保护密码撤销的操作图1 在弹出来的方框中
输入宏的名称，点击确认。
表格工作表保护密码撤销的操作图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
’ 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 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
发布评论