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

قفل نموذج او كبسة command برقم سري


Tarekfathallah

الردود الموصى بها

حياك الله أخي طارق :rol:

 

انا زرت موضوعك اكثر من مرة بالامس ، وما فهمت المطلوب :blink: ، فانتقلت الى الرد على اسئلة اخرى :rol:

لذا ، وكما طلبت منك سابقا ، رجاء توضيح المطلوب بالتفصيل  وخطوة خطوة ، وبأمثلة اذا لزم الامر :rol:

 

 

جعفر

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

الشكر لك اخ جعفر السؤال هو طريقة لقفل نموذج لدي برقم سري لا يمكن الدخول اليه الا عبر وضع كلمة سر او كبسة command لفتح النموذج لاتفتح الا عند ادخال الكود

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

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

للرفع

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

السلام عليك اخ ابو عيشه وشكرا لمرورك , غير صحيح ليس هذا المطلوب ك

المطلوب لدي نموذج form  لا يفتح الا بكود يعني لازم تطلعلي صفحة وتقولي ادخل الكود لتستطيع الدخول ( اعتقد انه يتم تركيبه على كبسة الزر command )

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

وشكرا (كما يتم في قاعدة البيانات عند اقفالها برقم سري )

للرفع

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

السلام عليكم أخي طارق 

 

انا عملت لك المرفق على عجالة ، واستوردت شوية وحدات نمطية من برامجي :rol:

 

البرنامج عبارة عن قسمين:

- BE وفي الجداول (جدول واحد حاليا) ، وكلمة السر هي jj 

- FE وبه نموذج ، وكلمة السر لفتح النموذج هي 1234

 

الخطوة الاولى هي ربط FE  بالـ BE :

افتح النموذج بالطريقة العادية ، وسوف يطلب منك معرفة اين الـ BE ، وعندما تختاره وتدخل كلمة السر jj ويفتح النموذج ، اغلق النموذج.

 

الآن شغل البرنامج بالطريقة العادية ، وستلاحظ اللي طلبته موجود :rol:

 

 

جعفر

297.FE_BE_Password_Both.zip

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

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

للرفع

شكرا لمرورك اخ حلمي نعم هذا فيما خص كبسة الكومند ولكن ماهي كلمة السر واين اضعها في الموديول وشكرا لك

للرفع

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

تفضل هذا المرفق الجديد ، وان شاء الله يعمل المرفق واللي فيه :rol:

 

اما الكود ذو الـ 1000 سطر ، فهو لإعادة ربط الـ FE مع BE ، ولا تهتم فيه ، فهو يعمل في الخلفية ولا يؤثر على شئ :rol:

 

وممكن تستفيد من فكرة الاخ bhelmy وتستخدمها بدل الطريقة اللي انا عملتها لفتح النموذج ، بس اول شئ جرب برنامجي مثل ماهو :rol:

 

 

جعفر

 

297.FE_BE_Password_Both_mdb.zip

ولما تنتهي من هذه الخطوة ، يجب عليك حماية قاعدة البيانات بالكامل ، ومنع استعمال زر الشفت والدخول على البرنامج في هيئة التصميم ، وهذا الرابط يعطيك المطلوب:

http://www.officena.net/ib/topic/62892-الحماية-من-برنامج-الغاء-وتمكين-الشفت-shift/

 

جعفر

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

اخ جعفر ادامك الله ووفقك هذا ما اريده ولكنني كيف ساطبقه على برنامجي وماذا سأستورد لبرنامجي ليتم عليه وهل تنفع هذه الطريقة اذا كنت اعمل ضمن مجموعة عمل وشكرا سأرسل لك قاعدة بياناتي   اليوزر tarek  الباسورد 26180

 

للرفع   عذرا لم استطع الرفع سوى هكذا 

https://onedrive.live.com/redir?resid=F60EA5D0AE635104!420&authkey=!AEDL4dW8zgsfR5A&ithint=file%2crar

شكرا لك

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

للرفع

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

اعتذر عن التاخر في الرد

كلمه السر موجوده في Modules1

 

Public Function TEST()
Dim strAdminPWord As String
strAdminPWord = InputBoxDK("Password required to proceed.", "Enter Licence Code")

If strAdminPWord = "password" Then
    MsgBox "cool Password Correct ", vbOKOnly, "success"
    DoCmd.OpenForm " Form2 "
   
   
 
Else
    MsgBox ("You entered an invalid password")
   ' Exit Sub
End If
End Function

2 دقائق مضت, bhelmy said:

اعتذر عن التاخر في الرد

كلمه السر موجوده في Modules1 بالون الاحمر

واسم الشاشه بالون الاخضر

 

Public Function TEST()
Dim strAdminPWord As String
strAdminPWord = InputBoxDK("Password required to proceed.", "Enter Licence Code")

If strAdminPWord = "password" Then
    MsgBox "cool Password Correct ", vbOKOnly, "success"
    DoCmd.OpenForm " Form2 "
   
   
 
Else
    MsgBox ("You entered an invalid password")
   ' Exit Sub
End If
End Function

 

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

5 ساعات مضت, tarek_f26180 said:

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

 

ايش رايك بكلمة سر متغيرة :rol: ، يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة :rol: ،شوف الرابط وبقية المشاركات والمرفقات:

http://www.officena.net/ib/topic/59387-إزالة-اشارة-الصح-من-خانة-الاختيار-بكلمة-مرور/#comment-383007

 

 

جعفر

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

اخ جعفر حياك الله الرجاء افادتي من خبرتك عن كيفية تطبيق

البرنامج عبارة عن قسمين:

- BE وفي الجداول (جدول واحد حاليا) ، وكلمة السر هي jj 

- FE وبه نموذج ، وكلمة السر لفتح النموذج هي 1234

 

الخطوة الاولى هي ربط FE  بالـ BE :

افتح النموذج بالطريقة العادية ، وسوف يطلب منك معرفة اين الـ BE ، وعندما تختاره وتدخل كلمة السر jj ويفتح النموذج ، اغلق النموذج.


قسمت قاعدة بياناتي ولكن لم اعرف ماذا يجب استيراده من مويولات وعلى اي نموذج

للرفع

https://www.dropbox.com/s/8gx3ci8bixhpz77/tito.rar?dl=0

https://onedrive.live.com/?id=F60EA5D0AE635104!421&cid=F60EA5D0AE635104

https://onedrive.live.com/redir?resid=F60EA5D0AE635104!421&authkey=!AFIdkYE3NII48Yg&ithint=folder%2cLNK

تم تعديل بواسطه tarek_f26180
رابط هذا التعليق
شارك

السلام عليكم أخي طارق :rol:

 

الشئ الوحيد الذي لم اعمله هو ان اضع كلمة السر على النموذج ، حيث انك لم تذكر اسم النموذج الذي تريد ان تضع عليه كلمة السر!!

وسؤال آخر ، ما دمت تستخدم ملف الحماية mdw ، فما الداعي لعمل نموذج خاص للإسم المستخدم وكلمة السر؟

فإذا كنت تريد ان تستخدم اسم المستخدم لأغراض التحكم في الصلاحيات ، فتستطيع عن طريق User and Group Permissions ان تفعل ذلك ،

واذا اردت اسم المستخدم لأي سبب كان ، فهو موجود في CurrentUser :rol:

 

اليك طريقة عمل كلمة السر لجزء الجداول:

افتح برنامج الاكسس (ليس برنامجك ، ولكن الاكسس شخصيا :rol:) ، ثم

332.Clipboard02.jpg.9c5c403398afa6a6e99e

.

332.Clipboard03.jpg.497147ae16dca204de27

.

وكلمة السر التي استعملتها هي jj

332.Clipboard04.jpg.35cf1826b78341fe43c1

.

وعندما تغلق البرنامج وتفتحه مرة اخرى:

332.Clipboard05.jpg.fa638bd3781fb6254d47

.

اما كيفية وما هي الكائنات المطلوب استيرادها من FE اللي انا عملته ، فاليك الخطوات:

افتح برنامجك FE ، ثم:

332.Clipboard06.jpg.06c05b6b8cf1502ad253

.

النموذج هذا ، حتى نستخرج منه طريقة عمل كلمة سر فتح النموذج ، ثم نستطيع حذفه من البرنامج

332.Clipboard07.jpg.45f8eb24f374e2ed062d

.

الماكرو AutoExec معناه انه اول شئ يشتغل لما تفتح برنامجك ، ولا داعي للذهاب الى اعدادات البرنامج واختيار النموذج الاساسي ليفحه البرنامج عند تشغيله ،

وسنتكلم لاحقا عن هذا الماكرو

332.Clipboard08.jpg.cd6847e479d44c8000ba

.

الوحدة النمطية basJStreetAccessRelinker تقوم بربط FE مع BE كلما لم يجد الـ FE جداول BE في مكانها ، وستلاحظ عند فتحك FE لأول مرة ، انه يفتح لك نافذة ويطلب مكان BE ،

اما الوحدة النمطية m_Turn_Off فقد عملتها لجعل البرنامج يشغل ويملئ الشاشة ، ولا يعطي المستخدمين ادوات التصميم:

332.Clipboard09.jpg.dda1a5268e003f904382

.

وقبل استعمال البرنامج ، يجب تعديل الماكرو AutoExec حتى يقوم بالخطوات التي نريدها 

332.Clipboard10.jpg.9de28a5914186e9860eb

.

نغلق البرنامج ، ثم نفتحه ، فيطلب منا مكان BE (اول مرة فقط)

332.Clipboard15.jpg.9eefa6f5e4eaecfa3fc2

.

ولأن BE محمي ، فعند الربط بين FE و BE لأول مرة ، فيجب ادخال كلمة السر (وكلمة السر jj ، وستدخلها مرة واحدة فقط ، ولن يطلبها منك البرنامج مرة اخرى)

332.Clipboard16.jpg.1f0eda3cea6732e35759

.

 

الى هنا وانتهينا من ربط FE و BE ، ولكن هناك بعض الامور الاخرى التي تستطيع عملها لتسهيل عملك ، او لزيادة الامان:

يمكنك ان تستخدم الاختصار (عادة تضعه على سطح المكتب) ، وتضع فيه اسم المستخدم وكلمة السر ، وعند النقر عليه مرتين ، لا يسألك عن كلمة السر ، وطبعا هذا ممكن ان تستخدمه انت كمصمم ، ولا تسمح للمستخدمين ان يدخلوا بياناتهم:

332.Clipboard051.jpg.262c84657c61ca067ef

.

وهذه هي المعلومة كاملة (طبعا لازم تغيرها حسب بياناتك وبيانات كمبيوترك) ، وطبعا يستطيع اي شخص يفهم الاكسس ان يدخل الى هنا ومعرفة اسم المستخد وكلمة السر ، لذا انتبه لها ، او لا تستعملها اصلا:

332.Clipboard052.jpg.ab3285f52575fdd6e22

.

هناك شئ آخر استعمله انا في برامجي ، وهو نوع من الحماية ايضا ، وهو انك لا تسمح للبرنامج ان يفتح اذ لم يُفتح عن طريق اختصار المكتب ، فالبرنامج يعطي رسالة بانك غير مخول ، ثم يغلق البرنامج ، هذا مفيد اذا احد المستخدمين اخذ نسخة من البرنامج ، فلن يشتغل له في البيت (طبعا كلامنا كله ليس عن الشخص الخبير بالاكسس)

ولعمل هذا ، نضع الكود على اول نموذج يتم فتحه (وهو نفس المكان الذي نضع عليه كلمة سر النموذج):

332.Clipboard17.jpg.71dc22c9c3b6087f2fbc

.

والكود هو:

332.Clipboard18.jpg.62f35751dda81233967f

.

 

جعفر

332.tito.zip

تم تعديل بواسطه jjafferr
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

مبدع استاذنا جعفر بارك الله فيك

 حلو موضوع الشورت كت دا ... بس شوية شوية علينا  ...

مثلا انا عندي برنامج اسمة ABC  وموجود على البارتشن D 

عند فتح البرنامج من البارتشن D لا يفتح ويعطينى الرسالة السابقة " غير مخول بالدخول ثم يغلق البرنامج " ... وانما يفتح فقط من الشورت كت الموجود على الديسك توب

هل هذا الفهم صحصيح  ام انا فهمت خطأ ؟؟؟؟

حيث انني قمت بوضع الكود المذكور عند الفتح  ولكن يعطيني الرسالة فى  الحالتين ( البرنامج الاصلي وايضا برنامج الشورت كت )

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

 

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

وعليكم السلام :rol:

 

اولا ، جزء الاختصار اللي على سطح المكتب ، واسم المستخدم اللي فيه ، وكلمة السر:

1. فهذا كله يعمل فقط اذا كنت تستعمل mdb ولا يعمل على accdb ،

2. ويعمل فقط اذا عندك ملف مجموعة العمل mdw .

 

اذا كانت الشروط هذه متوفرة عندك ، رجاء اكتب لي المعلومات اللي وضعته في الاختصار .

 

 

جعفر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information