文档介绍：1 、怎样设置数据重复输入数据—有效性—设置选项卡—允许:自定义—公式: =COUNTIF(C:C,C5)=1 2 、单元格数据只输入一次,就不能在更改,需密码才行注:绿色区域的单元格只能输入一次数据代码如下:在 VBA 中的工作表写下以下代码----- 此方法对整个工作表中指定的区域有效( 本编码密码: 123 ) 方法一: Dim A Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [ a1:b55555,d1:f55555 ]) Is Nothing Then Exit Sub = False IfA <> "" Then b= InputBox(" 改变内容,请输入密码! ") Ifb <> "123" Then MsgBox " 密码错误,数据不能更改!" Target =A End If End If = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If <> 1 Then Exit Sub Else (1, 1).Select A= Target End If End Sub 方法二: Dim a Private Sub Worksheet_Change(ByVal Target As Range) If =1 Then If Intersect(Target, [a1:b55555,d1:f55555]) Is Nothing Then Exit Sub = False Ifa <> "" Then b= InputBox(" 改变内容,请输入密码! ") Ifb <> "123" Then MsgBox " 密码错误,数据不能更改!" Target =a End If End If End If = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) (1, 1).Select a= Target End Sub 方法三 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If =1 Then If Intersect(Target, [a1:c10,e1:e10]) Is Nothing Then Exit Sub If = "" Then Else Dim b Z:b= InputBox(" 请输入密码"," 检查权限") Ifb= "123" Then Exit Sub Else Ifb= "" Then Cells(11, Active