Excel 中,如何保护Excel工作表中的特定单元格?
答案:1 悬赏:80 手机版
解决时间 2021-03-21 11:25
- 提问者网友:我一贱你就笑
- 2021-03-20 11:44
Excel 中,如何保护Excel工作表中的特定单元格?
最佳答案
- 五星知识达人网友:孤老序
- 2021-03-20 11:55
这个问题解决起来很简单,只要把工作表中的特定单元格保护起来就行了。下面分别介绍两种保护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单元格中的数值;如果输入的密码错误,那么也将弹出一个提示框,告诉你数据无法进行更新。
一、利用菜单命令
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单元格中的数值;如果输入的密码错误,那么也将弹出一个提示框,告诉你数据无法进行更新。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯