osama&adham قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 الاخوة الاعزاء لقد قمت بحماية البرنامج بكلمة مرور وتعطيل الشفت 0 ولكن تم تفعيل الشفت وفتح البرنامج عن طريق عرض تصميم فهل يوجد كود لحماية البرنامج وعدم فتحه بتفعيل الشفت والاطلاع على تصميم النماذج رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 السلام عليكم هذا الكود يوضع في وحدة نمطية جديدة Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function وفي النموذج الرئيسي للبرنامج نضع الامر التالي في حدث Form_Load SetProperties "AllowBypassKey", DB_BOOLEAN, False تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 2 ساعات مضت, المراغي said: السلام عليكم هذا الكود يوضع في وحدة نمطية جديدة Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function وفي النموذج الرئيسي للبرنامج نضع الامر التالي في حدث Form_Load SetProperties "AllowBypassKey", DB_BOOLEAN, False تحياتي اخى المراغى ما وظيفة هذا الكود ؟؟ هل هو لمنع عرض التصميم .. واذا كان ذلك .. لماذا لا تحولها الى Accde افضل رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 السلام عليكم مرحبا اخي الكريم محمد سلامة وظيفة الكود تعطيل زر الشيفت وتم وضع الامر في حدث Form_Load لكي يتم تعطيل الشيفت في كل مرة يتم فيها تشغيل النموذج الرئيسي تحياتي رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 اهلا بك اخي المراغي هل هذا الكود يلغي الشفت نهائي رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يناير 19, 2016 مشاركة قام بنشر يناير 19, 2016 منذ ساعه, محمد سلامة said: اهلا بك اخي المراغي هل هذا الكود يلغي الشفت نهائي نعم اخي الكريم محمد سلامة الكود يقوم بتعطيل زر الشيفت ولكن ما المقصود بالغاء الشيفت نهائي فبعد وضع الوحدة النمطية الشابقة عند استخدام الكود بالشكل التالي يقوم بتعطيل الشيفت SetProperties "AllowBypassKey", DB_BOOLEAN, False والكود بالشكل التالي يقوم بتمكين زر الشيفت SetProperties "AllowBypassKey", DB_BOOLEAN, True تحياتي 1 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 اخواني الكرام حياكم الله جميعا اسمحوا لي اشارك معكم في هذه النقطة هذا الكود يلغي عمل الشفت فعلا ... ولكن هناك برامج خارجية تقوم بتمكين الشفت . (مرفق مثال ) انا جربت المرفق على كل النسخ ويفتحها جميعا .. انا استخدم اكسس 2007 .... الحل الذي اعرفه انا من هذه الناحية هو تغيير الامتداد من accde الى accdr انا استخدم هذا البرنامج Access 2007 Developer Extensions هو برنامج للتحزيم عموما . ومعه يتغير امتداد الملف . .. عند تحميله اضغط على قائمة office من على يمين برنامج الأكسس ستجده في القائمة . بالتوفيق للجميع . sh.rar 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 4 ساعات مضت, سعيد صواب said: اخواني الكرام حياكم الله جميعا اسمحوا لي اشارك معكم في هذه النقطة هذا الكود يلغي عمل الشفت فعلا ... ولكن هناك برامج خارجية تقوم بتمكين الشفت . (مرفق مثال ) انا جربت المرفق على كل النسخ ويفتحها جميعا .. انا استخدم اكسس 2007 .... الحل الذي اعرفه انا من هذه الناحية هو تغيير الامتداد من accde الى accdr انا استخدم هذا البرنامج Access 2007 Developer Extensions هو برنامج للتحزيم عموما . ومعه يتغير امتداد الملف . .. عند تحميله اضغط على قائمة office من على يمين برنامج الأكسس ستجده في القائمة . بالتوفيق للجميع . sh.rar اهلا باخي المراغي واخي سعيد اخي سعيد هذا ما كنت اشير اليه لاخي المراغي وانت سبقتني بالرد عليه كنت اود ان اقول انهو لايوجد طريقه لالغاء زر الشفت الغاء نهائي يعني عدم تمكينه مرة اخري نهائيا وهل اذا غيرنا الامتداد من accde الى accdr سوف يؤدي الي عدم تفعيل الشفت مرة اخري.. لا اظن ذلك تحياتي لكم رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 حياك الله اخي محمد .. 36 دقائق مضت, محمد سلامة said: وهل اذا غيرنا الامتداد من accde الى accdr سوف يؤدي الي عدم تفعيل الشفت مرة اخري.. لا اظن ذلك هل جربت اخي محمد ؟؟ بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 9 دقائق مضت, سعيد صواب said: حياك الله اخي محمد .. هل جربت اخي محمد ؟؟ بالتوفيق في الحقيقة اخي سعيد لم اجرب لانني اقوم بالتحزيم ببرنامج اخر فهل من طريقة لتحويل القاعدة من accde الي accdr بدون هذا البرنامج رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 2 ساعات مضت, محمد سلامة said: فهل من طريقة لتحويل القاعدة من accde الي accdr بدون هذا البرنامج . نعم ، ولكن ما ادري اذا تستطيع عمله او لا 1. اذا كان برنامجك accdb مثلا ، تأكد ان النموذج الرئيسي يتم فتحه تلقائيا عند فتح البرنامج ، 2. غيّر اسم الملف من accdb الى accdr ، وبهذه الطريقة يكون الملف مُقفل اتحداك انك تقدر تعملها جعفر 2 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 جمييييل استاذ جعفر هههههههه تكاسلت عن تجربتها اكثر من مره .. ولكن السؤال هنا وهو سؤال الأخ محمد هل هي كفيلة بالحماية تحديدا من الغاء الشفت .. بالتوفيق رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 9 دقائق مضت, سعيد صواب said: ولكن السؤال هنا وهو سؤال الأخ محمد هل هي كفيلة بالحماية تحديدا من الغاء الشفت .. يا حبيبي ، لوسمحت لا تدخلني في امورك الخاصة مع أخي محمد انا فقط ردّيت على الجزء السهل اللي انا عرفته جعفر 1 رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 حياك الله استاذ جعفر طيب انت تآمر ... ولكن لي طلب ولو فيه حرج اعتبره لم يكتب نريد نصائح في الحماية ... من داخل البرنامج ومن خارجه . في موضوع منفرد وعلى راحتك .. لا انه اذا اتت النصيحة والتوجيه من استاذ كبير مثلك بتكون مرجع .. بالتوفيق رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 20, 2016 مشاركة قام بنشر يناير 20, 2016 حياكم الله اخواني اضفت accdr للفلتر في المرفق الذي ارفقته الذي يمكن ويعطل الشفت من خارج البرنامج strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mde, *.mdb, *.accdb, *.accde,*.accdr)", "*.MDE;*.MDB;*.ACCDB;*.ACCDE;.ACCDR*") البرنامج في المرفق كان يكتشف كل الامتدادات ما عدا accdr. نقول ان شاء الله ان معنى هذا انه اسلوب حماية جيد .. بالتوفيق للجميع 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 21, 2016 مشاركة قام بنشر يناير 21, 2016 تحياتي لاستاذ جعفر ولاستاذ سعيد طريقة الاستاذ جعفر قديمه ويمكن اي شخص من تغيير وتعديل الامتداد كما ذكرت 5 ساعات مضت, سعيد صواب said: حياكم الله اخواني اضفت accdr للفلتر في المرفق الذي ارفقته الذي يمكن ويعطل الشفت من خارج البرنامج strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mde, *.mdb, *.accdb, *.accde,*.accdr)", "*.MDE;*.MDB;*.ACCDB;*.ACCDE;.ACCDR*") البرنامج في المرفق كان يكتشف كل الامتدادات ما عدا accdr. نقول ان شاء الله ان معنى هذا انه اسلوب حماية جيد .. بالتوفيق للجميع وهنا استاذ سعيد ليس جيد بل افضل ان لا يظهر من ضمن البرنامج حتي لا يتمكن احد من الغاء الشفت رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 21, 2016 مشاركة قام بنشر يناير 21, 2016 حياك الله اخي محمد بل جيد .. ربما انك فهمت الموضوع بالعكس اذا اكتشف البرنامج الامتداد فمعنى هذا انه يستطيع التحكم بالشفت سواء تعطيل او تمكين . ما ذكرته انا انه لم يتم كشف الامتداد .. وبالتالي فهو جيد . بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر يناير 21, 2016 مشاركة قام بنشر يناير 21, 2016 53 دقائق مضت, سعيد صواب said: حياك الله اخي محمد بل جيد .. ربما انك فهمت الموضوع بالعكس اذا اكتشف البرنامج الامتداد فمعنى هذا انه يستطيع التحكم بالشفت سواء تعطيل او تمكين . ما ذكرته انا انه لم يتم كشف الامتداد .. وبالتالي فهو جيد . بالتوفيق اهلا بك اخي سعيد.. ومبروك الترقي المقصود هو الغاء الشفت وعدم تمكينه نهائيا وليس المقصود تعطيل او تمكين فهمتني اخي سعيد البرامج التي تعطل وتمكن منتشرة وكثيرة رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يناير 21, 2016 مشاركة قام بنشر يناير 21, 2016 الله يبارك فيك اخي محمد وهذا مانسعى اليه .. وهذا ماذكرته .. معنى ان برامج تمكين وتعطيل الشفت لم تكتشف هذا الامداد خطوة جديدة وتعني ان الشفت ملغي.. لا يوجد الغاء نهائي للشفت على ما اعتقد .. قراءت الكثير في هذا الموضوع ولم يصادفني الغاء نهائي . بالتوفيق رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر يناير 22, 2016 مشاركة قام بنشر يناير 22, 2016 في ٢٠/١/٢٠١٦ at 23:16, jjafferr said: عم ، ولكن ما ادري اذا تستطيع عمله او لا 1. اذا كان برنامجك accdb مثلا ، تأكد ان النموذج الرئيسي يتم فتحه تلقائيا عند فتح البرنامج ، 2. غيّر اسم الملف من accdb الى accdr ، وبهذه الطريقة يكون الملف مُقفل اتحداك انك تقدر تعملها جزاك الله خيرا وأحسن الله اليك - ولا برامج تحزيم ولا الغاء شيفت ولا ......... - ما أروعك ولكن السؤال الذى يطرح نفسه الآن كيف نمنع المستخدم من تغير الامتداد بشكل عكسى من accdr الى accdb وجزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان