[已解决]如何禁止修改单元格数据

sud_li

各位大神，我根据模板做了个电话号码资料查询系统，其中总机端口和电话号码，在查询窗口不希望被修改，如果被修改，能提示并禁止，只能在数据维护时修改。如何改代码实现？谢谢了

最佳答案

月排行榜 / 总排行榜

zjdh

2022-5-17 20:44

Private Sub UserForm_Initialize()
' .....
    If InStr(rs.Fields(i).Name, "外分线箱2") Then    '对外分线箱2字段设置
        .MultiLine = True    '文本框多行
        .EnterKeyBehavior = True    '文本框接受回车键
    End If
    If InStr(rs.Fields(i).Name, "总机端口") Then .Enabled = False    '不许修改
    If InStr(rs.Fields(i).Name, "电话号码") Then .Enabled = False    '不许修改
  End With
  If i > 0 Then
    .ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter    '从第2列起居中
  Else
'.....
End Sub

跳转到最佳答案楼层

zjdh

Private Sub UserForm_Initialize()
' .....
    If InStr(rs.Fields(i).Name, "外分线箱2") Then    '对外分线箱2字段设置
        .MultiLine = True    '文本框多行
        .EnterKeyBehavior = True    '文本框接受回车键
    End If
    If InStr(rs.Fields(i).Name, "总机端口") Then .Enabled = False    '不许修改
    If InStr(rs.Fields(i).Name, "电话号码") Then .Enabled = False    '不许修改
  End With
  If i > 0 Then
    .ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter    '从第2列起居中
  Else
'.....
End Sub

sud_li

zjdh 发表于 2022-5-17 20:44
Private Sub UserForm_Initialize()
' .....
    If InStr(rs.Fields(i).Name, "外分线箱2") Then    '对 ...

解决了，谢谢你。