البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته طبعا لن اضع افكارى صريحة لتطبيق فكرة محددة لا أنوى أن اعطيكم سمكا بل انوى أن أعلمكم الصيد ... لذلك سوف اضع الاكواد والافكار على وجه العموم وعلى سبيل الشرح ليس الا وليدل كل منكم بدلوه فى التطبيق وليستحضر بنات افكاره كما يترأى له 1- الحماية عن طريق اضافة بيانات الحماية فى الريجسترى نستخدم الأكواد الاتية فى وحدة نمطيه التطبيق فى القاعدة المرفقة .. تم وضع بعض التلميحات على الأكواد Public Const MyRegPath As String = "HKEY_CURRENT_USER\Software\Officena.net" Public Const MyRegKey As String = "Judy" Public Const myStringValue As String = "محمد" Public Const myValueData As String = "ابو جودى" 'returns True if the registry key i_RegKey was found 'and False if not Function RegKeyExists(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'try to read the registry key myWS.RegRead i_RegKey 'key was found RegKeyExists = True Exit Function ErrorHandler: 'key was not found RegKeyExists = False End Function Function RegKeyRead(i_RegKey As String) As String Dim myWS As Object On Error Resume Next 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'read key from registry RegKeyRead = myWS.RegRead(i_RegKey) End Function Function RegKeySave(i_RegKey As String, _ i_Value As String, _ Optional i_Type As String = "REG_SZ") Dim myWS As Object 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'write registry key myWS.RegWrite i_RegKey, i_Value, i_Type End Function Function RegKeyDelete(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'delete registry key myWS.RegDelete i_RegKey 'deletion was successful RegKeyDelete = True Exit Function ErrorHandler: 'deletion wasn't successful RegKeyDelete = False End Function يتبع.. القاعدة المرفقة 01-Dealing with the registry.accdb

السلام عليكم ورحمة الله وبركاته بحثت عن طريقة لتخفيض أمان الاكسيس برمجيا، فوجدت طريقة للأخت زهرة بارك الله فيها ونفعنا وإياها بما تعلم. ولكن لم أستطع تنفيذ الكود مع الأكسيس ٢٠٠٧ حيث يمنع الاكسيس تنفيذ الملف الخاص بالمثال من العمل. فهل من مساعدة لتنفيذ ذلك على ٢٠٠٧ ولكم جزيل الشكر ومرفق المثال الخاص بها. zaAllAccesVersionAndSecurityLowLevel_Pro.rar

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،، منذ فترة رأيت موضوعا مشابها للأستاذ محمد طاهر فيه مثال لطلب تخفيض مستوى الأمان وقد جربته على برنامج اكسيل 2003 بحيث رفعت درجة الامان الى مرتفع جدا أو في مرة اخرى الى مرتفع فلم يفلح البرنامج أو المثال في الطلب المراد منه الآن هل من كود يجعل الاكيل مباشرة يخفض درجة الأمان الى ( منخفض ) وليس متوسط بدون السؤال يعني تلقائيا بدخولك الملف او الشيت يقوم البرنامج تلقائيا بتخفيض الامان الى مستوى ( منخفض ) بدون ان يشعر المستخدم به ؟!! ارجو ان يكون السؤال واضحا ، كما ارجو المساعدة العاجلة في ذلك ولكم مني كل الشكر والتقدير :(