當前位置:首頁 » 辦公資訊 » 怎樣取消excel保護密碼

怎樣取消excel保護密碼

發布時間: 2022-02-16 20:09:08

excel工作表保護密碼忘記了,如何撤消工作表保護

撤銷是不能撤銷的,只能通過破解密碼來實現,可以用修改後綴名稱的方法。

工具:華碩電腦

1、首先找到Excel表格,修改後綴名稱xlsx改為演示操作表格rar,如下圖所示

② 怎樣取消EXCEL表格的密碼保護

如果可以用只讀方式打開這個文件,那麼只要打開後「另存為」一個就行了,另存後的文件就沒有密碼了。

③ excel表怎麼取消密碼保護

他這個表格的話,原本其實是沒有密碼保護,那如果你弄的話,那你只要從設置那裡面可就可以取消密碼保護

④ excel表格忘了密碼怎麼撤銷工作保護

之前小編為大家介紹了Excel的保護功能,其中保護工作表通過密碼進行保護,可是密碼如果不小心忘記了怎麼辦?

今天小編就教大家一個無需插件,快速解除工作表密碼保護的方法。

一、保護工作表
步驟:點擊【審閱】-【保護工作表】-勾選【選定鎖定單元格】和【選定未鎖定的單元格】-【確定】。隨後設置單元格格式、插入行、刪除行等都無法進行操作。

二、解除工作表密碼保護
1、查看代碼

步驟:右鍵【sheet1】-【查看代碼】-打開代碼窗口。

2、插入代碼

代碼:Sub DeletePW()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

步驟:粘貼代碼,點擊【運行】即可。

從此再也不怕忘記密碼了有木有,快快收藏學習吧~

PS:如果有Excel文件格式轉換,或是PDF操作問題,可以搜索「迅捷PDF轉換器」,下載安裝,也可在線使用,小編日常都有在用,牆裂推薦。

⑤ 如何取消excel密碼保護

1、先錄入密碼,確定打開要取消密碼的excel文件。
2、在文件菜單下點擊另存為,取消密碼的辦法其實就是再把文件保存一次,在保存替換原文件或重命名時將密碼取消掉。
3、點擊工具選擇常規選項;
4、刪除密碼,點擊確定並保存。提示文件已存在要替換它嗎?如果想要覆蓋原文件直接點擊是就替換掉了。
5、如果想保留原文件重新存一份,點擊否再修改文件名保存為一份新的文件。

⑥ 撤銷excel表保護忘記密碼怎麼辦

被加密的文檔需要您先具備解密密碼,如密碼已遺忘,目前官方沒有辦法幫助找回(編輯密碼/打開密碼均不可找回),建議您可嘗試更換大小寫嘗試解鎖。

如您已找回密碼,可參考下方方法解除:

1)開啟了賬號加密:開啟後只有加密者本人的賬號或被授權的用戶才可以打開,其他人將無許可權打開。可參考下圖解除加密;

⑦ 電子表格怎麼取消密碼保護

一般的店電子表格在審閱里頭有電子表格保護。你說正確的密碼就可以取消密碼保護了。但是如果你不知道正確的密碼,那是沒法取消密碼保護的。

⑧ Excel 表格怎麼去掉保護密碼

Excel工作表保護密碼破解方法

一個excel文檔要修改其中的內容,可是被保護了,找了一堆破解軟體,要麼需要購買,要麼是破解打開密碼的,非保護密碼。好不容易找到解決方案!
excel保護密碼破解(絕對經典) 如果你的Excel文件設置了保護密碼而遺忘了,那麼請依照下面的步驟來操作,也許會有奇跡出現.不需要多麼高難度的操作和專業的軟體支持.簡單.方便.費時一般最多兩分鍾. (建議:操作前把原文件COPY一份) 方法:

1打開文件
2工具---宏----錄制新宏---輸入名字如:aa
3停止錄制(這樣得到一個空宏)
4工具---宏----宏,選aa,點編輯按鈕
5刪除窗口中的所有字元(只有幾個),替換為下面的內容:

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
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
MsgBox MSGNOPWORDS2, vbInformation, HEADER
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, vbInformation, HEADER
End Sub

6關閉編輯窗口
7工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定.OK,沒有密碼了!!

⑨ EXCEL怎麼撤消保護沒有密碼

首先我們先在電腦桌面上找到我們要使用的軟體Excel2016並打開,接著找到其中一個已近加密過的文檔。

找到之後,輸入密碼進入該文檔。接著找到位於上方菜單欄中的「文件」選項並點擊,然後進行下一步操作。

在接下來的頁面,選擇「信息」,在信息一欄中,選擇第一項「保護工作簿」。並在該選項中找到「用密碼進行加密」。

最後我們點擊「用密碼進行加密」,彈出一個輸入密碼的窗口,只需將輸入欄清空,點擊「確定」,這樣我們就撤銷的Excel的密碼保護。




⑩ Word文檔、Excel加密如何取消

Word和Excel文檔加密之後,必須要輸入密碼,打開文檔,然後在設置頁面把加密指令取消,這樣才可以達到,科學規范的安全使用效果。
Word和Excel都是計算機裡面,常用的一個有效的辦公軟體。
人們通過輸入設備,把需要處理的信息輸入電腦,電腦通過中央處理器。把信息加工後,再通過輸出設備,把處理後的結果告訴人們。
其實這個模型很簡單,舉個簡單的例子,你要處理的信息是1+1,你把這個信息輸入到電腦中後,電腦的內部進行處理,再把處理後的結果告訴你。
早期電腦的輸入設備十分落後,根本沒有現在的鍵盤和滑鼠,那時候電腦還是一個大傢伙,最早的電腦有兩層樓那麼高。
人們只能通過扳動電腦龐大的面板上無數的開頭來向電腦輸入信息,而電腦把這些信息處理之後,輸出設備也相當簡陋,就是電腦面板上無數的信號燈。
所以那時的電腦根本無法處理像現在這樣各種各樣的信息,它實際上只能進行數字運算。
當時人們使用電腦也真是夠累的。但在當時,就算是這種電腦也是極為先進的了,因為它把人們從繁重的手工計算中解脫出來,而且極大地提高了計算速度。
隨著人們對電腦的使用,人們發現上述模型的電腦能力有限,在處理大量數據時就越發顯得力不從心。為些人們對電腦模型進行了改進,提出了這種模型:

就是在中央處理器旁邊加了一個內部存儲器。這個模型的好處在於。
先打個比方說,如果老師讓你心算一道簡單題,你肯定毫不費勁就算出來了,可是如果老師讓你算20個三位數相乘,
你心算起來肯定很費力,但如果給你一張草稿紙的話,你也能很快算出來。
可能你會問這和電腦有什麼關系?其實電腦也是一樣,一個沒有內部存儲器的電腦如果讓它進行一個很復雜的計算,
它可能根本就沒有辦法算出來,因為它的存儲能力有限,無法記住很多的中間的結果,但如果給它一些內部存儲器當「草稿紙」的話,
電腦就可以把一些中間結果,臨時存儲到內部存儲器上,然後在需要的時候再把它取出來,進行下一步的運算,如此往復,電腦就可以完成很多很復雜的計算。

熱點內容
馬路上汽車的噪音在多少分貝 發布:2023-08-31 22:08:23 瀏覽:1748
應孕棒多少錢一盒 發布:2023-08-31 22:08:21 瀏覽:1242
標准養老金一年能領多少錢 發布:2023-08-31 22:05:05 瀏覽:1529
湖北通城接網線多少錢一個月 發布:2023-08-31 21:59:51 瀏覽:1609
開隨車吊車多少錢一個月 發布:2023-08-31 21:55:06 瀏覽:1371
京東付尾款怎麼知道前多少名 發布:2023-08-31 21:52:58 瀏覽:1690
在學校租鋪面一個月要多少錢 發布:2023-08-31 21:52:09 瀏覽:1826
2寸有多少厘米 發布:2023-08-31 21:50:34 瀏覽:1464
知道電壓如何算一小時多少電 發布:2023-08-31 21:46:20 瀏覽:1449
金手鐲54號圈周長是多少厘米 發布:2023-08-31 21:44:28 瀏覽:1622