How to make multiple excel columns as non-editable in multiple Tabs using VBA

Greetings Excel Forum Team!

Problem Statement: How to make multiple excel columns as non-editable in multiple Tabs using VBA

In the attached spreadsheet (Test-ColumCellNonEditable.xlsm - SEP-Test Tab)
I have column L with specific defined Range(L7 - L22) is made non editable when user clicks on Column L between L7 & L22.

--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("L7:L22")) Is Nothing Then
Target.Offset(, 1).Select
MsgBox "Executed is Non-Editable"
End If

End Sub
--------------------------------

User Scenario1: Is it possible to make multiple columns with identified ranges such as below as non editable.

Column O Range(O7 - O22),
Column P Range(P7 - P22).


User Scenario2:If I have multiple Tabs like 'SEP-Test', 'AUG-Test' but each Tab need same columns (L,O,P)need to be non editable but range for each Tab varies
Is it possible to have single dynamic function that can handle above need, please let me know.

Appreciate any help with resolution(vba function/proc) for above User Scenario's.
Thank you.

Please Login or Register  to view this content.

This is the initial code I have but this needs to be tweaked or need new proc to make multiple columns with specific range as non-editable.

The formula's given in Column O & Column P are accurate as they will get calculated based on formula given.
I need to lock these cells so no one can change the number driven by formula.

Basically I would like to lock Column L Range(L7 - L22), Column O Range(O7 - O22), Column P Range(P7 - P22).
Rest of the column range for Column L, Column O, Column P should be editable.

The above code I have works only for Column L Range(L7 - L22), is it possible to make multiple columns with specific range as no editable?

The formula's given in Column O & Column P are accurate as they will get calculated based on formula given.
I need to lock these cells so no one can change the number driven by formula.

Basically I would like to lock Column L Range(L7 - L22), Column O Range(O7 - O22), Column P Range(P7 - P22).
Rest of the column range for Column L, Column O, Column P should be editable.

The above code I have works only for Column L Range(L7 - L22), is it possible to make multiple columns with specific range as no editable?

I think lock terminology is creating some confusion here.

The ask seems is very simple, as a user u should not edit columns L, O, P with each range (7 - 22).
for example, what this means is when u click on or move on to cell L7 it should display the message 'Executed Is Non-Editable'
similarly
if user click on O7 it should display the message '%Executed Is Non-Editable',
if user click on P7 it should display the message '%Passed Is Non-Editable'.

With my code I could manage for column L (between L7 - L22) to display message 'Executed Is Non-Editable'
What is missing is similar pattern with different message for column O and P in similar range.
It would be good If we can define the range and call in procedure but not sure it is possible or not.

Thanks skywriter!

Above code works for multiple columns, but what you referred below is correct
"If you select cells A1 to L7 watch what happens" or if you do ctri+A- This is leading to infinite loop with message box repeated.

Is it possible to avoid this infinite loop, please let me know.

I hope there will be a solution for this issue.