[已解决]求助为什么当随便在无颜色单元格输入数据即自动解工作表保护了

qinhuan66

求助为什么当随便在无颜色单元格输入数据即自动解工作表保护了
王五.rar (57.83 KB, 下载次数: 1)

2014-1-20 09:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2014-1-20 10:05

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Sheets("个人缴费卡片")
   
3.     .Unprotect ("695360052")
   
4.    Dim rng
   
5.    For Each rng In Target
   
6.       If Intersect(rng, Range("c14:c25,g14:g25,k14:k25,o14:o25,s14:s25,c31:c42,g31:g42,k31:k42,o31:o42,s31:s42,c48:c59,g48:g59,k48:k59,o48:o59,s48:s59,c65:c76,g65:g76,k65:k76,o65:o76,s65:s76,c82:c93,g82:g93,k82:k93,o82:o93,s82:s93")) Is Nothing Then
   
7.         GoTo 100
   
8.       Else
   
9.          If CStr(rng.Value) = rng.Formula Then rng.Font.Color = vbRed: rng.Font.Bold = True
   
10.       End If
    
11.    Next
    
12. 100：
    
13.    .Protect ("695360052")
    
14. End With
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Sheets("个人缴费卡片")
   
3.     .Unprotect ("695360052")
   
4.    Dim rng
   
5.    For Each rng In Target
   
6.       If Intersect(rng, Range("c14:c25,g14:g25,k14:k25,o14:o25,s14:s25,c31:c42,g31:g42,k31:k42,o31:o42,s31:s42,c48:c59,g48:g59,k48:k59,o48:o59,s48:s59,c65:c76,g65:g76,k65:k76,o65:o76,s65:s76,c82:c93,g82:g93,k82:k93,o82:o93,s82:s93")) Is Nothing Then
   
7.         GoTo 100
   
8.       Else
   
9.          If CStr(rng.Value) = rng.Formula Then rng.Font.Color = vbRed: rng.Font.Bold = True
   
10.       End If
    
11.    Next
    
12. 100：
    
13.    .Protect ("695360052")
    
14. End With
    
15. End Sub
    

复制代码