title: excel vba: set a table cell to read only
body: <p>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:</p>
  
  <pre><code>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
  </code></pre>
  
  <p>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.</p>
  
  <p>Rich</p>