hicham2610

الأستاذ الكريم بالفعل اطلعت على كل من Index Decaler Equiv جزاك الله خيرا

السلام عليكم من فضلكم المرجو شرح مفصل لهذه المعادلة المركبة من index و décaler و equiv المعادلة في المرفقات وجزاكم الله خيرا المعادلة.rar

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

السلام عليكم من فضلكم قفلت رؤية و تغيير الأكواد من خصائص المشروع في vba جيد لكن ، رغم حماية الورقة التي بها أزرار الماكرو و في أي ماكان من الورقة تخرج عبارة الورقة محمية يجب تجاوز حماية الورقة برقم سري لكن عند الضغط باليمين على الزر يمكن يمكن رؤية لائحة الأكواد وأسمائها هل من إمكانية لإخفاء لائحة الأكواد وأسمائها عند الضغط بالأيمن على الزر؟ وجزاكم الله خيرا

الإخوة الكرام وجدت هذا الحل: أضعه هنا تعميما للفائدة: Private Sub Worksheet_Change(ByVal Target As Range) Dim ict1 As Range Set ict1 = Intersect(Target, Range("D18:F86")) If ict1 Is Nothing Then Exit Sub With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub

السلام عليكم من فضلكم كيف أحمي مجال:D18:F86 من ورقة في ملف XLSM به أكواد vba لكي لايكتب فيها المستخدم أو يغيرها لكن كود vba يشتغل على هذا المجال و دون قفل للورقة بكاملها لأن هناك خلايا أخرى يمكن للمستخدم التغيير فيها وجزاكم الله خيرا

السلام عليكم الأخ الكريم: ياسر خليل أبو البراء جزاك الله خيرا واتابك الجنة فقد اتبعت نصائحك ونحج معي الأمر مرة أخرى جزاك الله خيرا واتابك الجنة

السلام عليكم للأسف أخي الكريم فذلك ما قمت به سابقا فهو ينجح في إخفاء الأوراق لكن يصبح البرنامج لا يعمل لاحظ الفيديو المرفق أخي الكريم http://up.top4top.net/downloadf-416ficat1-rar.html والملف أرسلته سابقا إسمه:.rar3 يمكن التجريب عليه

السلام عليكم للأسف أخي الكريم جربت أكثر من مرة ولم أفلح الأخ الكريم ربما لم نتفاهم في المطلوب فالمطلوب:أن المستعمل لما يفتح الملف: PIS لاتظهر له 1 -2-3-4-observations تظهر له فقط:"تقديم "و"البرنامج" وعند الضغط على الزرين في ورقة :"البرنامج" يعملان بدون مشاكل أرفقت لك الملف في المشاركة السابقة ضع لي الكود فيه جزاك الله خيرا الرقم السري الذي وضعت لإخفاء الأكواد:(الضغط على المسطرة 3 مرات) جزاك الله خيرا أستاذنا الفاضل

السلام عليكم للأسف أخي الكريم لم ينجح معي الأمر أرفقت لك الملف لعمل اللازم بحيث أريد إخفاء الأوراق عن المستعملين:1-2-3-4-observations من الملف المبرمج PIS لكن عند تنفيذ الأمرين في ورقة: البرنامج لاتخرج رسالة الخطأ الرقم السري لإخفاء الأكواد:(الضغط على المسطرة 3 مرات) وجزاكم الله خيرا 3.rar

السلام عليكم من فضلكم عندي ملف مبرمج إسمه: A.xlsm به 5 أوراق أريد إخفاء 3 أوراق أسماؤها: على التوالي: 1 و 2 و OB بحيث الأوراق 1 و 2 مبرمجة للنسخ من أوراق خارجية و 0B بها معادلات وسيتم نسخ عمود منها ولصقه في ورقة خارجية المهم ينقصني فقط كيفية : إخفاء 1 و 2 و OB عن المستعمل دون خروج رسائل الخطأ وجزاكم الله خيرا

السلام عليكم حللت المشكلة وأضعها هنا لمن أراد الاستفادة منها: Workbooks("1.xlsx").Close savechanges:=False Workbooks("2.xlsx").Close savechanges:=False Workbooks("3.xlsx").Close savechanges:=False ThisWorkbook.Close savechanges:=False

السلام عليكم من فضلكم عندي ملف إسمه A.XLSM متضمن لأكواد البرمجة ويشتغل على ملفات خارجية مفتوحة أريد كود vba أضعه في النهاية لغلق الملفات التالية بعد الاشتغال عليها : الملفات المطلوب غلقها 1.XLSX 2.XLSX 3.XLSX والإبقاء على ملف إسمه مفتوحا: 4.XLSX ويغلق ك كذلك ملف البرمجة:A.XLSM دوت حفظ التغييرات ودون إظهار رسالة التحذير وجزاكم الله خيرا

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

جزاك الله خيرا للأسف أستاذي الفاضل لم ينجح معي الحل المقترح بقيت نفس تلك النافذة المزعجة تخرج وضعت الكود هكذا: Private Sub Worksheet_Activate() ActiveSheet.UnProtect Password:=" " Rows("18:86").EntireRow.Hidden = False [Rng].EntireRow.Hidden = True ActiveSheet.Protect Password:=" " End Sub الباس:3مرات المسطرة

الأخ الكريم محمود_الشريف جزاك الله خيرا و جعلك من الذين يخففون عتن الناس كرب الدنيا فينفس الله عنك كرب الآخرة جربت الأول فنجحت العملية وسأجرب الثاني وسينجح إن شاء الله جزاك الله خيرا

السلام عليكم من فضلكم عند حماية ورقة بإخفاء المعادلات لكي لايتلاعب به شخص ما طبقت هذه الطريقة: https://yasserkhalilexcellover.blogspot.com/2016/04/hide-formulas-by-sheet-protection.html?showComment=1487019584929#c23028461720726577 لكن عند تنفيذ الماكرو لا تنفذ المهمة وتخرج نافذة: الكود المستعمل في الورقة المعنية: Private Sub Worksheet_Activate() Rows("18:86").EntireRow.Hidden = False [Rng].EntireRow.Hidden = True End Sub وجزاكم الله خيرا

الإخوة الكرام هل هذا الأمر غير ممكن؟؟

السلام عليكم من فضلكم إن كان ممكنا جعل ملف XLSM يعمل لمدة معينة مثل البرامج مدة تجربية إن كان ممكنا كود ذلك وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته الإخوة الكرام ملف إكسيل من نوع xlsm مبرمج لكن عند التنفيذ تخرج نافذة هل تريد حفظ التغييرات / لا لحفظ التغييرات/ إلغاء لا يبقى الملف مفتوحا إلا إذا ضغطت إلغاء أما إذا ضغطت حفظ التغييرات أو لا لحفظ التغييرات يقفل الملف كيف أبرمجهه ليبقى مفتوحا دون الضغط على إلغاء وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته الإخوة الكرام أريد ترحيل ماكتب بالعمود بالعمود I من ورقة الملاحظات من المرتب c.xlsm ابتداء من السطر 18 إلى أخر سطر به كتابة وليس تحديده في السطر39 والملف الذي سيستقبل هذه المعطيات هو المرتب : 2.XLSX الورقة:NotesCC بحيث عدم جعل العمود المستقبل ثابثا فهو متغير حسب المادة بحيث يبحث عن العمود الذي عنوانه ملاحظات الأستاذ في السطرين 16و17 ويلصق الملاحظات ابتداء من السطر 18 الملف في المرفقات وجزاكم الله خيرا 2.rar

الأخ الكريم الشهابي جزاك الله خيرا على اهتمامك والتفاتتك لطلبي إلا أنه أيها الأخ الكريم ذلك الترحيل الذي أنجزت ينجح فقط مع الملفين المرفقين ولا ينجح مع ملفات أخرى أريد الترحيل أن يرحل الملاحظات للملف 2 ورقة NotesCC كيفما كانت المادة فقط باعتبار النسخ يكون في عمود ملاحظات الأستاذ أدرجت لك ولكل من أراد تقديم يد المساعدة مادتين أخرتين اللتين لم يجح معهما الترحيل, للإشارة فقط فعمود الملاحظات متغير حسب المادة لكن خانة عنوانه دائما بين السطرين 16و17 والملاحظات تبتدئ من السطر 18 جزاكم الله خيرا مواد أخرى.rar

المرجو المساعدةرجزاكم الله خيرا

هل هذا الترحيل غير ممكن؟

هل من اقتراحات جزاكم الله خيرا