How to lock/unlock ContentControls in ALL Footers

[gmayor]

You don't need to select controls or story ranges in order to process them. Selecting items in the footer will open the footer, hence the problem you had.
You need to use instead ranges.
You can process the document range instead

With ActiveDocument.Range
        .LanguageID = wdGerman
        .NoProofing = True
End With

Greg's code creates ranges for the headers and footers so you can process those ranges also

Select Case rngStory.StoryType    Case 8, 9, 11
        With rngStory
            .LanguageID = wdGerman
            .NoProofing = True
        End With
        For Each oCC In rngStory.ContentControls
            oCC.LockContentControl = bState
        Next oCC

[Andreas.Vogt]

You don't need to select controls or story ranges in order to process them. Selecting items in the footer will open the footer, hence the problem you had.
You need to use instead ranges.
You can process the document range instead

With ActiveDocument.Range
        .LanguageID = wdGerman
        .NoProofing = True
End With

Greg's code creates ranges for the headers and footers so you can process those ranges also

Select Case rngStory.StoryType    Case 8, 9, 11
        With rngStory
            .LanguageID = wdGerman
            .NoProofing = True
        End With
        For Each oCC In rngStory.ContentControls
            oCC.LockContentControl = bState
        Next oCC

Hello,
thanks for your response. It works almost perfect I guess, BUT:

oCC.LockContentControl = bState

brings an error:
Error while compiling:
Method or Dataobject not found

And how may I group the oCC, I was using:

Selection.Range.ContentControls.Add (wdContentControlGroup)

without "select"?

Thanks a lot for your help!!

best regards,
Andreas