Protected Property Example

This example displays the protection status for the CTRL+S key binding.

CustomizationContext = ActiveDocument.AttachedTemplate
MsgBox FindKey(BuildKeyCode(wdKeyControl, wdKeyS)).Protected

This example displays a message if the A key binding is protected.

CustomizationContext = NormalTemplate
If FindKey(BuildKeyCode(wdKeyA)).Protected = True Then
    MsgBox "The A key is protected"
End If