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

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

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

Private Sub Workbook_Open()

Application.SendKeys "{f10}"

Application.SendKeys "tms"

Application.SendKeys "{tab}"

Application.SendKeys "l"

Application.SendKeys "{ENTER}"

End Sub

و إضافة الي ذلك ، يمكن السؤال عند غلق الملف ، هل ترغب فى التغيير ام لا و من ثم تحديد هل تريد حماية متوسطة m أم قصوي H و من ثن تنفيذ التغيير قبل غلق الملف و ذلك بالكود التالي

Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

Application.SendKeys "{f10}"

Application.SendKeys "tms"

Application.SendKeys "{tab}"

Application.SendKeys "m"

Application.SendKeys "{ENTER}"

Exit Sub


ElseIf z = "H" Then

Application.SendKeys "{f10}"

Application.SendKeys "tms"

Application.SendKeys "{tab}"

Application.SendKeys "h"

Application.SendKeys "{ENTER}"

Exit Sub


Else

GoTo zz


End If

End Sub

security2.zip

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

, بالنسبة للتطبيق علي الاوفيس 2003

فسيكون هناك تغييران

الاول هو ضغط ALT عند اختيار درجة الامان

فيضاف علامة ال %

و أيضا وجود خيار جديد و هو Very High

و لكن لاحظ أنك باختيار

High or Very High

ستمنع عمل ماكرو بدء التشغيل و بالتالي لن يتم التحويل اليا الي منخفض

و يمكنك التحكم بالطريقة التي تناسبك

macroSecurity.rar

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

موضوع مرتبط

وجدت هذا الكود فى التعليمات ، و فيها نستخدم خاصية AutomationSecurity

Sub Security()

    Dim secAutomation As MsoAutomationSecurity


    secAutomation = Application.AutomationSecurity


    Application.AutomationSecurity = msoAutomationSecurityForceDisable

    Application.FileDialog(msoFileDialogOpen).Show


    Application.AutomationSecurity = secAutomation


End Sub

	

و هذا الكود يستخدم لفتح ملف غير موثوق به

فيتم أولا تسجيل حالة مستوي الأمان الحالية

ثم تغيير مستوي الامان لايقاف كافة الاكواد

ثم فتح الملف

ثم اعادة مستوى الامان لما كان عليه سابقا