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

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

قام بنشر (معدل)

مشاركة معكم احبتي

يوجد حل آخر للحماية  بشروط ، او هي شرطين :

الاول ان من يعمل على البرنامج لا يشمله الحجب ( لأنه حين يكون متصلا بالجدول من داخل البرنامج ، يمكنه نسخه)

الثاني ان تكون الحماية على على الحقول النصية في الجدول فقط

الطريقة هي تشفير الجدول عند غلق البرنامج

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

حماية تشفير.mdbFetching info...

تم تعديل بواسطه Moosak
نقل المرفق للمشاركة الأولى
  • Like 2
قام بنشر
  في 14‏/11‏/2024 at 20:23, ابوخليل said:

الطريقة هي تشفير الجدول عند غلق البرنامج

Expand  

سيخنا الجليل ومعلمنا الجدير / ابو خليل

طب ماشى نجرب طريقة تشفير الجداول هو ممكن نشوف مثال صغير على التشفير

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

قام بنشر
  في 15‏/11‏/2024 at 12:19, ابوخليل said:

تفضل

Expand  

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

شوف استاذى المثال الذى ارفقته يعمل جيدا لحالة (لوحدة) ـ ولكن عند ارفاف الاكواد فى برنامجى عند شاشة الدخول اجد الجداول كلها وعددها حوالى 15 جدول لا تكون مشفرة

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

خصوصا فى شاشة الدخول التى تشتمل على كلمة سر واسم المستخدم .

جزاك الله خير

قام بنشر
  في 15‏/11‏/2024 at 13:39, الحلبي said:

 وعددها حوالى 15 جدول 

Expand  

 البرامج مهما كان حجمها وتوسعها غالبا لا تزيد الجداول المهمة فيها عن اثنين او ثلاثة

ومع ذلك يمكنك تشفير 100 جدول بضغطة زر

المهم ان الحقول الرقمية لا يتم تطبيق التشفير عليها .. فقط الحقول التي نوعها نصي

تفضل تم تعديل الملف ليتعامل مع الجداول مباشرة بدلا من النموذج

زر واحد للتشفير وفك التشفير .. نقرة واحدة للتشفير (انظر الجداول) والنقرة الأخرى لفك التشفير (انظر الجداول )

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

ويمكنك عمل متغيرات كشروط احتياطية عند التشفير وعكسه

حماية تشفير2.rarFetching info...

  • Like 1
قام بنشر
  في 16‏/11‏/2024 at 05:36, ابوخليل said:

ويمكنك عمل متغيرات كشروط احتياطية عند التشفير وعكسه

Expand  

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

هل فيه تغيير غير اضافة كود الجدول الجديد عند الزر

حماية تشفير2.mdbFetching info...

قام بنشر (معدل)
  في 16‏/11‏/2024 at 12:39, الحلبي said:

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

هل فيه تغيير غير اضافة كود الجدول الجديد عند الزر

حماية تشفير2.mdb 660 kB · 2 downloads

Expand  

مداخلة ، وقد سبقني اليها معلمنا @ابوخليل ، كنت اعمل على فكرة تقوم بتشفير جميع سجلات الجداول مرة واحدة بشكل مختلف قليلاً ويتيح للمستخدم تغيير مفتاح التشفير مع الإحاطة بأكثر من أمر أثناء عملية التشفير .

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

 

والموضوع الآخر هو أن الملف المرفق في مشاركة معلمي ومشاركتك أخي @الحلبي يعملان بشكل طبيعي عندي .

 

  في 16‏/11‏/2024 at 11:25, محمود حموده said:

 

السلام عليكم

Expand  

وعليكم السلام ورحمة الله وبركاته أخونا @محمود حموده .

تم تعديل بواسطه Foksh
  • Thanks 1
قام بنشر
  في 16‏/11‏/2024 at 13:03, Foksh said:

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

والموضوع الآخر هو أن الملف المرفق في مشاركة معلمي ومشاركتك أخي @الحلبي يعملان بشكل طبيعي عندي .

 

Expand  

شكرا اخي فادي للتنبيه .. تم فصل الموضوع

ويمكنك فتح موضوع خاص بك ان احببت .

  • Thanks 1
قام بنشر

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

استاذى ومعلمى / @ابوخليل

الان فقط تم تشفير الجدول الجديد المسمى master لانى استخدم نفس المثال المعمول على اوفيس 2003

وعند استيراد قاعدة البيانات على اوفيس 2010 لا يعمل التشفير فى الجدول الثالث

جرب حضرتك وشوف هل انا مصبوط ام الخلل من عندى

قام بنشر

البساطة والجمال والإتقان .. 😊🌼
شكرا ألف ..

ولكن يبقى الإشكال والتساؤل نفسه والذي طرحته في موضوع الأستاذ فادي @Foksh >> وهو عندما يفتح البرنامج أكثر من مستخدم كيف ستكون النتيجة ؟؟

جربت نسخ النموذج وفتحتهما معا على أعتبار أن هناك مستخدمين إثنين يعملان في نفس الوقت .. فكانت النتيجة كما ترى عيناك .. :rol:

image.png.c40709e587d8602407522c24d74ea192.png

قام بنشر
  في 17‏/11‏/2024 at 06:29, Moosak said:

جربت نسخ النموذج وفتحتهما معا على أعتبار أن هناك مستخدمين إثنين يعملان في نفس الوقت .. فكانت النتيجة كما ترى عيناك .. :rol:

 

Expand  

نعم صح

وازيدك من الشعر بيت "فيما لو فرضنا ضبط المسألة بطريقة ما" ..

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

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

  • Like 1
قام بنشر
  في 17‏/11‏/2024 at 07:18, ابوخليل said:

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

Expand  

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

  • Like 2
قام بنشر
  في 17‏/11‏/2024 at 07:18, ابوخليل said:

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

Expand  

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

 

  في 17‏/11‏/2024 at 06:29, Moosak said:

جربت نسخ النموذج وفتحتهما معا على أعتبار أن هناك مستخدمين إثنين يعملان في نفس الوقت .. فكانت النتيجة كما ترى عيناك .. :rol:

 

Expand  

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

انا متأكد ان الاستاذ / فادى سوف يجد الحل ان شاء الله

قام بنشر
  في 17‏/11‏/2024 at 06:29, Moosak said:

جربت نسخ النموذج وفتحتهما معا على أعتبار أن هناك مستخدمين إثنين يعملان في نفس الوقت

Expand  

استاذ @Moosak 

User جرب من جدول

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

وهذا الشرط 

يتأكد من جدول المستخدمين ان رقم الملف محجوز او غير محجوز وعدد المسموح من المستخدمين للدخول وفتح الفورم 

IF Dcount("[]","[]") = 0 then

docmd.openform ""

else

msgbox " User INTO Form PLZ Wiat "

exit sub

end if

واذا كان للادمن عدل على دالة 

if Dcount("[]","[]","[]"=[])=0 then

 بما يخص دخول المستخدم لرقم الفريد كان لرقم ملف او مدني قومي او لاي اصل فريد

وتقدر تزيد عدد بتغير 0 الى 2 او 3 او 4 او 5

بس

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

BE ......

يفترض لهذا الكود 

sub HL

Dim tg2 As String
Dim LH_Tablet As String
LH_Tablet = "رقم_الملف"

end sub 

HL

Dim tg2 As String
Dim LH_Tablet As String
LH_Tablet = "رقم_الملف"
Dim xyx00 As String
Dim sexx00 As String

xyx00 = DLookup("[" & DLookup("[B_tablet1]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'")
sexx00 = DLookup("[" & DLookup("[B_tablet2]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'")



If DLookup("[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", " [" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "] Like'" & [Forms]![ID_File_word]![SHX] & "' ") = [Forms]![ID_File_word]![SHX] Then

tg2 = DLookup("[path_drive_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & DLookup("[Folder_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "\" & xyx00 & "\" & sexx00 & "\File_" & [Forms]![ID_File_word]![SHX] & "\" & [Forms]![ID_File_word]![SHX]

'===================================

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

وما في احد يشفر 😏💯 

ما فهمت

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