hücre koruması

[alanya65]

bir hücrenin rengini kırmızı yaptığımızda otomatik olarak o hücre kilitlensin

 

[Ömer]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:IV65536]).Interior.ColorIndex = 3 Then
    Selection.Locked = True
    Selection.FormulaHidden = True
End If
End Sub

.

 

[Kemal Demir]

Merhaba,

aşagıdaki kod zannedersem işinizi görecektir.

Sub KırmızıAlanlarıKilitle()
For Each hucre In [b][u]Range("a1:c10")[/b][/u]
[b]'Altı cizi satır yerıne kendı alternatiflerinizi yazarsınız[/b]
[b]'Selection (gibi tüm seçili alanları temsil ettrebilirsiniz[/b]
If hucre.Interior.ColorIndex = 3 Then
Else
ActiveSheet.Unprotect
hucre.Locked = False
ActiveSheet.Protect
End If
Next
End sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [A1:IV65536]).Interior.ColorIndex = 3 Then
   ActiveSheet.Unprotect
   Selection.Locked = True 
   ActiveSheet.Protect
End If
End Sub

 

[Kemal Demir]

Biraz geç kalmısım