نجوم المشاركات

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم طريقة استدعاء أى برنامج من الاكسل من خلال القاعدة الأساسية الآتية : Call Shell("C:\TEST\TestApplication.exe", vbNormalFocus) لاحظ أخى الكريم مسار وامتداد البرنامج الذى نستدعيه ده يفرق كتير يمكن استدعاء Notepad Control PaneL taskmgr SnippingTool calc WORD POWERPNT iexplore Firefox كل هذا وأكثر ======= vbNormalFocus لجعل نافذة البرنامج الذى نستدعيه عادية vbMaximizedFocus للجعل نافذة البرنامج الذى نستدعيه مكبرة فى المرفقين التاليين أمثلة متعددة ومتنوعة لاستدعاء البرامج (متوافق مع ويندوز 7 ) أتمنى أن تستفيدوا منه لكم منى كل محبة وتقدير واحترام *************** Open any Program from Excel.rar games by mokhtar.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء إليكم طريقة سهلة وبسيطة جداً لكيفية إدراج رسم بياني داخل تعليق الشرح في الفيديو .. ويا ريت تقييم للفيديو : هل تم ضبط الصوت أم لا ؟ وإذا أعجبكم الفيديو فلا تنسونا من صالح دعائكم ، ولا تنسونا من لايكاتكم !! مرفق لكم ملف الشرح للتدريب عليه .. تقبلوا تحيات أخوكم أبو البراء Insert Chart In A Comment.rar

السلام عليكم أخى الفاضل جرب هذا الكود ولكن يجب تعديل تواريخ الأيام فى باقى الصفحات بحيث يكون مثل صفحة 2015 Sub ragab() Dim cl As Range Application.ScreenUpdating = False T = Range("B1").Text On Error Resume Next Set Rng = Sheets(T).Range("C2:ND2") For Each cl In Rng If Range("c2") = cl Then x = cl.Column Range("C3:C35").Copy Sheets(T).Cells(3, x).PasteSpecial xlPasteValues Application.CutCopyMode = False Exit For End If Next Application.ScreenUpdating = True End Sub حيث أن الكود يعمل تمام عند الترحيل الى صفحة 2015 Data.rar

مشاركة مع الأستاذ عبدالرحمن ضع الحدثين التاليين : Private Sub Form_Current() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub Private Sub التاريخ_AfterUpdate() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub بالتوفيق

تسلم ايدك استاذنا الغالى على فكرة عجبتنى قوى الفكرة دى

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

من جمال اعمالك ... لو في اكتر من اللايك ، كنت عملتهالك

تسلم لي يا باشمهندس ياسر فتحي ربنا يبارك فيك على كلامك الطيب .. جزاكم الله خيراً وفي انتظار مساهماتك ..عايزين الحركة الياسرية تغزو المنتدى (ياسر خليل - ياسر الشيخ - ياسر فتحي ..وربنا يسهل ونشوف كام ياسر كمان ونحتل المنتدى ..ولا أقولك بلاش ليمكن أ / محمد طاهر يزعل مننا ويعملنا حظر تجول في المنتدى ... سلامي للأستاذ الكبير ياسر طاهر أقصد محمد طاهر )

بارك الله فيك استاذ / YasserKhalil وجزاك الله خيرا

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

السلام عليكم الاخ والاستاذ الحبيب / YasserKhalil بارك الله فيك كل ما تقدمه بالفعل هو جديد حتي لو كان الموضوع قديماً فالجديد فيه روحك الجميلة وحبك لافادة الآخرين بكل وسيلة تقبل خالص تحياتي

عمل رائع وشرح رائع وصوت مميز وواضح وأسلوب راقى جزاك الله خيرا أخى الفاضل / ياسر خليل

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

كل الشكر لكم اخوتي العزاء على هذا ا لمجهود الكبير

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

وشكرا لكم مره اخرى بالتوفيق هو طلب ممكن كود يمكن من خلاله ان تظهر في العمود المنظم يبقى كده هو محتاج المرفق البرمجى اما الجزء من الثوانى مش عارف بصراحه اول مره اتعرض له ومش فاهم هو طالب الجزء من الثوانى ليه وفى ايه هيفيد وجوده تقبل تحياتى استاذ s s m وجزاك الله كل الخير على جهودك الاكثر من الرائعة

شكرا لكم اخي الكريم الطلب للاخ zoed2 وشكرا لكم مره اخرى بالتوفيق

استاذنا الغالى كل الشكر والتقدير وبهذا اكتمل المرفق الخاص بالاستاذه زهرة ام عهود نسال الله لها الخير ان شاء الله واليكم عدد 2 مرفق الاول مرفق الاستاذه زهرة وهو يعتمد فى الاساس على ملف فلاشى مرفق داخل مجلد قاعدة البيانات za-DigitalClock.rar المرفق الثانى يحتوى على ساعتين رقمية وعقارب داخل نموذج واحد وتم عملهم باكواد برمجه ساعه رقمية وعقارب بالاكسس.rar

أحسنت يا أبا البراء , ربنا يزيدك من فضله الصوت واضح والشرح كذلك كن ذا همة تصل للقمة

استاذ : ياسر ماشاء الله ، انت شعلة نشاط المنتدى ادامك الله لنا ... ولأهل بيتك تقبل تحياتي وصادق دعواتي جدك : حسن

اسف لم الحظ ذلك بالتوفيق New folder.zip

للعلم هذا المثال يعتمد على ملف فلاش ولم يتم ادراجه داخل الملف المضغوط وبالتالى عند فتح النموذج لن يتم عرض الوقت انظر الى الكود التالى Me.ShockwaveFlash1.Movie = Application.CurrentProject.Path & "\FlashClock.swf"

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

السلام عليكم تفضل اخي هذه هديه من طيبة الذكر الاستاذه زهره العبد الله (ام عهود) جزاها الله عنا خيرا بالتوفيق za-DigitalClock.zip

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

السلام عليكم ورحمة الله وبركاته مثال تطبيقى على الكود المدرج اعلاه khezzani HeureDansCellule.rar

أخي الفاضل السلام عليكم الاخ صاحب البرنامج كتب الكلمات عن طريق الخطوط والدوائر طبعا العملية تستاهل اذا عندك مشروع ، وعليه تغير الكلمة المطلوبة الى خطوط ودوائر ولكن للبسطاء مثلي ، اليك طريقة عمل ما اخبرتك سابقا: 1. عملت صورة بإسمي في PowerPoint ، ثم حفظتها كصورة بصيغة jpg: 2. ثم 3. والنتيجة ولأن الصورة مضمنة ، فحجم البرنامج كبير نسبيا ، غيره الى رابط وسيصبح الحجم تمام جعفر 36.WaterMark.mdb.zip

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

الأخ الحبيب سعد عابد (الغائب عنا الحاضر في قلوبنا) نورت الموضوع بردك الأخ الغالي أكرم جلال ..مشكور على مرورك (وعلى فكرة حليت لك مشكلة اللغة العربية بالنسبة للتبويب المخصص في الموضوع الخاص بهذا الأمر) تقبلوا تحياتي

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

شكرا لك على النقل وشكرا لابو البراء على الشرح

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

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

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

السلام عليكم الأخ الكريم / مصطفى أبو ملك بارك الله فيك كل شخص يري افضل حماية لملفه بالطريقة التي تناسبه فالبعض ( الذين لديهم خبرة ) لا يوجد لديهم ما يسمي بأن الملف محمي حيث من السهل كسر حمايته وخصوصا بعد كود الاستاذ / ياسر خليل -- الخاص بكسر الحماية ( مخلاش باقي حاجه ) علي الرابط http://www.officena.net/ib/index.php?showtopic=60289 والبعض ( المبتدئين ) اقل نوع من انواع الحماية يكون مثل السد العالي بالنسبة لهم والآخرين ( المتوسطين ) يتم خداعهم ببعض الطرق والخدع المتعددة وافضل طريقة لحماية الملف ( من وجهة نظري الفقيرة ) هو جعل ملف الاكسيل تنفيذي مع استخدام الكود المشار اليه في الرابط الموجود في المشاركة رقم 2 وبشكل أوضح يكون مثل البرنامج الموجود علي الرابط http://www.officena.net/ib/index.php?showtopic=56375 للأخوين القديرين ( ضاحي الغريب - شوقي ربيع ) تقبل خالص تحياتي

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

أخي الحبيب إبراهيم ذكرت أنه يتم تحويل الملف إلى الامتداد Xls وبعد ما يتم المطلوب ويتم كسر الحماية يمكنك تحويل الملف مرة أخرى إلى الامتداد السابق سواء Xlsm أو Xlsb .. ولكن انتبه أن يكون لديك نسخ احتياطي من الملف تحسباً لوقوع أي مشكلة .. أخي أبو سليمان محددتش نوع العسل (نحل ولا أسود !!) أكيد عسل إسود بس مش مهم أهو كله عسل أخيأبو حنين مشكور على مرورك الطيب العطر وجزيت خيرا بمثل ما دعوت

الأخ الحبيب عادل أبو زيد اشكرك على كلماتك الرقيقة ..جزيت خيراً ولك بمثل ما دعوت .. الأخ الحبيب خزاني لكم يسعدني مرورك بموضوعاتي المتواضعة ..بارك الله فيك الأخ الغالي عبد العزيز .. أي مفتاح تحتاجه إن شاء الله تلاقيه ..شد حيلك وشوف الأسرار عشان نتعلم منك فيما بعد الأخ الغالي حماد بيه عمر .. سلمت يداك وعشت وبارك الله فيك تقبلوا تحياتي إخواني الكرام

السلام عليكم الاخ الكريم / عبد العزيز البسكري بارك الله فيك انا واحد من الذين يحاولون تحميل الملف الخاص بك من الرابط الخارجي الموجود عليه الملف ولا يمكنني ذلك برجاء رفع ملفاتك الخاصة بمواضيعك وردودك علي المنتدي كمرفقات لسهولة التعامل بها وتماشيا مع سياسة وشروط المشاركات في المنتدي تقبل خالص تحياتي وشاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=44625

السلام عليكم ورحمة الله وبركاته اليك هذا الكود ThisWorkbook Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) StopChrono End Sub *--------------------------------------------------- Private Sub Workbook_Open() Chrono End Sub Module1 Option Explicit '--------------------------------------------------------------------------------------- ' Auteur : Ben amar khezzani ' Date : 03/04/2015 ' Sujet : Heure dans Cellule '--------------------------------------------------------------------------------------- Dim Temps As Date Public Sub Chrono() * برمجة الحدث كل ثانية Temps = Now + TimeValue("00:00:01") Application.OnTime Temps, "Chrono" Sheets("ورقة1").Range("D2").Value = Time End Sub Public Sub StopChrono() On Error Resume Next * توقف إدارة الحدث الزمن Application.OnTime Temps, "Chrono", , False On Error GoTo 0 End Sub

شكرا اخي الغالي ياسر الله يجعلها في ميزان حسناتك

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

السلام عليكم بارك الله فيك أخي العزيز وجعله في ميزان حسناتك أيوه كده حرك المياه الراكده

موضوع رائع يا حبيبي ياسر لكن هناك الاروع و هو من وضعه لدي تعليقان اذا كنت تسمح بذلك 1-لو تستطيع ان تضع في قائمة منسدلة ارقام الأعمدة لتوفير الوقت على المستخدم من الدخول الى الكود و اجراء التعديلات (حاجة سهلة جداً) لانه هناك الكثير لا يجيدون تعديل الكود و حفاظاً عليه من العبث عن طرق الخطأ.وهذه طريقة مطاطة اذا كان هناك اكثر من 5 أعمدة 2- في حال لم تكن الورقة تحتوي على الفلترة اجبار الكود على القيام بذلك

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

أنا عملت حاجة ..كل اللي عملته إني كنت ببعبش في حاجة فاكتشفت الحتة دي قلت أجرب عليها إني أكسر الحماية لاقيت الموضوع تافه ومش مستاهل لا برامج ولا إي إضافات ..وكله ميسر بأمر الله تقبل تحياتي أخي الكبير صلاح الكبير ..

وعليكم السلام ورحمة الله جرب هذا الكود في حدث عند تحميل النموذج If Me.ÇáÊÇÑíÎ.Value >= DatNow.Value Then save.Enabled = True Else save.Enabled = False End If test.rar