اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ابو  ياسر

الردود الموصى بها

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

open.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

تم تعديل بواسطه sabha
  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...
  • 2 years later...

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

 

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

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

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

 

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

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

تم تعديل بواسطه خالد للعلم
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

بمشكلتى

 

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

 

 

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

 

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

تم تعديل بواسطه خالد للعلم
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information