محمد عبد الناصر

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

???

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

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

هو اشتغل تمام مع الملف اول مره لما فعلت الماكرو وبعد كده مطلبش الباسورد بس لما اخدت الملف كوبى وفعلت الماكرو مطلبش باسورد

??????????

ربنا يعزك ويجعلو فى ميزان حسناتك ان شاء الله شكراااااااااا جدااااااااااا

عن الخليه E1 الى هيه عندى رقم إقامة العمال

حضرتك الملف مرفق اهو واسف انى مرفعتوش انا عايز لو البيانات الى عايز اعملها امر ترحيل لو موجوده فى شيت "تقرير" مينقلهاش بس mmmm.rar

السلام عليكم ورحمة الله وبركاته ؛؛؛؛ ده كود بنقل بيه بيانات من "Sheet1" الى "تقرير" المشكله فى الكود ده ان لو دوست على امر الماكرو والبيانات دى موجوده فى "تقرير" بينقلها تانى انا عايز لو البيانات دى موجوده مينقلهاش بس Sub TARHEEELL() Dim FS As Worksheet, TS As Worksheet Dim R, ER1, ER2 Set FS = Sheets("Sheet2") Set TS = Sheets("تقرير") FS.Select FS.Range("bf2:bz2").Copy For ER2 = 6 To TS.UsedRange.Rows.Count + 15 If TS.Cells(ER2, 2) = "" Then TS.Range("B" & ER2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False GoTo 15

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

ربنا يرحمو يارب ويسامحو ويغفرلو ويجعل مثواه الجنه

عن طريق هايبر لينك اسهل طريقة

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

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

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

؟؟؟؟؟؟؟؟؟؟؟

؟.؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ايه يا جماعه مفيش حد عارف يحل الموضوع ده

السلام عليكم ورحمة الله وبركاتة ؛؛؛؛ عايز كود عند تفعيل الماكرو فى اكسيل يطلب منى باسورد يعنى اول لما افعل الماكرو يطلب الباسورد

ليها حل دى يا جماعه الموضوع انا عاملو من امبارح انا اسف

؟؟؟؟

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

تمام حضرتك بس المشكلة كده لو المستخدم لعب فى تاريخ الجهاز ورجعو ليوم ورى الملف هايفتح عادى :D

اسلام عليكم ورحمة الله وبركاتة ؛؛؛ عايز مساعده فى الملف المرفق ده فى زى امر بدوس عليه بحول بيانات معينه من Sheet1 الى شيت "تقرير" المشكله ان لما بدوس على الامر ده والبيانات دى موجوده فى شيت "التقرير"بينقلها تانى يعنى بيعمل منها نسخه تانى فى التقرير عايز لما ادوس على الامر ده لو البيانات دى موجوده فى التقرير مينقلهاش اعتمادا على رقم الإقامه Book1.rar