Question

Excel 中，如何保护Excel工作表中的特定单元格？

Answer 1

这个问题解决起来很简单，只要把工作表中的特定单元格保护起来就行了。下面分别介绍两种保护Excel 工作表中的特定单元格的方法。
一、利用菜单命令
1．首先，选择允许其他用户录入和修改的单元格区域。
2．执行菜单栏中的“格式”→“单元格”命令，打开“单元格格式”对话框。
3．打开“保护”选项卡。默认情况下，工作表中的所有单元格都是被“锁定”的。清除“锁定”复选框前面的“√”。这样，所选的单元格区域不再处于锁定状态，而其他单元格依然保持锁定状态。
4．执行菜单栏中的“工具”→“保护”→“保护工作表”命令，打开 “保护工作表”对话框。此时可以设置保护密码，并可以进一步指定允许用户进行其他操作。只有设置了保护工作表，才会让单元格的“锁定”设置生效。
设置完毕，如果想在锁定的单元格录入数据，就会显示警告信息，只有未锁定的单元格才允许录入数据。
二、利用VBA
假如需要在“Sheet1”工作表中对A1 单元格的格式进行保护，限制其他用户更改A1 单元格中的数据，可以执行如下的操作步骤：
1．选中A1 单元格，取消A1 单元格的锁定状态。
2．执行菜单栏中的“工具”→“宏”→“Visual Basic 编辑器”命令，进入“Visual Basic 编辑器”窗口。
3．在“Sheet1”对象的代码窗口中输入如下代码：
Dim TempRange As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
If Target <> TempRange Then
x = InputBox(\" 请输入修改权限密码\", \" 单元格受保护\")
If x <> \"Fenny\" Then
MsgBox (\" 您输入的密码错误，资料无法更新！ \")
Target = TempRangeElseMsgBox (\" 资料更新成功！ \")End IfEnd IfEnd IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
TempRange = TargetEnd Sub4．保存并退出“Visual Basic 编辑器”窗口。此时如果要改变A1 单元格中的数值，那么将会弹出对话框，要求用户输入修改权限的密码。
5．当输入正确的密码“Fenny”后，将弹出一个提示框，告诉你数据更新成功，并同时更改A1单元格中的数值；如果输入的密码错误，那么也将弹出一个提示框，告诉你数据无法进行更新。