<< Clique para Mostrar o Sumário >>
ProtectionTypes |
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 as respectivas 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
NOTA |
Consulte o tópico Tipos de Proteções para mais informações sobre as propriedades do objeto retornado por esta propriedade. |