這一篇學習筆記我在新浪發表過，那邊還在稽核。在這裡也記錄一下。
前兩天QQ群裡面有人詢問能不能快速的給WINCC畫面上的控制元件設定操作許可權，這個是比較容易的。比如有個畫面有10個IO域，在VBA編輯器寫下面的指令碼：
Sub IOField_PropertyTrigger1()
Dim objects
Dim obj
Dim objdynamic
Dim i
Set objects = ActiveDocument.HMIObjects.Find(ObjectName:="輸入/輸出域*", objecttype:="HMIIOField")
'設定連線的變數
For i = 1 To objects.Count
Set objdynamic = objects.Item(i).OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "Real" & CStr(i))
Next
'設定許可權
For i = 1 To objects.Count
objects.Item(i).PasswordLevel = 2
Next
End Sub
儲存執行，就可以給每個IO域設定連線變數，還可以設定其許可權都是“數值輸入”。各種許可權對應數值如下：
