如何让输入内容后的单元格自动保护起来？

一位朋友询问有关关闭牢房的问题。

即，该单元格在第一次进入后就禁止被修改。

在网上百度搜索了相关资源。

为了形成今天的教程，

与您的朋友分享。

本例要达到的效果是工作表E列A列的每个单元格都可以第一次输入。但在该区域输入内容后，如果要修改数据，则禁止该操作。

1

首先我们设置工作表的可编辑区域。操作方法如下：

①按快捷键【ALTF11】打开VBA窗口，插入模块；

②在“模块1”输入中插入以下代码：

子自动打开()

ActiveSheetUnprotect123'设置工作表保护密码为123

ActiveSheetProtectionAllowEditRangesAddTitle:'Zona1',Rangu:Columns('F:XFD')

ActiveSheetProtect123

结束子

上述autoopen模块中的代码将在文件打开时自动执行。其主要目的是将当前工作表中XFD中的F列设置为可编辑区域，然后将工作表的密码保护设置为“123”。

2

在VBA窗口中，双击Sheet1工作表并添加与其SelectionChange事件关联的代码。

①打开VBA窗口，双击工作表；

②简介

privateSubWorksheetSelectionChange（ByValTargetAsRange）

错误时恢复下一步

IfTargetText''Then

TargetBlockedTrue

否则

ActiveSheetUnprotect123

万一

结束子

SelectionChange事件中的代码是在选择单元格时触发的，它的主要目的是判断工作表中当前操作单元格的内容：如果当前单元格内容不为空，则当前单元格将被锁定并保护，工作表已解锁。

3

经过以上两步，就达到了自动关闭工作表A到E列单元格的目的。演示如下：

PS：这种方法有一个缺陷，就是选中A到E列，然后按DEL键删除内容，这时候就可以输入新的内容，达到修改数据的目的。

-结尾-