大家好，來寶來為大家解答以下問題，刷卡記錄表如何撤銷工作表保護(hù)密碼，撤銷工作表保護(hù)密碼很多人還不知道，今天讓我們一起來看看吧！

我們在使用超過工作表的時(shí)候可能都使用過保護(hù)功能，這樣就可以把工作表用密碼保護(hù)起來，防止別人來進(jìn)行修改，但是這樣可能沒有辦法進(jìn)行一些特殊操作，時(shí)間長了還可能忘記密碼，這要怎么辦？如何撤銷工作表保護(hù)密碼？下面就來介紹一下。

撤銷工作表保護(hù)密碼方法：

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

1、打開超過表格中的超過選項(xiàng)，選擇自定義，得到如下畫面：

2、然后在左邊側(cè)框欄中選擇"查看宏"之后雙擊或者選擇添加按鈕，則可以看到右邊欄中有了查看宏按鈕，之后點(diǎn)擊右下角的確定。

3、大家可以在下面這個(gè)窗口處看到箭頭所指的按鈕：點(diǎn)擊按鈕，之后彈出窗口：

4、在宏名處填寫一個(gè)名字(可隨意),然后點(diǎn)擊創(chuàng)建，彈出以下窗口：

5、將窗口內(nèi)的內(nèi)容全選后刪除，然后將下面分割線以內(nèi)的內(nèi)容開始復(fù)制粘貼在上面的窗口內(nèi)：

撤銷工作表保護(hù)密碼從橫線下開始復(fù)制

-

選項(xiàng)顯式

Public Sub AllInternalPasswords()

破壞工作表和工作簿結(jié)構(gòu)密碼。鮑勃麥考密克

可能是為覆蓋范圍修改的基本代碼算法的發(fā)起者

工作簿結(jié)構(gòu)/windows密碼和多個(gè)密碼

'

諾曼哈克和作業(yè)評估麥金普西2002年12月27日(版本1.1)

由杰姆于2003年4月4日修改：所有味精為常數(shù)，以及

取消一個(gè)出口接頭(版本1.1.1)

顯示哈希密碼，而不是原始密碼

const DBLSPACE As String=VB newline VB newline

const AUTHORS As String=DBLSPACE VB newline _

改編自鮑勃麥考密克的基礎(chǔ)代碼

諾曼哈克和作業(yè)評估麥金普西

常數(shù)標(biāo)頭為String='AllInternalPasswords用戶消息'

常數(shù)版本為' String=DBLSPACE '版本1 .1 .1 2003-2004年4月'

' Const REPBACK As String=DBLSPACE '請報(bào)告失敗' _

添加到微軟。公共的。excel。設(shè)計(jì)新聞組。

Const ALLCLEAR As String=DBLSPACE "工作簿應(yīng)該"_

現(xiàn)在沒有任何密碼保護(hù)，所以請確保您：' _

DBLSPACE "現(xiàn)在就保存!"'數(shù)字空間'和還有' _

DBLSPACE的后援!后援!后援!'_

'數(shù)字空間'另外，請記住密碼是' _

放在那里是有原因的。不要把重要的公式塞得滿滿的

或者數(shù)據(jù)“DBLSPACE”某些數(shù)據(jù)的訪問和使用"_

可能是一種冒犯。如果有疑問，不要這樣做。

Const MSGNOPWORDS1 As String='上沒有密碼' _

工作表、工作簿結(jié)構(gòu)或窗口。作者版本

Const MSGNOPWORDS2 As String='沒有保護(hù)' _

工作簿結(jié)構(gòu)或窗口DBLSPACE _

繼續(xù)取消工作表保護(hù)。作者版本

按下確定按鈕后，const MSGTAKETIME As String=' this ' _

需要一些時(shí)間DBLSPACE "時(shí)間量"_

取決于有多少不同的密碼

密碼和你電腦的規(guī)格DBLSPACE _

耐心點(diǎn)!"給我沖杯咖啡!"作者版本

Const MSGPWORDFOUND1 As String='您有一個(gè)工作表' _

結(jié)構(gòu)或Windows操作系統(tǒng)密碼集DBLSPACE _

找到的密碼是：' DBLSPACE '$$' DBLSPACE _

用"_"記下它，以便將來在其他工作簿中使用

設(shè)置這個(gè)密碼的人DBLSPACE _

現(xiàn)在檢查并清除其他密碼。作者版本

Const MSGPWORDFOUND2 As String='您有一個(gè)工作表' _

'密碼設(shè)置'找到的密碼是："_

DBLSPACE '$$' DBLSPACE '記下潛在可能性' _

同一個(gè)人將來在其他工作簿中使用' _

設(shè)置這個(gè)密碼' DBLSPACE '現(xiàn)在檢查并清除' _

其他密碼。作者版本

const MSGONLYONE As String=' Only structure/windows ' _

用剛剛找到的密碼保護(hù)著。_

放行作者版本報(bào)告

將w1作為工作表，w2作為工作表

創(chuàng)建相應(yīng)的變量為整數(shù)，j為整數(shù)，k為整數(shù)，l為整數(shù)

尺寸m為整數(shù)，n為整數(shù)，i1為整數(shù)，i2為整數(shù)

將i3作為整數(shù)，i4作為整數(shù)，i5作為整數(shù)，i6作為整數(shù)

Dim PWord1作為字符串

Dim ShTag為布爾值，WinTag為布爾值

申請ScreenUpdating=False

使用活動(dòng)工作簿

WinTag=.保護(hù)結(jié)構(gòu)或。保護(hù)窗口

以…結(jié)尾

ShTag=False

對于工作表中的每個(gè)w1

ShTag=ShTag或w1 .保護(hù)內(nèi)容

下一個(gè)w1

如果不是ShTag和WinTag，則

MsgBox MSGNOPWORDS1，vbInformation頭

出口接頭

如果…就會(huì)結(jié)束

MsgBox MSGTAKETIME，vbInformation，HEADER

如果不是WinTag，那么

MsgBox MSGNOPWORDS2，vbInformation頭

其他

出錯(cuò)時(shí)繼續(xù)下一步

做虛擬做循環(huán)

對于i=65至66:對于j=65至66:對于k=65至66

對于l=65至66:對于m=65至66:對于i1=65至66

對于i2=65到66:對于i3=65到66:對于i4=65到66

對于i5=65至66:對于i6=65至66:對于n=32至126

使用活動(dòng)工作簿

.取消保護(hù)人權(quán)人權(quán)(j)人權(quán)(k) _

Chr(l) Chr(m) Chr(i1) Chr(i2) _

鉻(i3)鉻(i4)鉻(i5)鉻(i6)鉻(名詞)

如果ProtectStructure=False And _

.那么ProtectWindows=False

p word 1=Chr(I)Chr(j)Chr(k)Chr(l)_

Chr(m) Chr(i1) Chr(i2) Chr(i3) _

鉻(i4)鉻(i5)鉻(i6)鉻(名詞)

對話框應(yīng)用程序。替換(MSGPWORDFOUND1，_

$$ '，PWord1)，vbInformation，HEADER

Exit Do 'Bypass all for.下一步

如果…就會(huì)結(jié)束

以…結(jié)尾

下一頁：下一頁：下一頁：下一頁：下一頁：下一頁

下一頁：下一頁：下一頁：下一頁：下一頁：下一頁

循環(huán)直到真

出錯(cuò)時(shí)轉(zhuǎn)到0

如果…就會(huì)結(jié)束

如果是WinTag而不是ShTag，則

MsgBox MSGONLYONE，vbInformation標(biāo)頭

出口接頭

如果…就會(huì)結(jié)束

出錯(cuò)時(shí)繼續(xù)下一步

對于工作表中的每個(gè)w1

嘗試用PWord1清除

w1 .取消保護(hù)PWord1

下一個(gè)w1

出錯(cuò)時(shí)轉(zhuǎn)到0

ShTag=False

對于工作表中的每個(gè)w1

如果沒有，檢查所有觸發(fā)為數(shù)字一（one）的清除ShTag .

ShTag=ShTag或w1 .保護(hù)內(nèi)容

下一個(gè)w1

如果ShTag那么

對于工作表中的每個(gè)w1

使用w1

如果。那么保護(hù)內(nèi)容

出錯(cuò)時(shí)繼續(xù)下一步

做虛擬做循環(huán)

對于i=65至66:對于j=65至66:對于k=65至66

對于l=65至66:對于m=65至66:對于i1=65至66

對于i2=65到66:對于i3=65到66:對于i4=65到66

對于i5=65至66:對于i6=65至66:對于n=32至126

.取消保護(hù)人權(quán)人權(quán)(j)人權(quán)(k) _

Chr(l)Chr(m)Chr(i1)Chr(I2)Chr(i3)_

鉻(i4)鉻(i5)鉻(i6)鉻(名詞)

如果沒有。那么保護(hù)內(nèi)容

p word 1=Chr(I)Chr(j)Chr(k)Chr(l)_

Chr(m) Chr(i1) Chr(i2) Chr(i3) _

鉻(i4)鉻(i5)鉻(i6)鉻(名詞)

對話框應(yīng)用程序。替換(MSGPWORDFOUND2，_

$$ '，PWord1)，vbInformation，HEADER

通過嘗試其他工作表來利用查找單詞

對于工作表中的每個(gè)w2

w2 .取消保護(hù)PWord1

下一個(gè)w2

Exit Do 'Bypass all for.下一步

如果…就會(huì)結(jié)束

下一頁：下一頁：下一頁：下一頁：下一頁：下一頁

下一頁：下一頁：下一頁：下一頁：下一頁：下一頁

循環(huán)直到真

出錯(cuò)時(shí)轉(zhuǎn)到0

如果…就會(huì)結(jié)束

以…結(jié)尾

下一個(gè)w1

如果…就會(huì)結(jié)束

MsgBox ALLCLEAR作者版本REPBACK，vbInformation，標(biāo)題

末端接頭

-

復(fù)制到橫線以上

得到情況如下圖表示

6、關(guān)閉編輯窗口；

7、依次點(diǎn)擊菜單欄上的工具- 宏- 宏，選AllInternalPasswords，運(yùn)行，確定兩次；

等一會(huì)，就會(huì)出現(xiàn)以下對話框：這就是超過密碼對應(yīng)的原始密碼(此密碼和原先設(shè)置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復(fù)密碼設(shè)置，就可以用此密碼進(jìn)行保護(hù)，他就能用他設(shè)置的密碼打開，你可以試試，很有趣的。字母一定要大寫):

再點(diǎn)擊確定.超過的原始密碼就被清除了!

8、最后記得關(guān)閉超過文檔時(shí)要保存，否則下回打開，文檔仍舊處于只讀狀態(tài)而無法修改。

以上就是有關(guān)撤銷工作表保護(hù)密碼的方法介紹，如果大家遇到這種問題，不妨參考本文嘗試解決。

本文講解到此結(jié)束，希望對大家有所幫助。

標(biāo)簽：