الفدعاني

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

السلام عليكم ورحمة الله هل يمكن التعديل على الكود على ان يعطي رسالة عند نهاية المدة( يعني رسالة واحدة ) عند الانتهاء التي تم تحديد عدد فتح الملف Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 10 Then MsgBox "Used for 10 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save End Sub

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

ممكن ان يفيدك

اخي الكريم اذهب الى ادراج ثم كائن ثم موجة صوتية ( wav sound) اشر على ان شاء من ملف وابحث عن الصوت على ان يكون بامتداد wav ثم اوكيه: ويظهر رمز الصوت اضغط على خصائص وعدل التنشيط التلقائي الى جلب التركيز واذهب الى تمكين وعدلة الى نعم

اشكرك استاذي جمال الفايز والمثال رائع جدا جزاك الله خيرا واتمنى لك وللاسرة سفره سعيده وبحفظ الله ورعايته :f4: :f4:

بارك الله فيك اخ جمال فايز

العفو اخي الكريم موفق ان شاء الله

اذا قصدك ( علامات تبويب الاوراق) اي الورقات اللي تحت تستطيع اضافة ما تشاء من الاوراق يمين الماوس ثم ادراج وهكذا

الاخ على انا عايز يكون توقيت (( مثلا صباح الخير)) او (( في المساء مساء الخير )) جزاك الله خيرا

كيف عمل كود شاشة افتتاحية على ان يكون فيها الوقت صباحا او مساء على حسب توقيت الجهاز DoCmd.Close acForm, "Startup", acSaveYes DoCmd.OpenForm "Employees" End Sub :lol:

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

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

هذا برنامج تعاوني للاخ الكريم ابو احمد ولكن يوجد صفحات مخفية كيف يتم اظهارها وتم فك الحماية عن الصفحات ولاكن الذي اراه يوجد صفحات مخفية كهذا الكود كود =IF(ISNA(VLOOKUP(D7;معلومات;2;FALSE));"";VLOOKUP(D7;معلومات;2;FALSE)) وهذا =IF(ISNA(VLOOKUP(D7;القرض;4;FALSE));"0";VLOOKUP(D7;القرض;4;FALSE)) وليست الاسماء هذه موجوده في اسماء الاوراق ارجو من الاخوان المساعدة يوجد رابط في منتدى الفريق العربي للملف؟؟؟ لان المنتدى لايفتح عندي من مدة يومين ولكم جزيل الشكر؟ الملف في منتدى الفريق العربي

استاذي الكريم ابو مؤنس الصفحة الاولى عليها حماية وكيف تم الغاء تسلسل الارقام لغاية رقم 39 جزاك الله خير كيف ارجع التسلسل حق الاكسل واضافة الاعمدة B11:CN36 اين cn36 وفرز الاسماء لغاية B10:B44 واشكرك اخي ابو مؤنس على هذه الدروس القيمة وجعلها في ميزان حسناتك اخو ابو خالد

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

بسم الله الرحمن الرحيم تحياتي للجميع =if(c5<40,d5*c5,40*d5+(c5-40)*d5*1.5) =if(c4="north",d4*5%,if(c4="south",d4*5.5%,d4*6%) ويظهر عندي ( تحتوي الصيغة التي كتبتها على خطأ ) هل الخطأ من الاكسل ام من الصيغة ؟ الاكسل ( 2002 )

اشكر الاخ المهندس/ محمد طاهر والاخ صاحب الفكرة مصلح الحريصي وكذلك الاخ ابو مؤنس و ان شاء الله اشارك بقدر استطاعتي (y)

انسخ هذا الرابط ثم ضعه في المتصفح http://www.geocities.com/hosamnoor/SHOW.zip

من القائمة ـ ادراج ـ صورة ثم من ملف

اخي biskra صراحة لم اعرف شئ داخل الموقع ( بيني وبينك الانجليزي صفر على الشمال) اكرر شكري لك اخي الكريم

بارك الله فيك اخي الكريم ارشدني الي موقع يوجد فيه add-ins

اشكرك اخي الكريم ولكن فتحت وظائف اضافية فلم اجد فيها شي

السلام عليكم ورحمة الله اين توجد هذه الاداة (Add-Ins) بحث عنها في الاكسس فلم اجدها والاصدار اكس بي لتنزيل شرح عن طريق تغيير الازرار

اختي الكريمه هلا هل يوجد كراك او رقم تسجيل للبرنامج Universal Document ولكي جزيل الشكر