撤銷工作表保護密碼是多少
⑴ 撤銷工作表保護密碼是多少
只能把整個工作表復制到另一個新建的工作表裡了,這樣就OK了
⑵ excel工具菜單中保護子菜單中撤銷工作表保護命令的密碼不知是什麼
錄制一個新宏,然後編輯這個宏,將宏代碼刪除,將下列代碼放入:
Public Sub 工作表保護密碼破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保護密碼破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "該工作簿中的工作表密碼保護已全部解除!!" & DBLSPACE & "請記得另保存" _
& DBLSPACE & "注意:不要用在不當地方,要尊重他人的勞動成果!"
Const MSGNOPWORDS1 As String = "該文件工作表中沒有加密"
Const MSGNOPWORDS2 As String = "該文件工作表中沒有加密2"
Const MSGTAKETIME As String = "解密需花費一定時間,請耐心等候!" & DBLSPACE & "按確定開始破解!"
Const MSGPWORDFOUND1 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
"如果該文件工作表有不同密碼,將搜索下一組密碼並修改清除"
Const MSGPWORDFOUND2 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _
"如果該文件工作表有不同密碼,將搜索下一組密碼並解除"
Const MSGONLYONE As String = "確保為唯一的?"
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
Else
On Error Resume Next
Do 'mmy 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 & ZHENGLI, vbInformation, HEADER
End Sub
執行這個宏即可。
⑶ 得力打卡機撤銷工作表保護密碼是多少
摘要 一、保護工作表的方法
⑷ 文檔上撒除工作表保護的密碼一般是什麼
這個並不會變化,原先設置的密碼是什麼,解除時也輸入對應的密碼即可。
解除方法:
點擊選擇「審閱」選項,可以在該頁面的工具欄上看到有一個「保護工作表」的工具欄。
⑸ EXCEL工作表保護密碼忘記了,如何撤消工作表保護
撤銷是不能撤銷的,只能通過破解密碼來實現,可以用修改後綴名稱的方法。
工具:華碩電腦
1、首先找到Excel表格,修改後綴名稱xlsx改為演示操作表格rar,如下圖所示
⑹ zkt考勤機撤銷工作表保護密碼是多少
摘要 您好,非常高興能為您解答這個問題。您所說的這個Z kt考勤機撤銷工作表保護密碼的話,這個東西得要問你們人力資源部的。因為這個東西都是人力資源部去掌管這些密碼的。如果人力資源部也不知道的話,得要去看人家的說明書。在說明書裡面都有詳細的說明。
⑺ excel表格中忘了撤銷工作表保護密碼怎麼辦
excel表格中忘了撤銷工作表保護密碼怎麼辦
網上下個解密工具!
找個破解軟體破解即可,很多的,自己搜索一下,不保密的話發給我給你破解,需要HI
⑻ wps中excel表格密碼忘記了,怎麼撤銷工作表保護
示例在EXCEL2007中進行,可以不使用宏設置,直接按以下方法操作。
1、先打開EXCEL,sheet1是一個被保護的工作表,當點擊單元格嘗試編輯時。會提示試圖更改的單元格或圖表在受保護的工作表中!
⑼ 07版的撤銷工作表保護的密碼是什麼
如果不記得密碼,又想撤消工作表保護,建議用」秒破還原器「,淘~寶有,把文件拖進去,1-2秒鍾內就全部破開了。
本書深入淺出,以「小魔女」對Excel一竅不通到能熟練使用Excel製作各種類型的電子表格的學習經歷為線索貫穿始終,引導初學者學習。
本書選擇了實際工作中的大量應用實例,以幫助讀者掌握相關知識;每章後面附有大量豐富生動的練習題,以檢驗讀者對本章知識點的掌握程度,達到鞏固所學知識的目的。
內容簡介:
《Excel2010電子表格處理》一書講述了使用Excel製作電子表格的知識,主要內容包括Excel2010入門基礎、Excel表格製作第一步、表格內容的設置和美化、使用公式與函數快速處理數據。
表格數據的管理與分析、辦公中常用函數的應用、使用圖表分析表格數據、數據透視表和透視圖的應用及Excel高級應用等知識,最後通過綜合實例練習使用Excel製作電子表格的各種操作,從而提高讀者的綜合應用能力。