قد يقول البعض وما نستفيد منها داخل برنامج أكسس ؟
فقد يستفاد منها ان تم تشغيلها اثناء تنصيب أكسس ، واعتقد ان هذا ممكن .
ايضا كثير من اخواننا من غير المبرمجين حين يقومون بتشغيل برامج اكسس على اجهزتم تزعجهم رسائل التحذير والامان فبدلا من سؤاله عن اصدارة اكسس التي لديه ثم توجيهه الى الخطوات التي يقوم بها لتخفيظ الامان فقط ترفق له هذه الاداة وبنقرتين منها يتم كل شيء .
تم تعديل هذه المشاركة بواسطة sabhha في 26 يوليو 2011 في 20:04
بارك الله بك اخي العزيز
مشكور +1
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
مشكور أستاذي أبو ياسر
بارك الله فيك..اداة جميلة
نامل لو تكرمت وضعها مفتوحة المصدر للاستفادة..او على الاقل شرح عملها وما هي لغة البرمجة..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بارك الله فيك أخى الفاضل .. وجزاك كل خير..
سؤال صغير .. ماذا لو أردت استعادة الأمان؟
تم تعديل هذه المشاركة بواسطة omar19-3 في 27 يوليو 2011 في 01:37
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
اخي مالك : اشكرك على المرور وعلى هذه الهدية
اخي الفارس : انت الاستاذ ونبيل حقا
omar19-3 كتب:بارك الله فيك أخى الفاضل .. وجزاك كل خير..
سؤال صغير .. ماذا لو أردت استعادة الأمان؟
مشكلتنا في اكسس 2007 و 2010 فلا يمكنك تخفيض الامان برمجيا من داخل البرنامج نفسه كما هو الحال في 2003 ، وكذلك ينطبق عليه اعادة الأمان
أما الاداة فيمكن عكس عملها ولكن السؤال متى ستعمل ؟ فلا بد ان يكون ذلك عند الخروج من البرنامج أو حتى فقدان التركيز
الاستاذ الكريم همام :
لم آت بجديد فهذا مما تعلمناه من هذا المنتدى فالأوامر أخذتها من دروس أختنا الكريمة زهرة ، واستخدمت الفيجوال بيسك للاسباب اعلاه
والآن لدي مشكلة مع الفيجول فلم استطع فتح المشاريع ، وسأضع الكود كاملا هنا إن شاء الله .
وهذا هو الكود المصدر كما وعدتكم
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 في 28 يوليو 2011 في 12:43
أخى العزيز
موضوع رائع جداً ولكن لو ممكن أطمع فى مثال أكسيس عملى بداخلة كود تخفيض الأمان
انظر هنا
بارك الله فيك أستاذ أبو ياسر .. زادك الله علما ..
رمضان كريم وكل سنة والأمة الإسلامية بخير .
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
بارك الله في الجميع
شكرا اخي
سؤال كيف يمكن ادخال الاداتين داخل نموذج لكي يمكن استخدامها من داخل الاكسس
اخي الكريم
انظر للمشاركة رقم 11 للاخت الفاضلة زهرة عن هذه الاداء وكيف عملها على هذا الرابط
بالتوفيق
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
malik2010 كتب:اخي الكريم
انظر للمشاركة رقم 11 للاخت الفاضلة زهرة عن هذه الاداء وكيف عملها على هذا الرابط
بالتوفيق
مانفت معي الطريقة اخي علما اني استخدم اكسس 2010
بارك الله لك أخي ابا ياسر
ومساهمة مني في تبسيط الموضوع
هذا ملف يقوم بعمل اللازم لكل نسخ الأكسس
وبأقل كود ممكن
ولا تنسوني من صالح دعائكم
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اخي lordring
ما هي المشكلة بالتحديد
او انظر للمشاركة الاخيرة للاخ mas123 فهي نفس المبدأ
بالتوفيق
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي malik2010
نتسال عن اوفيس 2010 لم تفلح الطريقة لتخفيض الامان بالطريقة الموضحه اعلاه؟؟
الأخ العزيز
مشكور وأسأل الله أن يزيدك علما وحلما
تم تجربة الأداه على أوفيس 2010 وتعمل بنجاح
لك منى ألف ألف تحية
( سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم )
اخي العزيز / بالنسبة للمشاركة رقم 7 ل sabha
الكود هل هو عبارة عن وحدة نمطيه ام ماذا؟
وكيف يمكن توظيفة في اكسس 2010 ليخفض الامان؟
اقصد هنا في اي حدث يجب ان اضع هذا الكود...
اخي اذا كان لديك مثال جاهز معمول باوفيس 2010 فضلا ارسله ولك الشكر لكي اعرف الطريقة الصحيحة
مع الشكر الجزيل
للرفع
مع الشكر الجزيل
للرفع مع الشكر الجزيل
مرة اخرى بالنسبة للاداه...هي تعمل 100%
ولكن كيف يمكن افتح هذه الاده مع فتح البرنامج.......
ارغب للزبون عندما يبدا باستعمال البرنامج ان يفتح تلقائيا له...بدون لا اهبره ان يفتح اولا ملف الاداه لتخفيض الامان
ارجو الرد مع الشكر الجزيل
alcasir كتب:مرة اخرى بالنسبة للاداه...هي تعمل 100%
ولكن كيف يمكن افتح هذه الاده مع فتح البرنامج.......
ارغب للزبون عندما يبدا باستعمال البرنامج ان يفتح تلقائيا له...بدون لا اهبره ان يفتح اولا ملف الاداه لتخفيض الامان
ارجو الرد مع الشكر الجزيل
اخى الكريم
اتبع شرح اختنا زهره وانت هتعرف الطريقه
تمنياتى لك وللجميع بالتوفيق
جزاك الله الف خير عمل ممتاز جدا
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
