هدية متواضعة هدية مبكرة بمناسبة عيد الاضحى : 🎁 كيف تضغط ملف/مجلد zip وتحميه بباسورد او تفك ضغطه باستخدام الاكسيس 🎁

[Amr Ashraf]

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

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

 

وفى رأيى لا يمكن الاستفادة منها بهذا الشكل وبالتالى قمت بتصميم برنامج .Net يتكامل مع برنامج الاكسيس ويقوم بالتالى :

1- ضغط ملف / مجلد وحمايته برقم سرى .

2-فك ضغط ملف مضغوط برقم سرى .

نبذة عن منطق التصميم والبرمجة :

كان من الطبيعى انى اقوم بانشاء جدول او اكثر فى الاكسيس لحفظ البيانات المطلوبة ومسارات الملفات واقوم بقراءتها بالبرنامج الجديد ولكن فكرت فى طريقة اكثر احترافية وهى عمل المطلوب بالكامل فى الاكسيس وتمرير المسارات والارقام السرية من متغيرات VBA الى Arguments الخاصة بالبرنامج الجديد وكانت النتيجة جيدة بفضل الله .

يتم فتح البرنامج عن طريق هذا الكود :

Call Shell("""" & MyApp & """  """ & Operation & """ """ & strSource & """ """ & strDest & """ """ & zipPwd & """", 1)

حيث يتم تمرير نوع العملية اولا وذلك لأن البرنامج يقوم ب3 وظائف , وبالتالى نوع العملية تقوم بتوجيه البرنامج للوظيفة المطلوبة ثم بالمسارات والباسوردات الخاصة بها سواء ضغط او فك ضغط يقوم بترجمتها بمعرفته .

انظر للامثلة المرفقة :

مثال لضغط ملف وحمايته بباسورد بضغطة زر وبكل سهولة وسرعة :

 

 

مثال لفك ضغط الملف بالمثال السابق :

 

ملحوظة :

بالنسبة للامتداد الذى يتعامل معه البرنامج هو zip فقط وبالتالى لن يصلح لباقى الصيغ .

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

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

فى انتظار آرائكم ومقترحاتكم بعد التجربة .. دمتم بخير

 

 

 

Zip-UnZip Access Amr Ashraf.rar

تم تعديل يونيو 30, 2022 بواسطه Amr Ashraf

[ابو جودي]

حلوة الفكرة

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

 

شكرا لك ... وكل عام انتم بخير 

[Barna]

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

[Amr Ashraf]

56 دقائق مضت, ابو جودي said:

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

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

وانتم بخير وبصحة يا غالى.

 

 

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

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

وانتم بخير .. شرفنى مرورك استاذنا

تم تعديل يونيو 30, 2022 بواسطه Amr Ashraf

[HUSSIN]

 

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

وكل عام وأنت ومن تُحب بألف خير 👍

 

 

 

 

 

[Moosak]

شكرا جزيلا لك أخي @Amr Ashraf هدية رائعة كروعة صاحبها 🙂 

 

بشرنا أيش أخبار الـ #C  عندك ؟ 😊

[Amr Ashraf]

40 دقائق مضت, Moosak said:

شكرا جزيلا لك أخي @Amr Ashraf هدية رائعة كروعة صاحبها 🙂 

مرورك عطر كالعادة اخى موسى بارك الله فيك

 

 

40 دقائق مضت, Moosak said:

بشرنا أيش أخبار الـ #C  عندك ؟ 😊

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

تم تعديل يوليو 1, 2022 بواسطه Amr Ashraf

[Moosak]

2 ساعات مضت, Amr Ashraf said:

2 ساعات مضت, Moosak said:

 

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

أيش رايك تشاركنا تجربتك في قسم ال #C بالمنتدى ؟

أنا أيضا عندي توجه لتعلم هذي اللغة 😊

لعل الله يحيي القسم على يديك 😁👌🏻 

[Amr Ashraf]

17 دقائق مضت, Moosak said:

أنا أيضا عندي توجه لتعلم هذي اللغة 😊

اشجعك انك تتعلم اى لغة .net ولو بتدور على الاسهل هيبقى VB.NET وفى الآخر النتيجة واحدة بس هتبقى اسهل لأى مبرمج اكسيس انه يدخلها ويفهمها بسرعة , بالنسبة لى حبيت التجربة الجديدة وسينتاكس مختلف عشان ابتدى من الصفر والحمدلله التجربة جيدة .

 

19 دقائق مضت, Moosak said:

لعل الله يحيي القسم على يديك 😁👌🏻 

مبدأياً انا مازلت مبتدئ معنديش اللى يؤهلنى انى اقدم نصايح او دروس فيها حالياً , وخاصة ان على النت فيه عمالقة تشرح من الصفر للاحتراف .

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

 

[kanory]

هدية رائعة من شخص مبدع .... لي ملاحظتن :

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

الثانية : عند ضغط الملفات ذات الاسماء العربية تظهر في الملف المضغوظ على شكل علامات استفهام 

الثالثة : اشكرك على الهدية القيمة التي نحتاجها كثيرا وخاصة لعمل النسخ الاحتياطية ....

 

[Amr Ashraf]

17 دقائق مضت, kanory said:

هدية رائعة من شخص مبدع .... لي ملاحظتن :

منكم نتعلم يا استاذنا , تشرفت بمرورك العطر

17 دقائق مضت, kanory said:

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

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

 

18 دقائق مضت, kanory said:

الثانية : عند ضغط الملفات ذات الاسماء العربية تظهر في الملف المضغوظ على شكل علامات استفهام 

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

[Amr Ashraf]

@kanory تفضل يا استاذنا تم حل مشكلة اللغة العربية

 

Zip-UnZip Access Amr Ashraf .rar

[kanory]

اشكرك استاذي الفاضل اسرعة تفاعلك ... جعله الله في ميزان حسناتك .. 

[ابو البشر]

شكرا يا بطل .... هدية مقبولة ومشكورة

[محمد القدسي]

السلام عليكم 

هدية جميل اخي بارك الله فيك وزادك من فضله 

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

 

 

ولم احظى بجواب مما جعلني تركت موضوعي ونسيته

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

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

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

@Eng.Qassim جزاه الله خيرا

وجزا الله كل من افادنا وعلمنا في هذا الصرح المبارك

 

[Amr Ashraf]

1 ساعه مضت, محمد القدسي said:

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

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

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

ومع ذلك اعتقد ان الحل الوحيد لموضوعك على خطوتين :

1- بما ان البرنامج لا يستطيع ضغط القاعدة المحمية سنقوم فى الخطوة الاولى بحذف كلمة مرور القاعدة برمجيا  .

2- سنقوم بتشغيل برنامج الضغط كما شرحته فى هذا الموضوع وجعله محمى بكلمة مرور وترك القاعدة الاصلية بدون حماية وذلك لأن ما الهدف من حماية القاعدة بكلمة مرور فى حين ان الملف المضغوط نفسه محمى بكلمة مرور ؟ وبالتالى سيتم الاستغناء عن كلمة مرور القاعدة وترك الحماية على الملف المضغوط من الخارج .

اذا اردت تطبيق ذلك يمكننى عمله لك بعد العمل بإذن الله .. بالتوفيق

2 ساعات مضت, محمد القدسي said:

هدية جميل اخي بارك الله فيك وزادك من فضله 

جزاك الله خير على كلماتك العطرة

[أ / محمد صالح]

هدية رائعة

لو أمكن جعل الملفات المساعدة واحد فقط يكون أفضل

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

[Amr Ashraf]

استاذى الفاضل تشرفت بمرورك

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

وكل عام وانتم بخير وفى افضل حال بإذن الله .

[Ali Mohamed Ali]

كل عام وأنتم بخير بارك الله فيك استاذ عمرو

[Amr Ashraf]

وأنتم بخير وبصحة وفى افضل حال استاذنا الفاضل

[محمد القدسي]

اشكرك استاذي العزيز @Amr Ashraf 

وبارك الله فيك اخي واستاذي