رقم سري لفتح نموذج يحتوي معلومات سرية للغاية

[عبد اللطيف سلوم]

بناءا على طلب احد الاخوة 

مرفق قاعدة البيانات الرقم السري 12345

اتمنى من الاحبة الخبراء اثراء الموضوع بطرق اخرى اكثر احترافية

رقم سري.accdb

تم تعديل April 30 بواسطه عبد اللطيف سلوم
اضافة معلومة

[عبد اللطيف سلوم]

الرقم السري 12345

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[kkhalifa1960]

استاذ @عبد اللطيف سلوم اضافة لمسة بسيطة جعل ماسج ادخال الباسوورد نجوم (*****) .واخفاء الرقم السري بجداول النظام المخفية تفضل المرفق .

 

رقم سري.rar

تم تعديل مايو 1 بواسطه kkhalifa1960
اخفاء الرقم السري بجداول النظام المخفية

[عبد اللطيف سلوم]

12 ساعات مضت, kkhalifa1960 said:

استاذ @عبد اللطيف سلوم اضافة لمسة بسيطة جعل ماسج ادخال الباسوورد نجوم (*****) .واخفاء الرقم السري بجداول النظام المخفية تفضل المرفق .

 

رقم سري.rar 41.21 kB · 5 downloads

السلام عليكم 

هناك مشكلة

[kkhalifa1960]

استاذ @عبد اللطيف سلوم المرفق يعمل بكفاءة كما بالشرح . ووضحت لك مكان جدول النظام الذي به الباسوورد .

                                          

                                               

[عبد اللطيف سلوم]

53 دقائق مضت, kkhalifa1960 said:

استاذ @عبد اللطيف سلوم المرفق يعمل بكفاءة كما بالشرح . ووضحت لك مكان جدول النظام الذي به الباسوورد .

                                          

                                               

يمكن السبب انا عندي اوفيس 64 بت

وحضرتك عندك نظام 32 بت

المديول ضفت له ptrsafe

 

[kkhalifa1960]

نعم تمام .

[عبد اللطيف سلوم]

[kkhalifa1960]

تابع شرح استاذنا @jjafferr من هنا لتبديل المكتبات لتعمل على النواتين .

[Foksh]

11 ساعات مضت, عبد اللطيف سلوم said:

السلام عليكم 

هناك مشكلة

فعلا الكود يعمل على نظام 32 بكفاءة ، لكن على نظام 64 فلا يعمل عند إضافة الجزء Ptrsafe كما حاول الأستاذ @عبد اللطيف سلوم 😉 .

لربما موضوع أستاذنا جعفر واسع النطاق وأساس الإجابة كما تفضل استاذ خليفة .

تم تعديل مايو 2 بواسطه Foksh
عدم ظهور الردود الأخيرة إلا بعد الرد ، لذا وجب التعديل

[Ahmos]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
الملف المعدل يعمل علي النواتين 32x and 64x
بالتوفيق

A_رقم سري.zip

[عبد اللطيف سلوم]

57 دقائق مضت, Ahmos said:

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
الملف المعدل يعمل علي النواتين 32x and 64x
بالتوفيق

A_رقم سري.zip 71.59 kB · 1 download

[شايب]

23 ساعات مضت, عبد اللطيف سلوم said:

هناك مشكلة

 

11 ساعات مضت, Foksh said:

فعلا الكود يعمل على نظام 32 بكفاءة ، لكن على نظام 64 فلا يعمل عند إضافة الجزء Ptrsafe

 

11 ساعات مضت, Ahmos said:

تفضل أخي الكريم
الملف المعدل يعمل علي النواتين 32x and 64x
بالتوفيق

السلام عليكم

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

long

 الى 

LongLong

او  الى 
LongPtr

وسوف يعمل البرنامج ويختصر عدة اسطر من الكود

اخير LongPtr ليس نوع بيانات حقيقي وانما يتوافق مع الاصدرين 32 و 64 بحيث يتحول الى long مع 32 و longlong مع 64

 

ايضاح اخير يمكن تقيد فتح النموذج الاخير بحيث لا يمكن فتحه الا من خلال زر الامر بعد كتابة الرمز الصحيح

ولكن نكتفي بهذه المشاركة

اخونا الشايب

 

رقم سري.accdb

[شايب]

1 ساعه مضت, شايب said:

بعد اضافة Ptrsafe

علما بان اخينا الفاضل شايب سبق ان اشار الى موضوع مشابه في هذة المشاركة ⬇️

اقتباس

الشايب

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

وانا فايت لاقيت استاذنا الجليل اخوانا  @شايب  قلت فى نفسى لا لابد من المرور والقاء السلام

ومشاركة مع احبائى فى الله اليكم فكرة بدون دوال وهى الاحب الى قلبى

الشرح 

1- انشاء وحدة نمطية عامة 
وظيفتها الاعلان عن متغيرات عامة وهى كالاتى

Public strPasswordPrompt As String
Public boolPasswordPrompt As Boolean

 

2- ننشئ نموذج لكلمة السر على ان يكون اسمه frmPasswordPrompt
وبه مربع النص لكتابة كلمة السر على ان يكون اسمه txtPassword
زر امر التأكيد على ان يكون اسمه btnConfirmation
ونضع الكود الاتى لزر الامر

 

  boolPasswordPrompt = True
  strPasswordPrompt = Nz(Me.txtPassword.Value)
  DoCmd.Close acForm, Me.Name

وهنا نطلب منه انه يلحق القيمة True الى المتغير العام boolPasswordPrompt
وان يلحق القيمة التى سوف يتم كتابتها فى مربع النص  txtPassword  الى المتغير العام strPasswordPrompt
ثم يغلق النموذج

زر امر الالغاء على ان يكون اسمه  btnCancel
ونضع الكود الاتى لزر الامر

  boolPasswordPrompt = False
  DoCmd.Close acForm, Me.Name

وهنا نطلب منه انه يلحق القيمة False الى المتغير العام boolPasswordPrompt
ثم يغلق النموذج
 

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

والان الية استدعاء هذا النموذج للعمل 
على زر الامر المراد قتح النموذج السرى من خلاله نضع الاكواد الاتية
 

    Const CORRECT_PASSWORD As String = "123"
    Const MSG_ENTER_PASSWORD As String = "Please enter a password to proceed."
    Const MSG_INCORRECT_PASSWORD As String = "Incorrect password. Operation canceled."
    Const MSG_PROCEED_SUCCESSFULLY  As String = "proceed successfully!"
    Const MSG_OPERATION_CANCELED As String = "Operation canceled"

    Do
        DoCmd.OpenForm "frmPasswordPrompt", , , , , acDialog

        Select Case True
            Case boolPasswordPrompt
                Select Case True
                    Case Nz(strPasswordPrompt, "") = ""
                        MsgBox MSG_ENTER_PASSWORD, vbExclamation
                    Case strPasswordPrompt <> CORRECT_PASSWORD
                        MsgBox MSG_INCORRECT_PASSWORD, vbExclamation
                    Case Else
                        MsgBox MSG_PROCEED_SUCCESSFULLY
                        DoCmd.OpenForm ChrW("1587") & ChrW("1585") & ChrW("1610")
                        Exit Do
                End Select
            Case Else
                MsgBox MSG_OPERATION_CANCELED, vbExclamation
                Exit Do
        End Select
    Loop

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

 

رقم سري.accdb

[عبد اللطيف سلوم]

اشكركم على المرور 

[شايب]

6 ساعات مضت, ابو جودي said:

قلت فى نفسى لا لابد من المرور والقاء السلام

وعليكم السلام ورحمة الله اخي محمد

6 ساعات مضت, ابو جودي said:

ولكن ان اردنا العمل اكثر احترافية ومرونة من خلال الاكواد فى وحدة نمطية انظر المرفق

عمل رائع ومتميز وغير مستغرب من استاذنا الفاضل @ابو جودي الذي تعلمنا ومازلنا نتعلم منه الكثير 🌹

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

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

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

انظر هنا ⬇️ 

اقتباس

 

مداخلات اخونا الشايب تمثل رأي غير ملزم وليس الهدف منها انتقاد عمل الاخرين

لذا نقول لمن يمر خذ او اترك