اذهب الي المحتوي
أوفيسنا

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


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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

sh.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

sh.rar

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

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

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

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

تحياتي لكم

رابط هذا التعليق
شارك

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

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

 

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

 

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

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

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

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

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

بالتوفيق

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

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

رابط هذا التعليق
شارك

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

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

.

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

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

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

 

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

بالتوفيق

رابط هذا التعليق
شارك

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

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

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

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

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

بالتوفيق

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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


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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

بالتوفيق

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

بالتوفيق

 

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

بالتوفيق 

رابط هذا التعليق
شارك

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

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

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

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

 

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information