單元格被鎖定怎麼取消 excel如何鎖定單元格

1、演示使用的軟體為百Excel電子表格，軟體版本為office家庭和學生版2016。2、首先開啟Excel電子表格，並在表格中輸入用度於演示鎖定部分單元格的資料。3、首先選中所有資料區域，單擊滑鼠右鍵選擇設定，單元格是在單元格格式設定視窗中，選擇保護選項，並取消鎖定和隱藏的勾選，點選確定。問4、此時選中想要進行鎖定不被修改的單元格，再答次開啟設定單元格格式，並勾選鎖定和隱藏的保護選單。5、找到工回具欄中的審閱選單，在審閱選單下找到保護工作表選項，點選後設置保護密碼。6、此時點選我們鎖定的單元格內容進行修改，答可以看到當前單元格已經處於保護狀態了，對Excel單元格百的保護，可以分以下幾個方面進行。 1. “隱藏”並“鎖定”每張工作表含有“公式”的單元格 這樣可以讓錄入人員僅看到各“公式”的運算結果，無法看到“公式”的真正內容，並且對這些單元格也無法進行編輯操作，以保證公式的安全及計算結果的可信度。 首先選中這些單元格，依次度點選“格式→單元格”（或從右鍵選單中選擇“設定單元格格式”命令），開啟一個對話方塊，選中其中的“隱藏”和“鎖定”項即可。 2.“鎖定”除科目成績外的所有單元格 這樣可以讓錄入內人員僅能錄入相關科目的成績，不能“插入”或“刪除”行、列，不能改變其他單元格的內容，也不能設定單元格的格式（保證列印格式的統一）。 Excel在預設情況下，對工作表中的所有單元格都設為“鎖定”狀態。為了在錄入人員錄入後可以進行相關操作，就要解除這些單元格的“鎖定”。具體方法是取消對“鎖定”項的選擇即可。 另外，需要說明的是，要使單元格的“隱藏”和“容鎖定”真正生效，必須依次點選“工具→保護→保護工作表”。開啟一個對話方塊，在其中設定“保護密碼”和其他設定。本回答被提問者採納，1. 全選工作表，單元格格式，保護，取消鎖定2. 選擇你的範圍，勾選鎖定3. 保護工作表，這個首先要選定單元格，然後右鍵單擊單元格的設定進去之後就有鎖定的部分www.51dongshi.com防採集。

我們有時在編輯Excel表格的時候，想對錶格中的某些單元格保護起來，不讓別人隨意修改，但是怎麼取消呢？下面我來教大家吧！

材料/工具

Excel

方法1鎖定單元格

篇一：excel怎樣保護鎖定工作表和工作薄　　excel怎樣保護鎖定工作表和工作薄　　對於一些計

開啟Excel表格，Ctrl+A全選表格

Excel被鎖定無法編輯，是因為開啟了“工作表保護”，想要取消“保護”，在選單欄的“審閱”中“取消工

右鍵選擇單元格格式

按照如下步驟即可在excel中鎖定單元格公式不被修改：1、首先開啟excel表格，在單元格中插入一

在保護欄目下，勾選鎖定，確定

1、首先在電腦桌面，開啟自己需要鎖定表頭的excel表格。2、開啟excel表格之後，需要鎖定的

然後在表格中，選中想要加鎖的單元格

1、首先開啟被保護的excel表格，在表格中輸入內容時，頁面會彈出下圖顯示的提示框，點選確定。2

點選選單欄上的審閱，選擇保護工作列表

1、演示使用的軟體為Excel電子表格，軟體版本為office家庭和學生版2016。2、首先開啟

輸入想要取消保護的密碼，確定

Excel鎖定一個單元格不能滾動的具體解決方法如下：我們需要準備的材料分別是：電腦、Excel表格

再次輸入一致的密碼，點選確定

Excel中鎖定單元格要如何解鎖呢？大家一定也遇到過這樣的問題，今天就來教大家如何解鎖被鎖定的單元格

單元格保護就完成了，現在我們雙擊該單元格，將會彈出一下的警示視窗

1、首先在電腦桌面，開啟自己需要鎖定表頭的excel表格。2、開啟excel表格之後，需要鎖定的

方法2鎖定怎麼取消

1、開啟Excel表格，Ctrl+A全選表格2、單擊滑鼠右鍵，選擇單元格格式3、切換到保護欄

點選選單欄上的審閱欄目，選擇撤銷保護工作表

篇一：excel怎樣保護鎖定工作表和工作薄　　excel怎樣保護鎖定工作表和工作薄　　對於一些計

輸入撤銷密碼，點選確定就可以了

Excel被鎖定無法編輯，是因為開啟了“工作表保護”，想要取消“保護”，在選單欄的“審閱”中“取消工

完成

Excel鎖定一個單元格不能滾動的具體解決方法如下：我們需要準備的材料zd分別是：電腦、Excel表格。1、首先我們開啟需要編輯的Excel表格。2、然後版我們在彈出來的視窗中點權擊開啟檢視中的“凍結窗格”下面的小倒三角形。3、然後我們在彈出來的視窗中點選“取消凍結窗格”即可，1、如圖以最常見的成績單為例，資料較多，希望往下檢視資料時，第知一行表頭和第一列姓名保持不變。2、  單擊需要固定的位置下放第道一個有資料的單元格。仔細觀察圖中所選的是B2，然後點資料選單中的凍結視窗。3、 會看到螢幕上多出了兩條細實線。箭頭所指。這就是鎖定的標誌。4、試試檢視下發的別的數內據會看到。第一行第一列會除於鎖定狀態顯示。注意事項：需要取消容鎖定的話，還是點資料選單中。如圖，點選取消凍結視窗。本回答被網友採納，這個應該是被凍結了，你可以在檢視-凍結窗格-取消凍結拆分窗格 這樣就應該就可以了，方法一：1.首先，利用Excel快捷鍵"Ctrl + A"全選所以的單元格，然後，右鍵選擇“設定單元格格式”。2.在彈出的“單元格格式”中選擇“保護”，取消“鎖定”前面的鉤去掉。方法二：1.開啟檔案。2.工具---巨集----錄製新巨集---輸入名字，如“aa”。3.停止錄製(這樣得到一個空巨集)。4.工具---巨集----巨集,選“aa”,點編輯按鈕。5.刪除視窗中的所有字元,替換為下面的內容:Option ExplicitPublic 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub6.關閉編輯視窗。7.工具---巨集-----巨集,選AllInternalPasswords,執行,確定兩次,等2分鐘,再確定即可完e799bee5baa6e58685e5aeb931333431376635成操作，方法一：1.首先，利用Excel快捷鍵"Ctrl + A"全選所以的單元格，e799bee5baa6e79fa5e98193e78988e69d8331333337613764然後，右鍵選擇“設定單元格格式”。2.在彈出的“單元格格式”中選擇“保護”，取消“鎖定”前面的鉤去掉。方法二：1.開啟檔案。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 ' ' 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 Sub6.關閉編輯視窗。7.工具---巨集-----巨集,選AllInternalPasswords,執行,確定兩次,等2分鐘,再確定即可完成操作。本回答被網友採納，工具：百Office2013方法如下：選擇要解除鎖定的單元格，點選右鍵，選擇“設定單元格格度式”：在保護選項卡中，知找到並取消勾選“鎖定”：確定之後道，選擇的單元格就被解決了鎖定，像保護工作表之類的版就不會再權作用於這些解除鎖定的單元格上。本回答被網友採納，1、首先開啟Excel表格，此時單元格百被鎖定，如果需要修改單元格里面的內容，會彈出如下窗度口，無法修改。2、然後問在工具欄裡面點選審閱這個選項。3、接著找到撤銷工答作表保護這個選項，並點選此選項。4、點選了之後，輸版入撤銷工作表保護的密碼權，點選確定即可， 這樣就可以解鎖了。本回答被網友採納內容來自www.51dongshi.com請勿採集。