عبد العزيز البسكري

السلام عليكم و رحمة الله و بركاته
أخي الكريم عيسى العامري ..هذا مثال للعديد من الأمثلة لهذا النوع من الملفات ذات الصلاحيّة المحدودة ..الكود بالصورة رقم 1 في الذيس وورك بوك وبه يتم تحديد تاريخ الدخول بكلمة المرور و المشار إليه بالسهم الأخضر .. والسهم الأحمر لتاريخ صلاحية الملف بشكل عام .. يمكنك الاستغناء على هذا التاريخ .. فقط للشرح و التّوضيح.
الكود بالصورة رقم 2 في حدث اليوزرفورم ذاته .. و هو لكلمة المرور الخاصة بدخول الملف  ..وقد اخترت هنا كلمة المرور بالاسم الكريم " عيسى العامري "
التاريخ المحدّد هنا للدخول بكلمة المرور هو :30/09/2015
جرّب تغيير هذا التاريخ إلى تاريخ أقل من تاريخ اليوم الذي نحن فيه .. سيُطلب منك كلمة المرور
                      خالص احتراماتي


 
الملف.rar

السلام عليكم و رحمة الله و بركاته
أخي شاهد الصورة في الملف و غيّر ما يجب تغييره
تحياتي / عبد العزيز البسكري
المثال 2.rar

السّلام عليكم و رحمة الله و بركاته
تفضّل أخي زوهير هذا الملف وهو عبارة عن مزيج بين أكواد ملفك و أكواد ملفي
أخوك / عبد العزيز البسكري
 
زوهير للتعديل.rar

السلام عليكم و رحمة الله و بركاته
عيد مبارك
كود الأستاذ محمدي عبد السميع لتغيير الكتابة للغة العربية :
Private Sub Workbook_Open()
hosami "00000401", 1
End Sub
وهذا الكود الموجود في الملف لكلمة المرور :
Private Sub Workbook_Open()
Dim pwd As String:  pwd = "123456"
Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("برجاء إدخال كلمة المرور للدخول للبرنامج", "كلمة المرور", "") <> pwd Then
        Sheets("شاشة دخول").Activate
        MsgBox "الباسورد غير صحيحة ", 0, "كلمة المرور"
        Application.DisplayAlerts = False
        ThisWorkbook.Close
        Application.Quit
        Exit Sub
    Else
        MsgBox "مرحباً بك", 32, "دخول ناجح"
        Range("A1").Activate
    End If
    Feuil1.Activate
    hosami "00000401", 1
End Sub
عليك سيدي الفاضل أن تضع بين عينيك دائما و أبدًا أنه لا يمكن في THISWORKBOOK كتابة الأجزاء الملونة بالآحمر مرتين أو ثلاثة أو أربعة..مثلا عندك كوديْن أو ثلاثة طبعا كلها سوف تبدأ بنفس الأجزاء الملونة بالأحمر
ما عليك فعله هو أخد عبارة PRIVATE SUB WORKBOOK OPENوتكتبها أعلى الكود وتأخذ عبارة END SUB و تضعها أسفل الكود وتقوم بجمع كل أكوادك التي سوف تضعها في ال THISWORKBOOK بدون هذه الأجزاء الملونة بالآحمر شاهد الصورة والجزء الخاص بتغيير اللغة العربية باللون بالأخضر أين هو
تحياتي / عبد العزيز البسكري

MAYAM 3.rar

تفضّل سيدي الكريم ..
 
 
نموزج فاتورة+اصيل 3.rar

السلام عليكم و رحمة الله و بركاته
تفضّل سيدي الكريم .. أرجو أن تقرأ ما بداخل الكود لو سمحت
 
أكرم جلال 2.rar

السلام عليكم و رحمة الله و بركاته ..
إضافة لما تقدم به أستاذنا الغالي ياسر خليل .. بارك الله فيه و زادها بميزان حسناته .. ربما أبو إلياس يقصد القائمة المنسدلة عن طريق الكومبوبوكس و ليس التاكست بوكس .. إذا كان ذلك كذلك قد تجد بعض الشرح في الملف المرفق أدناه ..
تحياتي / عبد العزيز البسكري
 
أبو إلياس.rar

السلام عليكم و رحمة الله و بركاته
لاحظ الصورة المرفقة لو سمحت .. لا يمكن كتابة Sub WorkBook_Open مرتين ..

نموزج فاتورة+بحث4.rar

معذرة أخي الفاضل هذا إذا كنت تريد إظهار عمود واحد في الكومبوبوكس .. أمّا بالنسبة لإظهار عموديْن في الكومبوبوكس فستجده في الملف المرفق  و أيضا جعلت في هذا الملف إضافة بسيطة لإظهار التاريخ من اليمين إلى اليسار في التاكست بوكس الخاص بالتاريخ 
كما في الصورة .

الملف 4.rar

لو كنت مكانك لحذفت هذا السطر من أساسه..وخلّي لي صارْ يصيرْ
تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

بعد إذن أستاذنا خزاني .. كمحاولة للمساعدة تابع الملف
http://www.up-00.com/?iglq

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

بارك الله فيك و جزاك الله خيرًا أستاذي الفاضل ياسر ; زادها في ميزان حسناتك.. ..الكود يعمل تمام التمام و الدوائر الحمراء تظهر في النطاق المطلوب و الخلايا المطلوبة ..

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

يا أستاذي الغالي .. يا أبا إيمان .. فعلاً تم التّصحيح .. وهذا هو المطلوب بالتّمام و الكمال .. أشكرك جزيل الشكر على المساعدة و التجاوب الطيّب ..تحياتي و احتراماتي كذلك لأستاذي القدير ابن علية حاجي و أستاذي الفاضل مختار حسين محمود .. بارك الله فيكم جميعًا و جزاكم الله خيرًا وزادها في ميزان حسناتكم ..أدعو الله أن  ييسّر أموركم كما يسّرتم أموري ..

تمام التمام .. يا غالي .. فهمت الشرح و الحمد لله..جزاكم الله خيرا وأحسن الله إليكم وسدد الله خطواتكم ..بارك الله فيك و في أمثالك و جعله في ميزان حسناتكم  و وفقكم لكل خير ..