Conditional format and lock cells with VBA

Change the colour and lock cells of a certain value. How to determine the interior colour of a cell. Lock cells over a certain colour. Colour cells over a certain value. Conditional format and lock cells with VBA
Code
Sub showcolour()
cellcolour = Selection.Interior.colorIndex
MsgBox cellcolour
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Double
Dim rng As Range
Dim colorIndex As Integer

colorIndex = 3
x = 2

With Sheets("sheet1")
.Unprotect "test"
.Cells.Locked = False
End With

For x = 2 To 200

Dim color As Long

If Cells(x, 1).Value is greater than 5 Then
Cells(x, 1).Select
Selection.Locked = True
Selection.Interior.colorIndex = 3
End If
Next x
Sheets("Sheet1").Protect "test"
End Sub



For more help visit my website http://www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Excel one-on-one on-line training available. Email me to arrange.

I am able to provide online help on your computer at a reasonable rate.

Check out my next one-hour Excel Webinar
https://www.crowdcast.io/easyexcelanswers

I use a Blue condensor Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83

If you need to buy Office 2019 follow
https://amzn.to/2VX5dv8

I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelanswers

Follow me on Facebook
https://www.facebook.com/easyexcel.answers


Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_panel?c=UCFH2kZykqt-VX5W9waJzYvQ&tab=2

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.