abouelhassan

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

استاذ- سليم حاصبيا مشكور بعد اذنك هل بالامكان اضافة للكود فى اخر سطر اضافة مجموع يقوم بجمع ما فوقه كما بالصورة ربنا يكرمك يااستاذى مشكور اخى واستاذى بارك الله فيك استدعاء.xlsm

مجهود محترم بارك الله فيك بعض التقارير لا تعمل مشكور

قد يفيدك هذا الكود لاحد اساتذة المنتدى بعد انتهاء فترة الصلاحية يطلب كلمة السر 1234 فتتجدد الصلاحية Option Explicit Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2020") Then M = MsgBox("انتهت الفترة التجريبية اذا كان لديك كلمة المرور فاضغط نعم", vbCritical + vbYesNo, "تأكيد") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ" Application.Quit End If: End If: End If: End If 1 End Sub

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

الاخوة اساتذة المنتدى احتاج ضبط هذا الكود الذى يمنع التغير فى نطاق معين من اوراق العمل ككل واستثناء 5 صفحات من التنفيذ Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim i% For i = 5 To Sheets.Count If Sheets(i).Name <> "sheet3" Then If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If Else If Not Application.Intersect(Target, Range("a1:j5")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True Next i End With End If End If End Sub منع التغير فى الخلايا واستثناء عدد5 صفحات.xlsm

شكر وتقدير واحترام استاذنا

بارك الله فيك استاذنا

شكر وتقدير واحترام استاذ سليم رائع

بارك الله فيك استاذ أ / محمد صالح شكر وتقدير واحترام من اخيك

روائع ودرر تسلم يمينك هذا المطلوب والله من قلبى ربنا يبارك لك يارب ويحفظك ويسترك اللهم امين استاذى الغالى قوى لقلبى احترامى

مثل هذا استاذى اطار حول الخلية اكبر من 0.xlsx

ربنا يحفظ حضرتك يارب استاذى الكريم خالص الاحترام والتقدير والعرفان والشكر

الاساتذة اخواتى الافاضل احتاج تنسيق شرطي لاخفاء السطر اذا كان الخلايا من b:g كلها صفر واظهاره بمجر كتابة رقم فى اى خلية من b:g مع خالص الشكر والتقدير والاحترام تنسيق شرطى لاخفاء الصف اذا كانت الخلاياxlsm.xlsm

شكر وتقدير واحترام استاذ سليم بارك الله فيك

عجزت أستاذى

حاضر دائما لا حرمنا منك يارب مشكور استاذى تمام ربنا يحفظ حضرتك يارب شكر وتقدير واحترام من اخيك

الاخوة الافاضل هل من الممكن امدادنا بكود لمنع تغير ترتيب اوراق العمل داخل المصنف وكذلك منع نغير اسمائهم على ان يكون الكود بالحدث thisworkbook ليتم التنفيذ لكامل المصنف مع الشكر والتقدير منع تغير اسماء اوراق العمل وتغير ترتيبها.xlsm

شكر وتقدير واحترام من اخيك

استاذى الحبيب لقلبى سليم حاصبيا انا سارقها من كود لحضرتك هههههههههههههههه Dim Arr(1 To 3) Arr(1) = "estdaa": Arr(2) = "nakdia": Arr(3) = "Report_Youmi": Match = IsError(Application.Match(Sh.Name, Arr, 0)) If Not Match Then GoTo Next_Sheet انا احبك فى الله

الحمد لله استاذى اتحلت المشكلة غيرت فى الكود هذا السطر For i = 6 To Sheets.Count واخفيت الاصفار بالتنسيق الشرطى احترامى وتقديرى لشخصك الكريم جداااا ربنا يكرمك يارب ويحفظك يارب اخيك باحترام

اسف استاذى تفضل اريد استثناء الصفحات الاربعة بعد data مع شكرى وتقديرى واحترامى ولو الخلية من e3.f3.g3.h3.i3 بها رقم صفر الكود لا يستدعى الصفر يتركها فارغة مع شكرى وتقديرى واحترامى استدعاء الرصيد.xlsm

تسلم ايدك ربنا ما يحرمنا منك ابداااااااااااااا يا باشا رائع جدااااااااااااااااااااااااااااااااااااا ربنا يحفظك ويسترك ويكرمك كل احترامى انا احتاج استثناء صفحات استاذى صفحة Report_Youmiوصفحة estdaa وصفحة transfer وnakdia بارك الله فيك ولك وبك

اخواتى فى الله بارك الله فيكم لدى مصنف به50 شيت اريد استدعاء الرقم المكتوب فى الخليةe3.f3.g3.h3.i3 لصفحة اسمها data احترامى وتقديرى استدعاء.xlsm

شكر وتقدير واحترام