excel高手进:单元格不为空时,使光标无法选中该单元格如何设置

发布网友发布时间：2022-04-25 22:15

共5个回答

热心网友时间：2022-06-18 01:34

这个挺简单的，首先按ctrl+A选中所有单元格，然后按ctrl+1设定单元格格式，在选中“保护”选项卡后取消“锁定”选项前的对勾，然后你再把你不想人修改的单元格都选中，方法是按住ctrl键后单击（或者拖动）选中相应单元格。选中之后再按ctrl+1设定单元格格式，在选中“保护”选项卡后加上“锁定”选项前的对勾。做完这个，你就可以选中“工具”菜单项下的“保护”下的“保护工作表”，设定一个密码，其它的选项就按默认的来。最后保存一下你的文件，就这样搞定。

热心网友时间：2022-06-18 01:34

需要在几个事件中协同工作：

插入模块，定义全局变量：

Public rCurr As Range

这个变量用于记录当前选中的单元格，用于当操作者试图选中有数据的单元格时，拒绝选中并将当前单元格返回

WorkBook事件：

Private Sub Workbook_Open()
With ActiveSheet
Set rCurr = Selection
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set rCurr = Selection
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If WorksheetFunction.CountA(Target) > 0 Then
Range(rCurr.Address).Select
Else
Set rCurr = Target
End If
End Sub

本代码拒绝选中含有数据的区域或单元格，并在操作者尝试选中它们时，返回到原来的选中区域或单元格。。附件可下载参考

热心网友时间：2022-06-18 01:35

可以用下面的方法试试，

如果单元格已经有数据，数据删除或更改后会自动改回来

如果单元格是空的，写数据后就不会改过来。

变相的实现。

Public tV As Variant

Private Sub Worksheet_Change(ByVal Target As Range)

If tV <> "" Then

Target.Value = tV

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'将tV = Target.Value更改为下面的，可以避免单元格中有公式时变成数值

tV = Target.Formula

End Sub

热心网友时间：2022-06-18 01:35

定位“常量”选定非空的单元格，对其使用数据有效性保护。

热心网友时间：2022-06-18 01:36

可以用VBA的事件代码操作。