عدم تمكين الشفت من فتح البرامج

[osama&adham]

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

[محمد أبوعبدالله]

السلام عليكم
هذا الكود يوضع في وحدة نمطية جديدة

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

تحياتي

[محمد سلامة]

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 افضل

[محمد أبوعبدالله]

السلام عليكم

مرحبا اخي الكريم محمد سلامة

وظيفة الكود تعطيل زر الشيفت

وتم وضع الامر في حدث   Form_Load لكي يتم تعطيل الشيفت في كل مرة يتم فيها تشغيل النموذج الرئيسي

تحياتي

 

[محمد سلامة]

اهلا بك اخي المراغي

هل هذا الكود يلغي الشفت نهائي 

[محمد أبوعبدالله]

منذ ساعه, محمد سلامة said:

اهلا بك اخي المراغي

هل هذا الكود يلغي الشفت نهائي 

نعم اخي الكريم محمد سلامة الكود يقوم بتعطيل زر الشيفت

ولكن ما المقصود بالغاء الشيفت نهائي

فبعد وضع الوحدة النمطية الشابقة

عند استخدام الكود بالشكل التالي يقوم بتعطيل الشيفت

SetProperties "AllowBypassKey", DB_BOOLEAN, False

والكود بالشكل التالي يقوم بتمكين زر الشيفت

SetProperties "AllowBypassKey", DB_BOOLEAN, True

تحياتي

[سعيد صواب]

اخواني الكرام حياكم الله جميعا 

اسمحوا لي اشارك معكم في هذه النقطة 

هذا الكود يلغي عمل الشفت فعلا ... ولكن هناك برامج خارجية تقوم بتمكين الشفت . (مرفق مثال )

انا جربت المرفق على كل النسخ ويفتحها جميعا .. انا استخدم اكسس 2007 ....

الحل الذي اعرفه انا من هذه الناحية هو تغيير الامتداد  من accde الى accdr

انا استخدم  هذا البرنامج   Access 2007 Developer Extensions هو برنامج للتحزيم عموما .

ومعه يتغير امتداد الملف  . .. عند تحميله اضغط على قائمة office  من على يمين برنامج الأكسس ستجده في القائمة .

بالتوفيق للجميع .

sh.rar

[محمد سلامة]

4 ساعات مضت, سعيد صواب said:

اخواني الكرام حياكم الله جميعا 

اسمحوا لي اشارك معكم في هذه النقطة 

هذا الكود يلغي عمل الشفت فعلا ... ولكن هناك برامج خارجية تقوم بتمكين الشفت . (مرفق مثال )

انا جربت المرفق على كل النسخ ويفتحها جميعا .. انا استخدم اكسس 2007 ....

الحل الذي اعرفه انا من هذه الناحية هو تغيير الامتداد  من accde الى accdr

انا استخدم  هذا البرنامج   Access 2007 Developer Extensions هو برنامج للتحزيم عموما .

ومعه يتغير امتداد الملف  . .. عند تحميله اضغط على قائمة office  من على يمين برنامج الأكسس ستجده في القائمة .

بالتوفيق للجميع .

sh.rar

اهلا باخي المراغي واخي سعيد

اخي سعيد هذا ما كنت اشير اليه لاخي المراغي وانت سبقتني بالرد عليه

كنت اود ان اقول انهو لايوجد طريقه لالغاء زر الشفت الغاء نهائي يعني عدم تمكينه مرة اخري نهائيا

وهل اذا غيرنا  الامتداد  من accde الى accdr سوف يؤدي الي عدم تفعيل الشفت مرة اخري.. لا اظن ذلك

تحياتي لكم

[سعيد صواب]

حياك الله اخي محمد ..

36 دقائق مضت, محمد سلامة said:

 

وهل اذا غيرنا  الامتداد  من accde الى accdr سوف يؤدي الي عدم تفعيل الشفت مرة اخري.. لا اظن ذلك

 

هل جربت اخي محمد ؟؟

بالتوفيق

[محمد سلامة]

9 دقائق مضت, سعيد صواب said:

حياك الله اخي محمد ..

هل جربت اخي محمد ؟؟

بالتوفيق

في الحقيقة اخي سعيد لم اجرب لانني اقوم بالتحزيم ببرنامج اخر

فهل من طريقة لتحويل القاعدة من accde الي accdr بدون هذا البرنامج

[jjafferr]

2 ساعات مضت, محمد سلامة said:

فهل من طريقة لتحويل القاعدة من accde الي accdr بدون هذا البرنامج

.

نعم ، ولكن ما ادري اذا تستطيع عمله او لا 

1. اذا كان برنامجك accdb مثلا ، تأكد ان النموذج الرئيسي يتم فتحه تلقائيا عند فتح البرنامج ،

2. غيّر اسم الملف من accdb الى accdr  ، وبهذه الطريقة يكون الملف مُقفل 

 

اتحداك انك تقدر تعملها 

 

جعفر

[سعيد صواب]

جمييييل استاذ جعفر 

هههههههه تكاسلت عن تجربتها اكثر من مره ..

ولكن السؤال هنا وهو سؤال الأخ محمد هل هي كفيلة بالحماية تحديدا من الغاء الشفت ..

 

بالتوفيق

[jjafferr]

9 دقائق مضت, سعيد صواب said:

ولكن السؤال هنا وهو سؤال الأخ محمد هل هي كفيلة بالحماية تحديدا من الغاء الشفت ..

يا حبيبي ، لوسمحت لا تدخلني في امورك الخاصة مع أخي محمد 

انا فقط ردّيت على الجزء السهل اللي انا عرفته 

 

 

جعفر

[سعيد صواب]

حياك الله استاذ جعفر 

طيب انت تآمر ...

ولكن لي طلب  ولو فيه حرج اعتبره لم يكتب 

نريد نصائح في الحماية ... من داخل البرنامج ومن خارجه .

في موضوع منفرد وعلى راحتك ..

لا انه اذا اتت النصيحة والتوجيه من استاذ كبير مثلك بتكون مرجع ..

بالتوفيق

[سعيد صواب]

حياكم الله اخواني

اضفت accdr للفلتر في المرفق الذي ارفقته الذي يمكن ويعطل الشفت من خارج البرنامج 

strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mde, *.mdb, *.accdb, *.accde,*.accdr)", "*.MDE;*.MDB;*.ACCDB;*.ACCDE;.ACCDR*")

البرنامج في المرفق كان يكتشف كل الامتدادات ما عدا accdr.

نقول ان شاء الله ان معنى هذا انه اسلوب حماية جيد ..

بالتوفيق للجميع 

 

[محمد سلامة]

تحياتي لاستاذ جعفر ولاستاذ سعيد

طريقة الاستاذ جعفر قديمه ويمكن اي شخص من تغيير وتعديل الامتداد كما ذكرت

5 ساعات مضت, سعيد صواب said:

حياكم الله اخواني

اضفت accdr للفلتر في المرفق الذي ارفقته الذي يمكن ويعطل الشفت من خارج البرنامج 

strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mde, *.mdb, *.accdb, *.accde,*.accdr)", "*.MDE;*.MDB;*.ACCDB;*.ACCDE;.ACCDR*")

البرنامج في المرفق كان يكتشف كل الامتدادات ما عدا accdr.

نقول ان شاء الله ان معنى هذا انه اسلوب حماية جيد ..

بالتوفيق للجميع 

 

وهنا استاذ سعيد ليس جيد بل افضل ان لا يظهر من ضمن البرنامج حتي لا يتمكن احد من الغاء الشفت

[سعيد صواب]

حياك الله اخي محمد 

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

اذا اكتشف البرنامج الامتداد فمعنى هذا انه يستطيع التحكم بالشفت سواء تعطيل او تمكين .

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

بالتوفيق

 

[محمد سلامة]

53 دقائق مضت, سعيد صواب said:

حياك الله اخي محمد 

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

اذا اكتشف البرنامج الامتداد فمعنى هذا انه يستطيع التحكم بالشفت سواء تعطيل او تمكين .

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

بالتوفيق

 

اهلا بك اخي سعيد.. ومبروك الترقي

المقصود هو الغاء الشفت وعدم تمكينه نهائيا

وليس المقصود تعطيل او تمكين فهمتني اخي سعيد 

البرامج التي تعطل وتمكن منتشرة وكثيرة 

[سعيد صواب]

الله يبارك فيك اخي محمد 

وهذا مانسعى اليه  .. وهذا ماذكرته ..

معنى ان برامج تمكين وتعطيل الشفت لم تكتشف هذا الامداد خطوة جديدة وتعني ان الشفت ملغي..

لا يوجد الغاء نهائي للشفت على ما اعتقد .. قراءت الكثير في هذا الموضوع ولم يصادفني الغاء نهائي .

بالتوفيق 

[أبو عبدالله الحلوانى]

في ٢٠‏/١‏/٢٠١٦ at 23:16, jjafferr said:

عم ، ولكن ما ادري اذا تستطيع عمله او لا 

1. اذا كان برنامجك accdb مثلا ، تأكد ان النموذج الرئيسي يتم فتحه تلقائيا عند فتح البرنامج ،

2. غيّر اسم الملف من accdb الى accdr  ، وبهذه الطريقة يكون الملف مُقفل 

 

اتحداك انك تقدر تعملها 

جزاك الله خيرا وأحسن الله اليك - ولا برامج تحزيم ولا الغاء شيفت ولا ......... -  ما أروعك 

ولكن السؤال الذى يطرح نفسه الآن كيف نمنع المستخدم من تغير الامتداد بشكل عكسى من accdr  الى accdb 

وجزاكم الله خيرا