Esta propriedade retorna um objeto que permite configurar os Tipos de Proteções por script. Os Tipos de Proteções estão disponíveis na aba Proteções do objeto Configuração do Power. Para utilizar o objeto retornado por esta propriedade em tempo de execução é preciso desativar o objeto Configuração do Power antes de modificar suas propriedades, conforme o exemplo a seguir.

Set cp = Application.GetObject("ConfiguracaoPower")
cp.Deactivate
Set p = cp.ProtectionTypes
MsgBox Typename(p) & " " & p.Count
p.AddProtection "Nova"
p.AddProtection "Nova", "NO", , 12
Set pt = p.AddProtection("Nova3", "NO3", "Super Nova 3", 123)
MsgBox Typename(p) & " " & p.Count
p.DeleteProtection "Nova2"
p.DeleteProtection "Nova3"
MsgBox Typename(p) & " " & p.Count
Dim s
s = ""
i = 1
For Each pt In p
  If s <> "" Then s = s & Chr(13)
  s = s & pt.Name & " (" & Typename(pt) & ") "
  s = s & pt.Acronym & " "
  s = s & pt.Caption & " "
  s = s & pt.Order
  If i > 23 Then pt.Name = "Nome"
  pt.Acronym = i & "A"
  pt.Caption = "Descrição " & i
  pt.Order = i
  i = i + 1
Next
MsgBox s
cp.Activate