ابو اياد ( الاسيوطى ) قام بنشر أبريل 7, 2014 مشاركة قام بنشر أبريل 7, 2014 السلام عليكم ورحمه الله وبركاته اعضاء الصرح الكبير اوفيسنا الحبيب كيف يمكن تطبيق مثل هذا الكود على الملف المرفق مع العلم انى اريد ان يتم ألغاء جميع المعادلات وخلاياها محميه جميع النطاقات ذات اللون الاصفر بها معادلات ومحميه كيف يمكن ألغاء المعادلات مع الاحتفاظ القيم الموجوده فى الخلايا النطاق A4:I73 بشيت CHARTOFEXPACC النطاق A6:F109 بشيت acc النطاق A6:BX506 بشيت REP النطاق E5:BV16 بشيت TOTAL أليكم الكود الذى اريد تطبيق مثله Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub كيف يمكن تطبيق هذا الكود.rar رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر أبريل 8, 2014 الكاتب مشاركة قام بنشر أبريل 8, 2014 up رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 السلام عليكم هذا كود بسيط لمحوى جميع المعادلات في أي صفحة عمل كانت ويضع مكانها القيمة التي تحويها يجب الغاء الحماية ليعمل الكود Sub Test() For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next End Sub 3 رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر أبريل 8, 2014 الكاتب مشاركة قام بنشر أبريل 8, 2014 أستاذى الرائع // شوقى ربيع اولا سعيد جدا لأنى رأيت صورتك فى مجلة أوفيسنا العدد الثانى ثانيا كود جديد لم اره من قبل ولكن اريد اضافة شيئين اليه 1- تحديد تاريخ ليقوم بعمله ( تحديد تاريخ عمل الكود وهو محو المعادلات ) 2- حل لأن المعادلات سوف تكون محميه فهل يمكن اضافة كود اخر يقوم بفك الحمايه اولا ومن ثم محو المعادلات اتمنى ان يكون طلبى ممكن التنفيذ تقبل تحياتى رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 (معدل) السلام عليكم اخى الحبيب ابو اياد استعانه بالكود الجميل الذى اضافه اخى الحبيب شوقى ... جزاه الله كل الخير تم اضافه لكى يقوم الكود بفك الحمايه ... وثم وضع الحمايه مره اخرى وهى 123 ارجو ان يفى بالامر Sub Test() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "123" For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value ActiveSheet.Protect "123" Next End Sub كيف يمكن تطبيق هذا الكود.rar تم تعديل أبريل 8, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩ 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 السلام عليكم اخى الحبيب ابو اياد سوف يعمل الكود فى شهر يناير يوم 15 سنه 2015 ارجو ان يفى بالامر كيف يمكن تطبيق هذا الكود2.rar 1 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 1111 غيره بالباسورد الحماية لديك Sub Test() If Date >= CDate("15/05/2014") Then ActiveSheet.Unprotect (1111) For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value Next ActiveSheet.Protect 1111, DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر أبريل 8, 2014 الكاتب مشاركة قام بنشر أبريل 8, 2014 السلام عليكم الاخ العزيز // ابو حنين ( اولا كيف حالك ارجو ان تكون بخير ) ثانيا الكود لا يعمل وعند التاريخ المحدد يهنج الملف ولا يفتح ما تعلمتة من الكود هو مقسوم جزأن جزء فى THISWORKBOOK هو الذى يجعل الكود الذى فى موديل يعمل وعندها يهنج الملف ولا يفتح اضافات جيده وانتظرك بالحل السليم 100% رابط هذا التعليق شارك More sharing options...
ابو اياد ( الاسيوطى ) قام بنشر أبريل 8, 2014 الكاتب مشاركة قام بنشر أبريل 8, 2014 استاذى الرائع // شوقى ربيع الكود غير مفعل ولا يعمل حتى بعد مرور التاريخ طبعا مكانه موديل صحيح ام لا هل يمكن تفعيله بنفس طريقه اخى ابو حنين جربتها ولكن لم افلح اضافه هذا الجزء If Date > CDate("1/15/2014") Then Test End If بـ THISWORKBOOK انتظرك رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 السلام عليكم اخى الحبيب او اباد الكود يعمل بصوره جيده المطلوب تعير التاريخ من (#1/15/2015#) الى (#1/15/2014#) فى THISWORKBOOK واغلق الملف ثم فم بفتحه مره اخرى او عن طريق تاريخ الجهاز. كيف يمكن تطبيق هذا الكود2.rar رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 (معدل) السلام عليكم اخى ابو اياد حل اخر بالكود الرائع لاخى شوقى غريب تم وضع كود اخى الحبيب شوقى غريب فى THISWORKBOOK وليس فى مديول الكود يعمل بعد مرور تاريخ 25/02/215 وتم تجربتة اكثر من مره ويعمل بصوره جيده كيف يمكن تطبيق هذا الكود3.rar تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩ رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 السلام عليكم الكود يعمل 100/100 وهذا الملف المطبق عليه الكود كيف يمكن تطبيق هذا الكود.rar رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 (معدل) السلام عليكم اخى شوقى غريب دائما مبدع... مصدر تعليم لنا جميعا كون الكود مرتبط ب SheetSelectionChange فذلك ابداع .. لان الكود سوف يعمل عند اى تغير يحدث فى ذلك اليوم If Date = CDate("10/04/2014") Then اما اذا اردنا ان يعمل الكود ابتداء من تاريخ محدد If Date >= CDate("10/04/2014") Then وجزاك الله خيرا على مساهماتك فى وضع حلول ابداعايه دائما الى الامام تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.