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请勿采集。