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

Ali Mohamed Ali

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    11643

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    296

 نوع المحتوي 

كل منشورات العضو Ali Mohamed Ali

  1. Ali Mohamed Ali
    أهلا بك اخ كريم بالمنتدى كان عليك استخدام خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/86688-مطلوب-كود-يجعل-شيت-الاكسيل-لا-يعمل-الا-على-كمبيوتر-واحد-فقط/ https://www.officena.net/ib/topic/86721-كيفية-منع-التعديل-على-الملفات/ بارك الله فيك
  2. Ali Mohamed Ali
    أحسنت بارك الله فيك وجزاك الله كل خير
  3. Ali Mohamed Ali
    بارك الله فيك وجزاك الله كل خير ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات
  4. Ali Mohamed Ali
    لأ طبعا لا ينفع من الأفضل ان تأتى بالمعادلات وذلك بصفحة الإستدعاء برقم الفاتورة سواء كانت مشتريات او مبيعات بارك الله فيك
  5. Ali Mohamed Ali
    لو ممكن رفع ملف pdf نفسه بارك الله فيك
  6. Ali Mohamed Ali
    تفضل هذا هو الكود والملف تمام الأن Sub QuitandSave() ThisWorkbook.Save Application.Quit End Sub برنامج_الشركة_2018-2019_الجديد.xlsm
  7. Ali Mohamed Ali
    تفضل هذا بالدالة المعرفة Reversestr Book1.xlsm
  8. Ali Mohamed Ali
    نعم وصل وتم عمل كل اللازم تفضل برنامج_الشركة_2018-2019_الجديد.xlsm
  9. Ali Mohamed Ali
    اهلا بك اخى الكريم بالمنتدى لك ما طلبت بمعادلات الصفيف البحث بين تاريخين.xlsm
  10. Ali Mohamed Ali
    أحسنت استاذى الكريم بارك الله فيك عمل رائع
  11. Ali Mohamed Ali
    هو فين موقع الرفع عشان يكون هناك استجابة ,عليك بعمل كوبى لموقع رفع الملف ولصقه هنا وذلك بعمل كليك يمين على الموقع ثم نسخ أو Copy وبعد ذلك لصقه هنا فى مشاركة جديدة بارك الله فيك
  12. Ali Mohamed Ali
    عليك وضع هذا الرابط ولكن تم العمل على ملف قديم لديك وتم انجاز كل المطلوب بارك الله فيك الشركات.xlsm
  13. Ali Mohamed Ali
    اهلا بك فى المنتدى عليك بتوضيح ما تريده على ملف بالتفصيل بارك الله فيك
  14. Ali Mohamed Ali
    لسه تحت الإنشاء ادعى لأستاذنا وخبيرنا عمرو ان ينهى وينجز البرنامج على خير بارك الله فيكم جميعا
  15. Ali Mohamed Ali
    وعليكم السلام يمكنك تجربة هذه البرامج Passware kit Forensic.V13.5.855 والأخر Reset VBA Password
  16. Ali Mohamed Ali
    بارك الله فيكم جميعا كلها حلول ممتازة ورائعة جزاكم الله كل خير ولك استاذى الكريم سليم هناط تغيير بسيط فى معادلة حضرتك فصاحب السؤال يريد ضرب درجة الخبير فى 175 % والكبير فى 200 % وليس العكس كما بمعادلة حضرتك فالمعادلة تكون كالتالى IF(OR(A2="",B2=""),"",A2*VLOOKUP(B2,{"بدون درجة",0;"الاولى",150;"الثانية",125;"الثالثة",100;"كبير",200;"خبير",175},2,0)/100)
  17. Ali Mohamed Ali
    أحسنت بارك الله فيك استاذى الكريم
  18. Ali Mohamed Ali
    فين الملف نفسه ؟!! بارك الله فيك
  19. Ali Mohamed Ali
    اهلا بك اخى الكريم بالمنتدى عليك برفع الملف وشرح ما تريده بالتفصيل حتى تلقى المساعدة بارك الله فيك
  20. Ali Mohamed Ali
    أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح ما تريده بالتفصيل بارك الله فيك
  21. Ali Mohamed Ali
    بارك الله فيك وجزاك الله كل خير
  22. Ali Mohamed Ali
    وهذا كود اخر ولكن بدون كلمة سر يمنع اضافة ورقة جديدة ايضا ويضاف فى حدث ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False ActiveSheet.Delete MsgBox "Sorry, Adding new Sheet is not allowed" End Sub
  23. Ali Mohamed Ali
    وعليكم السلام يمكنك اضافة هذا الكود فى حدث ThisWorkbook وكلمة السر : 123 Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim z z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "منتدى أوفيسنا") If IsNull(z) Or z = "" Or z = False Or z <> "123" Then Application.DisplayAlerts = False MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "منتدى أوفيسنا" Sh.Delete Application.DisplayAlerts = True End If End Sub
  24. Ali Mohamed Ali
    لا ينفع بالمعادلة كل هذا النطاق كما سميته انت انا فقط اريد نطاق العمود D بارك الله فيك
  25. Ali Mohamed Ali
    المعادلة تمام جرب بنفسك RECU_05.xlsm
×
×
  • اضف...

Important Information

  I accept