Vba to lock cells with formula in a table

[Marcia]

Hi all.
I have copied a code that lock cells with formula in a workbook. I would like the code to lock the cells with formula in table "tAbstract" only, not the whole workbook. Would someone please edit the code?
Also, I would like the message "Ooooops formula na" pops up when/if the user accidentally goes to a protected cell.
Thank you for the usual help.

Sub ProtectFormulaCells()
Dim sh As Worksheet
On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
    With sh
        .Unprotect
        .Cells.Locked = False
        .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
        .Protect
    End With
Next sh
End Sub

[p45cal]

Originally Posted by Marcia

to lock the cells with formula in table "tAbstract" only, not the whole workbook.

Could you just confirm, tAbstract is (the name of) a proper Excel table (listObject) on a worksheet, and not a worksheet name?

[Marcia]

Originally Posted by p45cal

Could you just confirm, tAbstract is (the name of) a proper Excel table (listObject) on a worksheet, and not a worksheet name?

tAbstract is a proper Excel table (listObject).
Thank you.

[p45cal]

This will work regardless of which sheet you're on as long as the workbook you want it to work in is the active workbook:

Sub ProtectFormulaCellsInTable_tAbstract()
With Range("tAbstract")
  .Parent.Unprotect
  .SpecialCells(xlCellTypeFormulas).Locked = True
  .Parent.Protect
End With
End Sub

Changing the message when someone tries to change a locked cell on a protected sheet is not possible (afaik) but something else can be done, see:
custom error message in popup window for protected cell? | MrExcel Message Board


…but is it worth it?

[Marcia]

Thank you for the usual quick help and the link. I am using the code that you wrote as is.