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
關閉編輯視窗
工具---巨集-----巨集執行----確定兩次----等會兒（時間可能有點點長，要等會兒）----再確定
哈哈沒有密碼了
