1. excel表格怎樣修改密碼
Excel表格怎麼設置密碼?Excel電子表格軟體歷經22年的發展，從一款小軟體成為人們日常工作中必不可少的數據管理、處理軟體。下面就教大家Excel表格設置密碼的方法，大家可以來學習一下。
excel密碼系列軟體最新版本下載
2. excel文檔怎麼改密碼
1、打開Excel2010，單擊進入「文件」
3. 如何更改excel文件的密碼
設置的什麼密碼？如果是工作表保護密碼的話試試這個：
打開文件-----工具---宏----錄制新宏------輸入名字如:123-----停止錄制(這樣得到一個空宏)工具---宏----宏------選123,----點編輯按鈕---刪除窗口中的所有字元替換為下面的內容（呵呵，代碼不是我寫的，感謝寫這段代碼的人，非常好用）為免輸錯，你可以直接復制：
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
關閉編輯窗口
工具---宏-----宏運行----確定兩次----等會兒（時間可能有點點長，要等會兒）----再確定
哈哈沒有密碼了
4. Excel文件忘記密碼怎麼辦
1.開啟excel文件點擊撤銷工作簿保護時忘記密碼的情況,
2.這時就可以右鍵文件,開啟右鍵菜單列表,
3.點擊重命名把文件後綴改成rar,
4.改成完rar使用壓縮應用打開這個rar文件,
5.然後打開xl目錄下的worksheets文件夾,
5. 如何給excel文檔設置打開許可權密碼
方法/步驟
打開Excel文檔或新建Excel文檔。見下圖
【1】打開Excel文檔或新建Excel文檔。
【2】文檔編輯好後，點擊菜單欄上「文件」。
【3】接著，在打開的下拉菜單中，點擊「另存為」命令。
【4】在打開的「另存為」窗口上，點擊下方「工具」。
【5】接著，在下拉列表中點擊「常規選項」。
【6】接下來，在打開的「常規選項」窗口上「打開許可權密碼」右邊的文本框中輸入打開密碼。
【7】打開許可權密碼輸入後，點擊「確定」按鈕。
【8】接著，在「確認密碼」窗口上，再次輸入剛才輸入的打開許可權密碼（註：兩次輸入密碼務必一致）。
【9】再次輸入打開許可權密碼後，點擊「確定」按鈕。
【10】返回「另存為」窗口後，點擊「保存」按鈕即可，下次打開該文檔時將會提示輸入密碼。
總結：
6. Excel表怎麼更換密碼
對excel2010表格設置密碼可以通過「保護工作簿」命令設置表格密碼。
1.打開excel，然後點擊「文件」選項。
2.點擊「信息」選項，然後點擊「保護工作簿」再點擊「用密碼進行加密」。
3.輸入密碼再點擊確定，然後再重復輸入一次密碼點擊確定即可（切記：密碼一旦忘記後文件將無法恢復，妥善保存密碼）。
4.將excel電子表格保存好之後下一次打開此電子表格就需要輸入密碼才能打開表格了。
7. 請問該如何設置打開Excel文件時的密碼
步驟1.點擊左上角，文件
8. 如何修改excel文件密碼
您好，方法
1、我們點擊加密的excel文檔，輸入密碼。
2、點擊左上【文件】進入。
3、點擊【信息】。
4、提示工作簿已經加密，我們點擊打開。
5、選擇【用密碼進行加密】
6、輸入修改後的密碼，點擊【確定】。
7、我們保存完就可以重新用新密碼登錄了。
9. excel怎麼設置文件打開密碼