单元格区域如何实现已有数据只能改而不能删

lengfeng910

请教各位老师,我在一个工作表中实现了单元格内如果有数据则只能改而不能删,但单元格区域内有数据时,删除时就会程序出错,提示类型不匹配.请不吝赐教!

hrpotter

1. Option Explicit
   
2. 
   
3. Dim temp
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5. 
   
6. If Target.Value = "" And temp <> "" Then Target.Value = temp
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10. 
    
11. temp = Target.Value
    
12. 
    
13. End Sub

复制代码

lengfeng910

谢谢hrpotter的解答.我所说的单元格区域是指合并后的单元格,当删除合并后的单元格内的数据时程序就出错了!

无聊的疯子

lengfeng910 发表于 2012-5-21 19:06
谢谢hrpotter的解答.我所说的单元格区域是指合并后的单元格,当删除合并后的单元格内的数据时程序就出错了!

保护工作表，
除了 《插入行》，《插入列》，《删除行》，《删除列》 这四项外，都勾上！就可以了

lengfeng910

已解决,谢谢大家的关心.

无聊的疯子

lengfeng910 发表于 2012-5-21 20:50
已解决,谢谢大家的关心.

怎么解决的呢？？你传的附件在删除时一样会提示错误哦？？

lengfeng910

在已解决中有附件，可查看。在改变了当前单元格后，已输入的内容就不可删除了。当然，你如果选择单元格区域，仍可删除它。那么你可以禁止选择多行多列来加以限制。