CAD tip # 8766:

Dim drawing As DrawingDocument
Dim sheet As Sheet
Dim pList As PartsList
Dim pListRow As PartsListRow
Dim pListCell As PartsListCell
Dim cellIndex As Integer
 
drawing = ThisApplication.ActiveDocument
 
For Each sheet In drawing.Sheets
    For Each pList In sheet.PartsLists
        For Each pListRow In pList.PartsListRows
            For cellIndex = 1 To pList.PartsListColumns.count
                pListCell = pListRow.Item(cellIndex)
                pListCell.Static = False
            Next
        Next
    Next
Next