البحث في الموقع
Showing results for tags 'حماية'.
تم العثور علي 21 نتائج
-
السلام عليكم وجدت الكود المرفق في احدى المشاركات والمطلوب التعديل عليه بحيث ان تكون النسخة الاحتياطية مؤمنة من اي تعديل ويمكن النسخ منها فقط ويفضل ان تكون النسخة الاحتياطية بدون الكود Sub copy1() Dim Extension$ Dim savePathName As String Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xls" savePathName = "c:\Test Backup 1\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 End Sub نسخة.xlsm
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
السلام عليكم ورحمة الله تعالى وبركاته طبعا لن اضع افكارى صريحة لتطبيق فكرة محددة لا أنوى أن اعطيكم سمكا بل انوى أن أعلمكم الصيد ... لذلك سوف اضع الاكواد والافكار على وجه العموم وعلى سبيل الشرح ليس الا وليدل كل منكم بدلوه فى التطبيق وليستحضر بنات افكاره كما يترأى له 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- 25 replies
-
- 6
-
-
-
- تشفير و تأمين
- تشفير و تامين
- (و30 أكثر)
-
إخوتي الفضلاء كانت لي مساهمة مع الاخ حسين العربي بخصوص مسار التطبيق وحماية التطبيق بقراءة هذا المسار بالكود ... http://www.officena.net/ib/index.php?showtopic=54485 وتطور النقاش لنصل لمحور حماية جديد يتمثل بالطريقة المعروفة بزراعة ملف في الجهاز وفي مكان محدد ، للبحث عنه وتفقده قبل تشغيل النظام وفي حال العثور عليه يتم تشغيل النظام ، وخلاف ذلك يتم اشعار المستخدم بوجود خطأ رئيسي يتمثل بخلل يتعلق بفقدان هذا الملف وبالتالي الخروج من التطبيق واشعرنا الاخ حسين بانه قد هدي لتطبيق الفكرة بفضل من الله وحيث انني كنت قد بدأت بالتطبيق لأجيب على تساؤله ، رأيت ان اعدل به قليلاً بفكرة راودتني تتمثل باخفاء ملف text في مكان ما من الجهاز وتحريك مسألة الحماية حول هذا الملف ( المخفي ) ، وفكرة الاخفاء تهمني لغايات ابعاد هذا الملف عن الايدي العابثة ، او الخطأ المتمثل بحذف الملف ، وتنحصر الامور هنا غالبا بما بقي من الاحتمالات القائمة لضرورة الحماية ، ومنها إجراء اعادة تنصيب لنظام التشغيل ( الويندوز - فورمات ) ، ومنها أيضا نقل التطبيق بدون علم المبرمج او مدير النظام لجهاز آخر ، وحيث ان المستخدم لا يعلم بشأن هذا الملف المخفى ، ولا يراه بالعادة ، فلن يقوم بنقله و التعامل معه وبالتالي يتوقف النظام عن العمل ، ويضطر المستخدم للرجوع لمدير النظام او المبرمج سيحمل المرفق ملف التطبيق و مجلد باسم AccTxt يحتوي على ملف مخفي باسم 123 يتم نسخ هذا المجلد او قصه ولصقه على القرص c في المجلد Program Files وبذلك يصبح مسار ملفنا المخفي هو C:\Program Files\AccTxt\123.txt وللحديث بقية ... ...........
-
السلام عليكم ورحمة الله وبركاته على الرغبة السيد @محمد عبد الشفيع من هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية تم فتح هذا الموضوع و ان شاء الله ساشرح خطوة خطوة حسب وقتي حتى اخلص من الموضوع وفي النهاية راح اسمع اراء و مقترحاتكم والان نحن نحتاج جدول واحد لكي نحفظ فيه تسلسل و رقم هارد و المعالج و رقم التفعيل البرامج و مدة التفعيل و تاريخ التفعيل و تاريخ اخر مرة فتح البرامج وسنسمي هكذا بالتسلسل كما مبينة في الصورة ID من نوع ترقیم تلقائی NumForMoaalic من نوع نصي NumForHard من نوع نصي NumTascil من نوع نصي Midda من نوع رقم و مصدره يكون عمودين واحد لكتابة رقم ايا عدد ايام التفعيل والاخر لكتابة مثلا يوم واحد او اسبوع واحد هكذا وهذا هو مصدره "1";"يوم واحد";"7";"اسبوع واحد";"30";"شهر واحد";"90";"ثلاث اشهر";"180";"ستة اشهر";"365";"سنة واحدة";"18250";"مدى الحياة" شوف الصورة لكي نعرف خصائص هذا الحقل جيداً و ايضا عندنا حقل باسم firstdate من نوع وقت والتاريخ واخر حقل هو EndDate من نوع وقت والتاريخ وتم تسمية الجدول باسم TblTascil ولان ليس لدي وقت اليوم ان اكون على جهاز لابتوب غدا او يوم السبت ان شاء الله راح اكمل الشرح ونبدأ بعمل النماذج والسلام عليكم ورحمة الله وبركاته
- 76 replies
-
- 10
-
-
-
السلام عليكم ورحمة الله وبركاته على الرغم من كثرة المواضيع عن الحماية لكن رأيت ان اضيف شيء بسيط على ذلك تم انشاء هذا الموضوع لاني من هنا قلت للسيد @Aliko سارجع مع المثال لا اريد اطول كثير لاني زعيف في اللغة العربية لذلك اليكم قاعدة مع الكراك حماية.rar كراك.rar
-
بسم الله الرحمن الرحيم أنا مبرمج بالأكسس وكنا إذا أردنا حماية البرنامج قمنا بتحويله إلى mde وبعد التحويل لا يستطيع ولا حتى صاحب البرنامج أن يطّلع على الكود المكتوب في vba فكيف يتم ذلك في الإكسل ؟؟ شكرا لكم مقدما
-
السلام عليكم اولا انا اسمي احمد عضو جديد بهذا الصرح العظيم بارك الله فيكم انتهيت من انشاء سيتيم لحسابات مطعم يشمل المصروفات و المرتبات و حساب البنك مع التقارير اليومية و الشهرية و السنوية و هو مؤلف من عدة ملفات و مجلدات فكل سنة منفصلة بمجلد و التقارير الشهرية و السنوية منفصلة ايضا و هكذا كما موضح بالصورة و كلها مرتبطة ببعضها البعض تقريبا و الشيئ الذي اريده هو اضافة حماية للمعادلات و حمايتها من التعديل بشكل نهائي بكامل الملفات و اضافة زر لحماية الخلايا من التعديل التي لا تحتوي معادلات اي خلايا الادخال مع امكانية الغاء قفلها بالزر الاخر و طلب كلمة مرور عند الضغط على زر القفل و فك القفل مع ملاحظة ان تكون هذه الحماية للشيت الذي انا فيه فقط بمعنى انني انتهيت من ادخال حسابات اليوم و اريد قفل خلايا الادخال و حمايتها من التعديل و هكذا كل يوم منفصل عن الاخر يوجد ملف بالمرفقات يوضح ما اطلبه و شكرا لكم سلفا مثال.xlsx
-
السلام عليكم جميعا لدي في المرفقات مرفق به قاعدة بيانات تحتوي على طريقة اخفاء واظهار كافة كائنات النظام برمجيا وذلك عن طريق وحدة نمطية وجدتها في احد المواقع الاجنبية وقمت بادراجها في هذه القاعدة ارجو ان تكون مفيدة تحياتي اخفاء واظهار كافة كائنات الاكسس برمجيا.rar
-
السلام عليكم كنت اتبع طريقة لحماية النماذج من ان يدخل شخص على عرض التصميم ويعدل عليها وذلك عن طريق حفظ ونشر وتحويل قاعدة البيانات الى ملف ذو امتداد .accde كما في الصور المرفقة تفاجئت ان هذه الطريقة لا تتم علما اني كنت اعملها سابقا وكانت شغالة فما هو السبب وكيف احمي النماذج من التعديل عليها عند بيع نسخة م نبرنامجي للعميل جزاكم الله خيرا
-
السلام عليكم ورحمة الله وبركاته قمت بتصميم برنامج على اكسس 2010 واريد ان احمي قاعدة البيانات من النسخ الغير مشروع حتى احفظ حقي بحيث يجب استدام قاعدة البيانات على جهاز كمبيوتر واحد فقط ارجو المساعدة باسهل الطرق دام فضلكم -
السلام عليكم هذا الموضوع هو إجابة لسؤال أحد الأعضاء هنا http://www.officena.net/ib/index.php?showtopic=52641&hl= وقد فضلت أن تكون المشاركة كموضوع جديد لتعم الفائدة ولكن هذا العمل لا يخلو من أخطأء لذلك اضع بين أيديكم هذه الفكرة لحماية الملف برقم عشوائي مع العلم أني استخدمها عمليا فقد عملت برنامجا لمستشفى المدينة عندنا وعند إقفال الملف يتم الإتصال بي لإعطائهم رقم الترخيص خطت العمل : عند تحميل الملف المرفق وتشغيله سيطلب منك رقم الترخيص لتثبيت البرنامج سيظهر عندك رقم في الفروم مكون من 6 خانات بناء على هذا الرقم يتم حساب رقم الترخيص فإذا كان الرقم 788520 فيكون رقم الترخيص هو 409760 الرقم 783330 فيكون رقم الترخيص هو 258390 الرقم 863999 فيكون رقم الترخيص هو 862137 طبعا هناك طريقة لحساب رقم الترخيص أترك لكم الإجابة على هذا السؤال بعد الإطلاع على المرفق كيف يتم حساب رقم التسجيل هنا ؟ ;كلمة المرور للفيجوال والأوراق هي 9 تقبلوا تحياتي حماية الملف برقم عشوائي.rar
-
طريقة مميزة لقفل الشيتات عن المتطفلين باستخدام فورم دخول يحتوي على اسم المستخدم والرقم السري. login.rar
-
قمت بتصميم قاعدة بيانات وقمت بحمايتها ولكن ظهرت عندي مشكلة عند سحب قاعدة البيانات على شيت اكسل يظهر مربع حواري عند الضغط على Enable يظهر الجداول الموجودة في قاعدة البيانات لو قمت باختيار جدول وقمت بالضغط على OK يفعرض البيانات الموجودة في الجدول على شيت الاكسل كيف اتخطى تلك المشكلة Allied Cosultants.rar
-
السلام عليكم اخواني الكرام هذه اول مشاركة لي في منتداكم الرائع واسف انها طلب مساعدة وليست مشاركة فعالة اطلعت على منتداكم الرائع وتعلمت منه الكثير وقمت بعمل بعض ملفات الاكسل التي احتاجها في عملي باستخدام اكواد vba التي تتحفوننا بها ولكن لاني لست الذي يعمل علي هذه الملفات قمت بعمل كلمة سر للكود حتى لا يعبث به من يقوم بادخال البيانات والا ن احتاج الى تعديل في الاكواد ولكني نسيت كلمة السر برجاء مساعدتي في فك الحماية عن الملف وياريت اذا بتعطوني كلمة السر الموجودة لان لدي 3 ملفات مقفلة بنفس كلمة السر وجزاكم الله خيرا الموردين.rar
-
السلام عليكم ورحمته الله وبركاته ملف طيب وابن حلال لحقناه على أخر لحظة من الدور التاسع بس شكله كده مش ناوى يجبها على بر لانه بيفكر فى الانتحار بمجرد نسخة أو نقله أو حفظه بأسم فهل من سبيل للتخلص من هذا الملف نهائيا من على الحاسب حتى لايستطيع لغير المستخدم الاصلى العبث ببيانات هذا الملف فهل من كود يؤدى هذا الغرض شاكر فضل الجميع وجزاكم الله خيرا
-
السلام عليكم ورحمة وبركاته .. في المرفق يتم استخراج بيانات الجهاز .. المعالج + الماذر بورد + الهارد ديسك اتمنى ان يفيد من يبحث عنه ... ولا نستغني ابدا عن توجيهات خبرائنا الكرام .. ونقاش الأخوة اعضاء المنتدى الحبيب وتبادل وجهات النظر وكذلك من له تجارب مع الموضوع. بالتوفق للجميع MyProtect.rar -
السلام عليكم اود الاستفسار عن نوع الحماية لملف لدي ملف اكسل 2003 الملف يفتح لمدة 30 يوم فقط بعدها يصبح غير قابل للفتح الا بعد فرمتة الكومبيوتر او فتح الملف في كومبيوتر متفرمت جديد اي لم يمضي على فرمتته اكثر من شهر يعني لو نقلت الملف الى كومبيوتر متفرمت من زمان لن يفتح ايضا كيف يتعرف الملف على الكومبيوتر ويعرف انه متفرمت من زمان؟ معقول في هيك حماية لملفات اكسل
-
السلام عليكم ورحمة الله وبركاته اعضاء منتدى اوفسينا الكرام عندي ملف اكسل واحتاج حفظ تصميمي فيه ولكن ارغب بجعل المستخدمين يمكنهم اضافه ارقام ولكم في خليه المعادلات لا يستطيعو تغييرها ولا تغيير اي شي من العناوين او تصميم الجدول فقط ادخال في خانه محدد كيف يمكنني ذلك
-
السلام عليكم و رحمة الله و بركاتة من فضلكم انا عامل برنامج على الاكسيل يحتوى على خلية بها قائمة لاختيار نشاط معين من قائمة "Data Validation" و اريد حماية لهذه الخلايا من اى تعديلات بالنسخ من اى خلية اخرى. مرفق ملف لمزيد من الايضاح و لسيادتكم جزيا الشكر....،
-
السادة الخبراء استكمال لموضوع الاحماية برقم الهرد للاستاذ القدير ابو تامر وجدت هذه الاكواد لاستخراج رقم البورسيسر و المزر و اضافت ماكرو للتاكد من الرقم فى بداية عمل الملف برجاء التجربة للافادة للجميع M.B No.rar Prosser no.rar
-
إخوتي الفضلاء نظام يتعدد مستخدميه ، وللحصول على المعلومات الشخصية وعدم الحصول على معلومات الغير يلزم التعرف على المستخدم برقمه الوطني (مثلاً) لإظهار معلوماته الخاصة ... وإلا فلا . يكون زر الأمر الخاص بإظهار نموذج المعلومات الشخصية ( غير مفعل ) وعند إدخال الرقم الوطني و التعرف عليه ، يتم تفعيل زر الأمر وبالضغط عليه يتم إظهار المعلومات الشخصية للرقم الوطني ، وخلافاً لذلك يبقى الزر غير مفعل وتظهر رسالة خطأ تفيد بان الرقم الوطني غير معروف . سيناريو يلزم ويفيد في كثير من إفكار الحماية المحدودة ، أو أي هدف آخر متصور ... مجرد فكرة ... وعليكم إحسان التطبيق إن لزمت ... والله من وراء القصد ... وهو حسبي ............ ............ NA_NationaNumber.rar
