اخفاء الجزء الخاص بالجداول والتقارير برقم سري

[naguib_3778]

هل يوجد طرقة اخفاء تلك الجزء الموضح بالصورة برقم سري وعدم اظهاره إلا عند كتابة الرقم السري

[Ahmed Hassan 2000]

متابع 

[عمر ضاحى]

لا اعتقد ان هذا ممكنا 

لكن يمكن غلق الاكواد بكلمة مرور 

وتحويل قاعدة البيانات الى accdt 

وايضا غلق الشفت 

وممكن تنتظر اساتذتى الكرام بتقديم نصائح اخري 

[naguib_3778]

الفكره ان في جدول خاص بالحسابات ونسب وكلمات المررو

دي اللي يعرفها مدير النظام بس

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

عايز اي حاجه تحمي البيانات - ممكن يكون المستخدمين بيعرفو اكسس وبكده ممكن يظهروها لاني بالفعل عملها اخفاء

هل فى اي طريقه تكون اكثر أمناً لحماية الملفات ديه

 

 

 

 

تم تعديل أغسطس 4, 2022 بواسطه naguib_3778

[kanory]

هناك مواضيع عديدة لمعالجة هذه المشكلة منها هذا الموضوع ... وهناك موضوع لاستاذي @ابو جودي .. ولكن لم اعثر عليه الان .. ابحث عنه تجده في المنتدى ...

في 12‏/11‏/2019 at 20:16, kaser906 said:

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

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

تحذير من إستخدام كود إخفاء الجداول المرتبطة

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

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

فلم أجد افضل من طريقة  وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde

هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات

وهذا كان سبب طرحي لموضوع

هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟

وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات

فقررت وضع كلمة السر لقواعد البيانات !!!!!!!

لكن ماهو الحل مع المستخدم ؟

هل سنقوم بتسليمه كلمة السر ليستخدم  قاعدة البيانات اذا كأننا لمن نصنع شئ

ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم  والبرنامج ( الواجهة )

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

بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس  Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes.

بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde

بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes

ملاحظة

من المحتمل ان تظهر لديك  رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba

هنا اعتقد  يجب أن يكون الوندوز لديك محدث بأخر تحديث

ويجب أن تكون حزمة Microsoft .NET Framework  محدثة بأخر اصدار  حسب لغة الوندوز ونوعه عندك او كما يوجد لدي

انا عندي الحزمة Microsoft .NET Framework 4.5.1

 windos 10 

 office10  أخر تحديث

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

 

Free.rar 866.14 kB · 479 downloads

 

--------------------------------------

ملاحظات جعفر 14-7-2021 :

بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا:

1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ،

2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ،

3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde .

 

 

 

Locked.zip 568.43 kB · 106 downloads Locked_Open_Source.zip 1.18 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 106 downloads Open_Source.zip 1.18 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 103 downloads

 

[Moosak]

تفضل هذا طلبك أخي @naguib_3778 🙂 

Private Sub Command1_Click()
    Dim s As String
    s = InputBox("أدخل الرقم السري", "", "123")
    
    If s = 123 Then
    '--------------------------------(إخفاء الريبون والنفجيشن بان)
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
'    Hide Navigation Pane:
    DoCmd.NavigateTo ("acnavigationcategoryobjecttype")
    DoCmd.RunCommand (acCmdWindowHide)
    End If
End Sub


Private Sub Command0_Click()
    Dim s As String
    s = InputBox("أدخل الرقم السري", "", "123")
    
    If s = 123 Then
     '--------------------------------(إضهار الريبون والنفجيشن بان)
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane
    End If
End Sub

 

Hide Navigation Pane.accdb

[HUSSIN]

 

        👍👍👍

[ابو طارق سعيد]

في 4‏/8‏/2022 at 19:33, Moosak said:

تفضل هذا طلبك أخي @naguib_3778 🙂 

Private Sub Command1_Click()
    Dim s As String
    s = InputBox("أدخل الرقم السري", "", "123")
    
    If s = 123 Then
    '--------------------------------(إخفاء الريبون والنفجيشن بان)
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
'    Hide Navigation Pane:
    DoCmd.NavigateTo ("acnavigationcategoryobjecttype")
    DoCmd.RunCommand (acCmdWindowHide)
    End If
End Sub


Private Sub Command0_Click()
    Dim s As String
    s = InputBox("أدخل الرقم السري", "", "123")
    
    If s = 123 Then
     '--------------------------------(إضهار الريبون والنفجيشن بان)
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane
    End If
End Sub

 

Hide Navigation Pane.accdb 448 kB · 57 downloads

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

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

وشكرا