求非空单元格不能修改,而空单元格可自由编辑.的VBA

t13564865256

少如 发表于 2015-5-29 16:09
要求在1月至12月工作表中，空白的单元格能够输入数据，但是输入任何数值或公式以后就不能修改，除非提供正 ...

前提是你不会对表格做任何的批量操作，比如公式下拉，批量复制数据，序列填充等等等等。
如果你做不到，那VBA也就做不到。或者换个思路，不能选中或许还可以实现，但是也很复杂。

anattaanimitta

这个在论坛里已有答案。请参考：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$iv$1" Then Exit Sub
If [iv1] <> "" And Target.Value <> [iv1] Then
   x = InputBox(Target.Address(0, 0) & " 格原值： “" & [iv1] & "” 现修改为： “" & Target & "”" & Chr(10) & "请输入修改权限的密码：", "修改权限验证：")
   If x <> "" Then
      If x <> 123 Then
         Target.Value = [iv1]
         MsgBox "无权限修改，保留原值！”"
      End If
   Else
      Target.Value = [iv1]
      MsgBox "无权限修改，保留原值！”"
   End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
[iv1] = Target.Value
End Sub