如何让Excel的单元格只能输入一次呢?

如何让Excel的单元格只能输入一次呢?,第1张

用vba可以实现
依次打开:工具-宏-visual bisic编辑器,打开vba编辑器,在左侧工程中双击你要保护的工作表,然后将下列代码粘贴到编辑窗口中:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <> "" Then
If InputBox("请输入修改密码:", "密码") = "abc" Then
End
Else
MsgBox "密码错误"
ActiveWorkbookClose savechanges:=False
End If
End If
End Sub
以后只要单元格中已经存在数据,你选择了该单元格就会要求输入密码,如果输入密码错误就会退出该工作簿,并且不进行保存。所以你要随时保存文件^-^
将上面的abc改成你自己的密码就可以了。
不过这个密码没有进行加密(别人很容易看到你输入的密码),如果你会vba你可以自己新建一个窗口,用文本框输入,将文本框的“passwordchar”属性设置成“”号,就更好了,然后用if判断改文本框的text属性就可以了。
把上面的代码改成:
Public a, b, c, d
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCellValue
b = ActiveCellRow
c = ActiveCellColumn
d = 1
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
If d = 1 Then
d = d + 1
If a <> "" Then
If InputBox("请输入修改密码:", "密码") = "a" Then
End
Else
MsgBox "密码错误"
Cells(b, c)Value = a
End If
End If
End If
End Sub

1
将Sheet1表中的B2、C2分别定义一个工作簿级别的名称。分别选中B2、C2,右键-命名单元格区域,名称-自定义,范围-工作簿。(分别将B2、C2命名为xavier1、xavier2)
2
同前述工作表必填项设置,选中红色区域,依次点击:数据-数据有效性-设置-自定义-公式;输入公式:=AND(xavier1<>"",xavier2<>"");并将忽略空值的勾去掉。
3
依次点击:出错警告-样式停止-错误信息;在错误信息一栏输入:请先输入Sheet1表中B2和C2!
4
设置结果:Sheet1表中B2和C2未全部输入内容时,在Sheet2表中红色区域任何单元格输入内容,d出提示窗口!

数据有效性设置。
选中这一列,点菜单栏里数据,有效性,允许下边选择序列,下边的一栏中依次输入你允许输入的数字,第个数字间用英文的逗号隔开确定。
设置完成后,这一列的每一个单元格被选定后会出现个小三角选项开关,点点击后可以选择输入你预先设定数字,其他的无效。

1、打开需要设置内容只能输入不能修改的表格

2、用鼠标选中整个表格,右击d出“设置单元格格式”

3、点击设置单元格格式,找到“保护”,把保护前面的“√”去掉,点击确定

4、打开“审阅”,找到“保护工作表”

5、点击“保护工作表”,在光标闪烁的地方输入密码

选中你想的单元格 数据-有效性-序列-输入男,女(注意逗号必需在英语输入时的逗号! 再点出错提示,选 停止-输入标题,比如,出错了,输入内容,比如出错了,不可以输入内容。就Ok 了!如果输入的不是男或女,出错提示就会d出来


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12652628.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-27
下一篇 2023-05-27

发表评论

登录后才能评论

评论列表(0条)

保存