在Excel中输入或输入数据后如何锁定或保护单元格？

网友投稿 293 2024-01-05

在Excel中输入或输入数据后如何锁定或保护单元格？

假设您有一个工作表，并且只有一定范围的空白单元格需要输入数据，并且在完成输入数据之后，您需要自动锁定这些单元格以防止再次更改。您如何才能做到这一点？本文可以为您提供帮助。

在数据输入或使用VBA代码输入后锁定或保护单元格

例如，空白单元格的特定范围是A1：F8。在Excel中输入数据后，请执行以下操作以锁定这些单元格。

1.请先解锁此范围，选择单元格并单击鼠标右键，然后选择 单元格格式 在右键菜单中，然后在 单元格格式 对话框，取消选中锁定下框保护标签，最后点击 OK 按钮。看截图：

2。点击 进入步骤三：发送 > 保护工作表。并指定密码以保护此工作表。

3.右键单击工作表标签，选择 查看代码 从右键单击菜单中。然后将下面的VBA代码复制并粘贴到“代码”窗口中。看截图：

VBA代码：数据输入或输入后锁定或保护单元格

Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A1:F8"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A1:F8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A1:F8"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub

Copy

备注：在代码中，“ A1：F8”是您需要输入数据的范围； “ 123”是此受保护工作表的密码。请根据需要更改它们。

4。按其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。

将数据输入到范围A1：F8的单元格后，它们将被自动锁定。如果您尝试更改此范围的任何单元格内容，则会出现一个提示对话框。看截图：

相关文章: 如何在Excel中一次锁定公式中的所有单元格引用？如何根据Excel中另一个单元格中的值锁定或解锁单元格？如何将图片/图像锁定到Excel中的单元格或内部单元格？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。