excel如何設定修改密碼
1、電腦開啟Excel表格，然後點擊檔案。 2、點擊檔案後，點擊左側的資訊進入資訊頁面。 3、在資訊頁面，點擊保護工作簿。 4、點擊保護工作簿後，會有加密選項，根據情況選擇。 5、選擇加密文檔後，設定一個密碼，然後點擊確定就可以了。
excel通常用來儲存數據，有時爲了保護隱私或者安全起見需要設定密碼，接下來就介紹如何設定和修改密碼
材料/工具
excel
方法
首先開啟excel，點擊圖中所示紅框部分
方法/步驟 開啟你要加密的Excel檔案，這裏我以會議章程.xlsx爲例， 點擊左上角工具欄中“檔案”，再點擊下方的“資訊”一欄， 點擊“保護工作北圖標，這時會彈出一個選單列表，其中包括“用密碼進行加密”， 點擊選單“用密碼進行加密”，這時會彈出密碼
選擇“文檔加密”
1、先在桌面上找到EXCEL表格，並將這份表格點擊開啟。 2、開啟了表格之後，在表格的工具欄上面找到審閱並點擊它。 3、進入審閱的選單欄裏面之後，在下面找到保護工作表這個選項，點擊。 4、點擊了之後，在裏面輸入密碼，點擊確定。 5、設定之後
通常會選用密碼加密
Excel 2007版本，密碼的設定、修改和撤銷方法如下： 1.點擊“另存爲”按鈕； 2.在“儲存”按鈕的左邊有個“工具”按鈕； 3.點擊“工具”按鈕，選擇“常規選項”； 4.進行密碼的設定、修改撤銷。 希望對你有所幫助哦！
點擊進去後填好圖中資訊，最後再點擊“應用”即可
1、雙擊桌面的Excel2007捷徑開啟它。 2、開啟之後，輸入要填寫的資訊內容，然後點擊左上角的那個“圓形”圖標，在出現的選單中將鼠標放在‘準備’上面，然後在出現的子選單中點擊“加密文檔”選項。 3、點擊之後，在輸入框中輸入密碼，然後點擊 確
如果需要修改密碼或者取消加密，只需要重複步驟1、2、3，在第四步中修改密碼，或者直接刪掉所有密碼，然後點擊“應用”即可
第一步：輸入密碼後開啟檔案； 第二步：另存檔案，點擊工具-常規選項，如圖： 第三步：去除所有密碼。（注：無法截圖，原因不明）
擴展閱讀，以下內容您可能還感興趣。
怎樣設定密碼保護EXCEL表格
二。兩種方法(任選一)：
1.工具---選項---安全性---開啟權限密碼（設定後無密碼打不開檔案）/修改權限密碼（設定後無密碼能開啟檔案但不能修改檔案）
2.檔案---另存爲--工具--常規選項--開啟權限密碼（設定後無密碼打不開檔案）/修改權限密碼（設定後無密碼能開啟檔案但不能修改檔案）
允許指定用戶訪問受保護的區域
必須安裝了 Windows 2000 或更高版本並且計算機位於域中，才能授予特定用戶訪問區域的權限。
在“工具”選單上，指向“保護”，然後單擊“允許用戶編輯區域”（該命令僅在工作表未受保護時纔可用）。
單擊“新建”。
在“標題”框中，鍵入要授權訪問區域的標題。
在“引用單元格”框中，鍵入等號 (=)，然後鍵入引用或選定的區域。
在“區域密碼”框中，鍵入密碼以訪問區域。
該密碼是可選的。如果您沒有使用密碼，則任何用戶都可編輯單元格。
單擊“權限”，然後單擊“添加”。
查找和選擇要被授予權限的用戶。如果想選擇多個用戶，請按住 Ctrl 並單擊其名稱。
單擊“確定”兩次，並按照提示再次鍵入密碼。
對授予了訪問權限的每個區域，請重複上述步驟。
如果要保留區域和用戶的單個記錄，請選中“允許用戶編輯區域”對話框中的“將權限資訊粘貼到一個新的工作簿中”複選框。
保護工作表：單擊“允許用戶編輯區域”對話框中的“保護工作表”。
在“保護工作表”對話框中，請確認選中了“保護工作表及鎖定的單元格內容”複選框，併爲工作表鍵入密碼，接着單擊“確定”，然後重新鍵入密碼加以確認。
註釋 工作表密碼可以禁止其他用戶編輯您指定的區域。請確保記住了所選的密碼，因爲如果丟失了密碼，您就不能訪問工作表上受保護的元素。
答案補充
保護所有用戶的工作表元素
請切換到需要實施保護的工作表。
取消任何您希望用戶可對其進行更改的單元格的鎖定：選擇每一個單元格或區域，單擊“格式”選單上的“單元格”，再單擊“保護”選項卡，然後清除“鎖定”複選框。
隱藏任何不希望顯示的公式：選擇具有公式的單元格，單擊“格式”選單上的“單元格”，再單擊“保護”選項卡，然後選中“隱藏”複選框。
取消用戶要更改的圖形對象的鎖定。
操作方法
不必取消用戶可單擊和使用的按鈕或控件的鎖定。可以取消用戶可修改的嵌入圖表、文字方塊及由繪圖工具所創建的其他對象的鎖定。如果要檢視工作表中的哪些元素是圖形對象，請單擊“編輯”選單中的“定位”，再單擊其中的“定位條件”，然後單擊“對象”。
按住 Ctrl 並單擊每個要取消鎖定的對象。
在“格式”選單上，單擊所選對象對應的命令：“自選圖形”、“對象”、“文字方塊”、“圖片”、“控件”或“藝術字”。
單擊“保護”選項卡。
清除“鎖定”複選框，如果顯示，請清除“鎖定文字”複選框。
在“工具”選單上，指向“保護”，再單擊“保護工作表”。
爲工作表鍵入密碼。
如何給excel設定密碼
最低0.27元/天開通百度文庫會員，可在文庫檢視完整內容>
原發布者:dsdkj123
教你如何給Excel加密教你如何給Excel加密，相信大家對Excel不會陌生了吧！很多人都喜歡用Excel來存數據，比如工資表，財務報表等，而這些數據又不能隨意公開，那麼給Excel加密就至關重要了，下面爲大家介紹2種給Excel加密的方法。第一種：windos自帶的加密方法，適合給單個Excel加密，不利於給多個Excel加密。1.首先開啟你需要加密的Excel檔案，然後單擊選單欄的檔案，選擇另存爲，接着點擊常規選項。2.點擊常規選項後會彈出一個視窗，你就可以輸入密碼了。3.設定密碼後點擊確定，然後點擊儲存，就可以了，下次開啟這個檔案，就需要輸入密碼。第二種方法：就是藉助加密軟件了，適合給多個Excel加密1.首先上網下載一個加密軟件，比如迅影加密王，這是一款專業的文檔加密軟件。用迅影加密王給自己的硬盤創建一個保險櫃。如圖：2.創建成功後，然後就可以登入自己創建的保險櫃了。生成的保險櫃會映射出一個z盤，如圖：3.開啟保險櫃，然後把需要加密的Excel檔案全部放入z盤，然後退出保險櫃，就輕鬆的給這些Excel加密了。透過以上2種方法的介紹相信大家對如何給Excel加密有了基本的瞭解了，如果有對第二種方法不熟悉的可以看使用教程使用教程：http://jmw.prayaya.com/a/newfile10.html分享一個破解序列號：excel檔案設定密碼怎麼設定
第一種方法：
1、先開啟“受密碼保護檔案.xlsx”檔案，點擊左上方的“office按鈕”；
2、然後選擇“另存爲”-“Excel工作薄”；
3、點擊左下方“工具”-“常規選項”；
4、完成以後步驟後，就可以看到彈出密碼框，輸入密碼，有開啟權限密碼和修改權限密碼，具體根據自己的需要來定。設定完成後，點擊“確定”然後再輸一次密碼即可。
5、密碼已經設定好了，開啟另存爲的檔案，就會有輸入密碼的提示。
第二種方法：
開啟檔案，點擊左上方的“office按鈕”-“準備”-“加密文檔”
在彈出的密碼框中輸入密碼，點擊確定，再次輸入密碼即可。
設定完成後，儲存檔案，然後再次開啟的時候就會有輸入密碼的提示。
注意事項
密碼是分大小寫的， 輸入密碼時候注意是否開啓了大寫鍵盤；
如果需要刪掉密碼，還是重複設定密碼的步驟，去掉密碼即可。本回答被提問者採納
Excel密碼設定人密碼如何去掉或者更改
第一步：輸入密碼後開啟檔案；
第二步：另存檔案，點擊工具-常規選項，如圖：
第三步：去除所有密碼。（注：無法截圖，原因不明）
如何更改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 '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
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
關閉編輯視窗
工具---宏-----宏執行----確定兩次----等會兒（時間可能有點點長，要等會兒）----再確定
哈哈沒有密碼了
