اداة تنفيذية تقوم بتخفيض أمان جميع اصدارات أكسس 2003 2007 2010

[ابو ياسر]

قد يقول البعض وما نستفيد منه داخل برنامج أكسس ؟ فقد يستفاد منه ان تم تشغيله اثناء تنصيب أكسس ، واعتقد ان هذا ممكن . ايضا كثير من اخوتنا من غير المبرمجين حين يقومون بتشغيل برامج اكسس على اجهزتم تزعجهم رسائل التحذير والامان فبدلا من سؤاله عن اصدارة اكسس التي لديه ثم توجيهه الى الخطوات التي يقوم بها لتخفيظ الامان فقط ترفق له هذه الاداة وبنقرتين منها يتم كل شيء .

open.rar

[عبد الله قدور]

السلام عليكم

مشكور كتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتتير يا أخي

حللت مشكلة ارقت الكثيييييييييييييييييييييييرين في اكسس وصعب الحل فيها 

و الان بهذه الاداة  وعند تحويل اكسس الى ملف تنصيب فقط جعلها تعمل مع تنصيف الملف و انتهى الأمر 

[ياسر الحافظ]

الاستاذ : sabha :

جزاك الله كل الخير

انا ممن كانت تزعجهم هذه الرسالة عند فتح اكسس ( لاستعراض عمل ما )

نشكرك

وفقك الله

ياسر الحافظ " ابو الحارث "

[عبدالله المجرب]

الاخ الفاضل sabha

اداه جميله جداً تجعل العمل اسهل

سلمت يمينك

وشكراً على هذه الهدية القيمة

ابواحمد

[أبو آدم]

أحسنت وأضفت

شكرا يا ابا ياسر

نفع الله بك

[ابو ياسر]

abdalla89

ياسر الحافظ

عبدالله المجرب

nart lebzo

شكرا لكم على شكركم

ولعيونكم وعيون كافة أهل هذا المنتدى هذا هو الكود المصدري

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Enum RegHive

    HKEY_CLASSES_ROOT = &H80000000

    HK_CR = &H80000000

    HKEY_CURRENT_USER = &H80000001

    HK_CU = &H80000001

    HKEY_LOCAL_MACHINE = &H80000002

    HK_LM = &H80000002

    HKEY_USERS = &H80000003

    HK_US = &H80000003

    HKEY_CURRENT_CONFIG = &H80000005

    HK_CC = &H80000005

    HKEY_DYN_DATA = &H80000006

    HK_DD = &H80000006

End Enum


Enum RegType

    REG_SZ = 1

    REG_BINARY = 3

    REG_DWORD = 4

End Enum


'Public Const ERROR_SUCCESS = 0&

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long


Private Function CreateRegKey(hKey As RegHive, strPath As String)

Dim hCurKey As Long

Dim lRegResult As Long

    lRegResult = RegCreateKey(hKey, strPath, hCurKey)

        If lRegResult <> ERROR_SUCCESS Then

            'there is a problem

        End If

   End Function

Private Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)

Dim hCurKey As Long

Dim lRegResult As Long

    lRegResult = RegCreateKey(hKey, strPath, hCurKey)

    lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4)

    If lRegResult <> ERROR_SUCCESS Then

    End If

    End Function

Private Sub Timer1_Timer()

Dim strVM As String

Dim strVS As String

On Error Resume Next

strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)

strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)

strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)

strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1)

Unload Me

End Sub

تم تعديل يوليو 28, 2011 بواسطه sabha

[الصمت المتحدث]

جزاك الله عنا كل خير

أداة رائعة تسلم ودمت رائعا

[خالد للعلم]

الأخوة / الزملاء

 

ما زالت المشكلة قائمة التعبيرات الآمنة إختفت وملف الأكسيس يفتح مباشرة دون أية تعبيرات ؟؟ ولزيادة فى التوضيح كلما دخلت وعدلت مستوى الأمان من منخفض إلى وسط

أجده بعد ذلك مازال منخفض وكذلك مع التغيير للعالى أجده مازال منخفض كأننى لم أقم أصلآ بالتعديل !!!!!!!!!!

أريد معرفة السبب .

 

                        وشكرآ لإهتمامكم جميعآ _ ولكن أرجو الإفادة منكم

                                          تحياتى وتقديرى لكم جميعآ

تم تعديل فبراير 28, 2014 بواسطه خالد للعلم

[ابوخليل]

يعني انك تريد ارجاع الحماية ؟

والسبب في عدم تمكنك هو في التسجيل او ما يسمى الريجستري

ومؤكد انك استخدمت الاداة او ما يشابهها لتخفيض الامان

HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 0)
HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 0)

حيث يتم تنفيذ واحد من هذين السطرين فقط عند الارجاع اليدوي

فقد مررت بهذه المشكلة

والحل السريع هو

أن تجرب المرفق الآخر لابي ياسر والذي  يعيد الحماية الى اكسس

lock.rar

[خالد للعلم]

الأخ الكريم والأستاذ المبدع /     أبــو خليل

 

أشكر لك إهتمامك بالموضوع وأرجو ألا أكون أطلت عليك

 

بمشكلتى

 

           فلك كل الحب والإعزاز لشخصكم الكريم 

 

 

كما لا يفوتنى شكر أستاذى الحبيب / أبو آدم    , والحبيب عبد الله المجرب , والصمت المتحدث , وأبو ياسر , وياسر الحافظ , وعبد الله قدور                             

 

                                           تلميذكم / خالد للعلم

تم تعديل فبراير 28, 2014 بواسطه خالد للعلم