احضر لي احدهم قاعدة بيانات ( على اللاكسس )
هذا لبرنامج له حماية بمعنى انك لايمكن ان تعدل على تصميمه
الا ان المبرمج لهذا البرنامج يستطيع الدخول واجراء التعديل المطلوب
بكلمة مرور .
مع اني شغلت البرنامج بطرق ( الشفت ، فتح خاص )
ولكن البرنامج لايفتح ولايطلب كلمة مرور
سؤالي : بأي طريقة يدخل المبرمج بحيث يطلب منه البرنامج كلمة مرور؟؟
مع ان البرنامج يعمل مباشرة (مع المستخدم) بدون كلمة مرور ؟؟
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
X = InputBox("Enter Password")
If X <> "xx" Then
MsgBox "you are not allowed to Pypass the open Dialog - sorry !!!", 64, "Bye Bye !!!"
DoCmd.Quit
Exit Sub
End If
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Functionالاخ العزيز محمد طاهر
لقد وضعنا الكود في الوحدة النمطية ولكن كان البرنامج لا يعمل ويدخل على الوحدة النمطية ويشير إلى "AllowBypassKey", فلا أعلم ما هي المشكلة بالضبط وجزاك الله خيراً
معذزة استاذنا الفاضل محمد طاهر
لم توضح اين يوضع الكود ولا متى يطلب كلمة المرور؟؟؟
وشكرا على تجاوبك
تحياتي
أحد الحلول كالتالي:
فى ماكرو
المسمي AUTOEXEC
الذي يفتح تلقائيا
نضع سطر
RUN CODE
و نختار اسم الدالة
التي نستدعي فيها الاجرتء الفرعي وليكن bypassit
------------------
نستدعي الروتين فرعي السابق ذكره فى الدالة
Function bypassit() SetBypassProperty End Function
و فيها نستدعي الدالة السابقة
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
X = InputBox("Enter Password")
If X <> "XX" Then
MsgBox "you are not allowed to Pypass the open Dialog - sorry !!!", 64, "Bye Bye !!!"
DoCmd.Quit
Exit Sub
End If
'If MsgBox(" Do you really want to perform the Bypass", vbYesNo, _
' " Bypass Confirmation") = vbNo Then
' DoCmd.Quit
' Exit Sub
'End If
'Const DB_Boolean As Long = 1
' ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Functionشكرا جزيلا لاستاذنا محمد طاهر وكذلك لــkwitown
ويبدو انني لم اوضح المطلوب بصورة جلية
وسؤالي هو كيف يمكن لقاعدة البيانات ان تفتح للمستخدم بدون كلمة مرور
وللمبرمج بكلمة مرور( بحيث يستطيع التعديل على التصميم )
وكلا المثالين السابقين منكما يطالب بكلمة مرور قبل فتح القاعدة
واسف جدا للازعاج
الاخ الفارابي
السلام عليكم ورحمة الله وبركاته
اليك هذا المثال وهو من صنع استاذنا الاخ ابو حمود ارجوا ان يكون هو المطلوب
جزاك الله خيرا ياطالب علم2002
وجميع الاخوان الذين شاركوا بالحل او حتى بالقراءة
لكن لبس هذا مطلوبي ، وطلبي هو :
هل يمكن ان اصمم قاعدة بيانات محمية تعمل مع المستخدم بدون كلمة مرور ومع المبرمج بكلمة مرور؟؟؟؟
فقط هذا سؤالي
فضلا من يعرف يفيدني ومن لايعرف يقول لااعرف
مع اصدق تحياتي للجميع بدون تحديد
أخي الكريم
السلام عليكم
أظن أن ما تقصده ليس فتح قاعدة البيانات بل هو الوصول للكود بمعنى أن ما تستطيع حمايته بكلمة مرور هو الكود أي الأوامر البرمجية لكنك لا تستطيع حماية تصميم النماذج والتقارير من التعديل لأن قاعدة البيانات التي تتحدث عنها ليست بصيغة mde فيستطيع المستخدم الوصول إليها في عرض التصميم لكنه إذا أراد الدخول إلى شاشة كتابة الكود فإنه يطلب منه كلمة مرور وهذا ممكن
أما إذا كنت تقصد غير ذلك فآمل توضيح ما رأيت بالضبط لأن ما ذكرته في الحقيقة فيه عمومية وعموض وهذا هو السبب في ذهاب الإخوة الأعضاء الذين أجابو ا على تساؤلك مذاهب شتى بعيدة عما أردت
تحياتي
أخوك / أبو هاجر
أخي الكريم الفارابي
السلام عليكم
في الملف المرفق تحدٍ لك إذا كنت مبدعاً فأنا أتحداك
والتحدي للجميع أزل الرسالة التي تظهر عند فتح نموذج 1 في قاعدة البيانات المرفقة
تحياتي
أخوك / أبو هاجر
هل معني ذلك أنه يوجد حل ؟؟ بدون معرفة كلمة سر الكود
هل حل برمجي أم بادوات خارجية ؟؟
ثالثا
هل وصلك الميل يا أبو هاجر أم لا ( أرسلته مرتين )
وعليكم السلام ورحمة الله وبركاته
غفر الله لك يا اباهاجر
انا لا استطيع ان اخلص نفسي من ابسط مشكلة في الويندوز ، فكبف بتحد من مبرمج مبدع ؟؟
نعم لدي برنامج يحتوي على قاعدتين
الاولى : بصيغة mdb
وتحتوي على ثلاثة جداول قابلة للتعديل
الثانية: بصيغة mde
وتحتوي على عدد من الجداول والاستعلامات ووحدات الماكرو (ممكن عليها التعديل) كما تحتوي على نماذج وتقارير ووحدة نمطية غير ممكن عليها التعديل.
والشخص( المالك) الذي احضرها لي اخبرني بان المبرمج الذي صممها لهم اذا طلبوا منه تعديل يحضر اليهم ويفتح القاعدة بكلمة مرور ويجري التعديل اللازم
وانهم طلبوا منه كلمة المرور وامتنع .
وانا بكل صراحة لا اريد ان افتح هذه القاعدة تحديدا (حفظا لحق المبرمج ) بل اسأل كيف يمكن عمل ذلك ؟
وانا متاسف جدا لإشغالكم بهذا ، فقط سألت
مع اصدق تحياتي للجميع
السلام عليكم
الأخ محمد طاهر
معذرة فلم أنتبه لرسالتك إلا الآن " ومش عارف أودي وشي فين " كما يقول الإخوة في مصر
وقد أجبت عليها مباشرة
الأخ الفارابي
لقد قصدت المزح معك أخي الكريم لكن كن متأكداً مما ذكرته لك فمن المستحيل التعديل على قاعدة البيانات المحفوظة بامتداد mde والأخ الذي ذكر لك هذا الأمر قد لا يكون لديه فكرة جيدة حول هذا الموضوع فتصور أن التعديل بكلمة مرور
مثلاً قد تكون الجداول في قاعدة بيانات مرتبطة ومحمية بكلمة مرور ففتحها وعدل في طول بعض الحقول أو خصائصها فتصور صاحبك أنه عدل في البرنامج
تحياتي واعتذاري لكما جميعاً وعلى فكرة كلمة المرور هي aaaa
أخوكم / أبو هاجر
وعليكم السلام ورحمة الله وبركاته
رحمك الله يا ابا هجر فقد اخجلتني وان كنت اعتز بان تحداني( ابوهاجر) حتى ولو لم انجح في التحدي . فيكفني ذلك و مزحك مقبول .
وبيض الله وجهك ، وجزاك الله خيرا
وشكرا للجميع،،،،،،،
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…