التحكم فى مستوي أمان الماكرو بالكود

[محمد طاهر عرفه]

يمكن التغيير عند فتح الملف بالكود التالي

Private Sub document_Open()

SendKeys "{f10}"

SendKeys "tms"

SendKeys "{tab}"

SendKeys "l"

SendKeys "{ENTER}"

End Sub

و هو لتغيير الحماية الي المستوي المتوسط ثم التحكم فى الخيارات عند الاغلاق ، بالكود التالي

Private Sub Document_Close()

Dim z As String

X = MsgBox("DO YOU WANT TO MODIFY SECURITY LEVEL ??", vbYesNo, "check for security level")


If X = vbNo Then Exit Sub


zz:

z = UCase(InputBox("Press M for Medium adn H for High"))


If z = "M" Then

SendKeys "{f10}"

SendKeys "tms"

SendKeys "{tab}"

SendKeys "m"

SendKeys "{ENTER}"

Exit Sub


ElseIf z = "H" Then

SendKeys "{f10}"

SendKeys "tms"

SendKeys "{tab}"

SendKeys "h"

SendKeys "{ENTER}"

Exit Sub


Else

GoTo zz


End If


End Sub

secrityLevel.rar