• 0
Guest أبو ياسر

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

سؤال

قد يقول البعض وما نستفيد منها داخل برنامج أكسس ؟

فقد يستفاد منها ان تم تشغيلها اثناء تنصيب أكسس ، واعتقد ان هذا ممكن .

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

open.rar

تم تعديل بواسطه sabhha
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

25 إجابة على هذا السؤال .

  • 0

بارك الله بك اخي العزيز

مشكور +1

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك..اداة جميلة

نامل لو تكرمت وضعها مفتوحة المصدر للاستفادة..او على الاقل شرح عملها وما هي لغة البرمجة..

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أخى الفاضل .. وجزاك كل خير..

سؤال صغير .. ماذا لو أردت استعادة الأمان؟

تم تعديل بواسطه omar19-3
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي مالك : اشكرك على المرور وعلى هذه الهدية

اخي الفارس : انت الاستاذ ونبيل حقا

بارك الله فيك أخى الفاضل .. وجزاك كل خير..

سؤال صغير .. ماذا لو أردت استعادة الأمان؟

مشكلتنا في اكسس 2007 و 2010 فلا يمكنك تخفيض الامان برمجيا من داخل البرنامج نفسه كما هو الحال في 2003 ، وكذلك ينطبق عليه اعادة الأمان

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

الاستاذ الكريم همام :

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

والآن لدي مشكلة مع الفيجول فلم استطع فتح المشاريع ، وسأضع الكود كاملا هنا إن شاء الله .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وهذا هو الكود المصدر كما وعدتكم


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
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

تم تعديل بواسطه sabhha
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وهذه خاصة لأخي omar19-3

لارجاع الحماية الى أكسس بعد سلبها منه

luck.rar

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخى العزيز

موضوع رائع جداً ولكن لو ممكن أطمع فى مثال أكسيس عملى بداخلة كود تخفيض الأمان

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أستاذ أبو ياسر .. زادك الله علما ..

رمضان كريم وكل سنة والأمة الإسلامية بخير .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اخي

سؤال كيف يمكن ادخال الاداتين داخل نموذج لكي يمكن استخدامها من داخل الاكسس

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم

انظر للمشاركة رقم 11 للاخت الفاضلة زهرة عن هذه الاداء وكيف عملها على هذا الرابط

http://www.arabteam2000-forum.com/index.php?showtopic=113828

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم

انظر للمشاركة رقم 11 للاخت الفاضلة زهرة عن هذه الاداء وكيف عملها على هذا الرابط

http://www.arabteam2000-forum.com/index.php?showtopic=113828

بالتوفيق

مانفت معي الطريقة اخي علما اني استخدم اكسس 2010

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله لك أخي ابا ياسر

ومساهمة مني في تبسيط الموضوع

هذا ملف يقوم بعمل اللازم لكل نسخ الأكسس

وبأقل كود ممكن

http://www.arabteam2000-forum.com/index.php?app=core&module=attach&section=attach&attach_id=122413

ولا تنسوني من صالح دعائكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي lordring

ما هي المشكلة بالتحديد

او انظر للمشاركة الاخيرة للاخ mas123 فهي نفس المبدأ

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي malik2010

نتسال عن اوفيس 2010 لم تفلح الطريقة لتخفيض الامان بالطريقة الموضحه اعلاه؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ العزيز

مشكور وأسأل الله أن يزيدك علما وحلما

تم تجربة الأداه على أوفيس 2010 وتعمل بنجاح

لك منى ألف ألف تحية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز / بالنسبة للمشاركة رقم 7 ل sabha

الكود هل هو عبارة عن وحدة نمطيه ام ماذا؟

وكيف يمكن توظيفة في اكسس 2010 ليخفض الامان؟

اقصد هنا في اي حدث يجب ان اضع هذا الكود...

اخي اذا كان لديك مثال جاهز معمول باوفيس 2010 فضلا ارسله ولك الشكر لكي اعرف الطريقة الصحيحة

مع الشكر الجزيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع

مع الشكر الجزيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع مع الشكر الجزيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرة اخرى بالنسبة للاداه...هي تعمل 100%

ولكن كيف يمكن افتح هذه الاده مع فتح البرنامج.......

ارغب للزبون عندما يبدا باستعمال البرنامج ان يفتح تلقائيا له...بدون لا اهبره ان يفتح اولا ملف الاداه لتخفيض الامان

ارجو الرد مع الشكر الجزيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرة اخرى بالنسبة للاداه...هي تعمل 100%

ولكن كيف يمكن افتح هذه الاده مع فتح البرنامج.......

ارغب للزبون عندما يبدا باستعمال البرنامج ان يفتح تلقائيا له...بدون لا اهبره ان يفتح اولا ملف الاداه لتخفيض الامان

ارجو الرد مع الشكر الجزيل

اخى الكريم

اتبع شرح اختنا زهره وانت هتعرف الطريقه

الرابط

تمنياتى لك وللجميع بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله الف خير عمل ممتاز جدا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جزيلا لكم علي كل هذة المساهمات

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .