excel vba：将表格单元格设置为只读

Question

Is it possible to set a specific cell in a table to 'Read-Only'? Or, set a column in the table to 'Read-Only'? This is the idea of what I am trying to do:

Sub TableInsertRow()
    Dim oLo As ListObject
    Dim oNewRow As ListRow

    Set oLo = ActiveSheet.ListObjects("Table1")

    oLo.TableStyle = "tablestylelight3"
   'insert below

    Set oNewRow = oLo.ListRows.Add(AlwaysInsert:=True)

    oNewRow.Range.Cells(1, 1).Value = "Value For New cell"
    oNewRow.Range.Cells(1, 5).ReadOnly = True
    oNewRow.Range.Cells(1, 6).ReadOnly = True
    oNewRow.Range.Cells(1, 7).ReadOnly = True

End Sub

The last 3 lines are clearly not proper syntax, rather the idea I am trying to accomplish. Or, if the table's columns can be set to read only, that will work as well.

Rich

Answer 1

You can use this basic script to make some cells range ReadOnly :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A2:B4")) Is Nothing Then 'We make A2:B4 range readonly
Range("A1").Select 'when user selects some cell from the range above
MsgBox ("These cells are Readonly,So you can not Change") 'He will receive this massage
End If
End Sub

Just open VB editor ( ALT + F11 ) choose sheet you want to make a read only cells on - double-click, paste this code.

Taken long time ago from here