excel怎麼刪除密碼
㈠ excel密碼怎麼解除
方法如下
1、先錄入密碼,確定打開要取消密碼的excel文件。
常用函數
1、資料庫函數
當需要分析數據清單中的數值是否符合特定條件時,可以使用資料庫工作表函數。
2、日期與時間函數
通過日期與時間函數,可以在公式中分析和處理日期值和時間值。
3、工程函數
工程工作表函數用於工程分析。這類函數中的大多數可分為三種類型:對復數進行處理的函數、在不同的數字系統(如十進制系統、十六進制系統、八進制系統和二進制系統)間進行數值轉換的函數、在不同的度量系統中進行數值轉換的函數。
㈡ excel表格如何取消密碼
excel中,點擊左上角「文件」——「信息」。點擊「保護工作簿」——「用密碼進行加密」,把原來設置的密碼刪除後,文本框放空,點擊「確定」即可。
1、excel中,點擊左上角「文件」。
㈢ excel保護密碼怎麼解除
excel保護密碼怎麼解除
excel保護密碼怎麼解除,為了保護我們的文件我們會設置一些密碼,但是每次打開excel時都要輸入密碼,覺得麻煩想省事一點的話可以取消密碼,以下關於excel保護密碼怎麼解除
excel保護密碼怎麼解除1
先錄入密碼,確定打開要取消密碼的excel文件。
在文件菜單下點擊 另存為 ,取消密碼的辦法其實就是再把文件保存一次,在保存替換原文件或重命名時將密碼取消掉。
點擊 工具 選擇 常規選項
刪除密碼,點擊確定並保存。
提示文件已存在要替換它嗎?如果想要覆蓋原文件直接點擊 是 就替換掉了。
如果想保留原文件重新存一份,點擊 否 再修改文件名保存為一份新的文件。
excel保護密碼怎麼解除2
1、將設置了保護密碼的excel文件的擴展名由「.xlsx」修改為「.rar」或者是「.zip」壓縮包後綴;
2、滑鼠雙擊打開壓縮包文件,進入【xl】下的【worksheets】文件夾,在此文件夾下,包含有跟各個工作表名稱對應的xml文件。
3、在此,我們找到需要清除密碼的工作表文件,比如:如果是需要清除sheet1工作表的密碼,我們就選擇sheet1.xml文件,如果是需要清除sheet2工作表的密碼,我們就選擇sheet2.xml文件,依此類推。本例中,我們是需要清除sheet1工作表的密碼,所以選擇sheet1.xml文件,並用滑鼠將其拖動復制出來。
4、用記事本方式打開sheet1.xml文件,並使用查找功能,搜索關鍵詞sheetProtection快速找到保護代碼,即為這段代碼,並將其刪除。
要刪除的'代碼如下這段:
5、代碼刪除後,保存文檔,再把文件拉回壓縮包里覆蓋原文件。
6、最後重新把壓縮包的後綴由.rar改回.xlsx後綴格式。
excel保護密碼怎麼解除3
1、把文件後輟改為Rar,文件圖標會變成壓縮包形式
2、雙擊打開壓縮包,把xlworksheets文件夾中的sheet1拖動復制出來
為什麼要拖出sheet1?因為sheet1就是匯總表工作表,查看方法:
工作表標題上右鍵 - 查看代碼 - 在彈出的新窗口中右上角「工程」小窗口中可以看到工作表的 順序名(自定義的工作表名)
3、用記事本打開sheet1
4、查找protect 並刪除下面藍色的代碼,最後保存
5、把sheet1拖回到壓縮包中替換原文件,然後把壓縮包後輟名改回 xlsx
㈣ excel設置密碼怎麼解除
excel表格在審閱頁面下點擊撤銷工作表保護,輸入密碼就可以了。
1、首先在excel表格中點擊審閱,如下圖所示。
㈤ 怎麼樣取消excel表格的密碼
具體如下:
1. 第一步,我們先打開加密後的Excel表格,打開時需要輸入密碼;
2. 接下來,我們點擊頂部菜單欄的 文件,然後在下拉選項中點擊 另存為;
3. 在彈出的保存窗口中,我們點擊如下圖的工具,然後選擇常規選項;
㈥ 2003版excel表格密碼怎麼去除
我們在工作中使用excel2003的時候,很久以前設置了密碼的文檔忘記了該如何打開。下面讓我為你帶來2003版excel表格密碼怎麼去除的 方法 。
2003版excel表格密碼去除步驟如下:
1、打開您需要解除保護密碼的 Excel 文件;
2、依次點擊菜單欄上的工具---宏----錄制新宏,輸入宏名字如:aa;
3、停止錄制(這樣得到一個空宏);
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕;
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
'
' China XingYun 27-Feb-2006 (Version 1.0.0)
' Modified 2006-Feb-28 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.0.0)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Base code by" & _
"China XingYun"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.0.0 2006-Feb-28"
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 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,運行,確定兩次;
等一到兩分鍾,就會出現以下對話框:這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。如果是別人的文檔,你又想恢復密碼設置,就可以用此密碼進行保護,他就能用他設置的密碼打開,你可以試試,很有趣的。字母一定要大寫):
關於2003版excel表格密碼去除的相關 文章 推薦:
1. 取消excel2003密碼的教程
2. 2003excel表格如何撤銷保護密碼
3. 2003excel表格密碼怎麼解除
㈦ 怎麼解除excel的密碼
先打開Excel文件,輸入密碼後點擊確定,然後依次選擇文件-文檔加密-密碼加密,將打開文件密碼和再次輸入密碼刪除,點擊應用並保存更改就可以解除密碼。
㈧ Excel設的密碼怎樣解除
excel表格在審閱頁面下點擊撤銷工作表保護,輸入密碼就可以了。
1、首先在excel表格中點擊審閱,如下圖所示。
㈨ excel怎麼取消密碼
首先打開一個加密的Excel文檔。進入Excel首頁後點擊左上角的文件。接著在信息界面點擊保護演示稿。然後在彈出的菜單點擊用密碼加密。最後按刪除原來設置的密碼,點擊確定即可取消密碼,如果不想取消密碼也可以更換密碼即可,詳細步驟:
1、首先打開一個加密的Excel文檔。