كيف يمكن تطبيق مثل هذا الكود بالملف المرفق ؟

[ابو اياد ( الاسيوطى )]

السلام عليكم ورحمه الله وبركاته

 

اعضاء الصرح الكبير اوفيسنا الحبيب

 

كيف يمكن تطبيق مثل هذا الكود على الملف المرفق

 

مع العلم انى اريد ان يتم ألغاء جميع المعادلات وخلاياها محميه

 

جميع النطاقات ذات اللون الاصفر بها معادلات ومحميه كيف يمكن ألغاء المعادلات مع الاحتفاظ القيم الموجوده فى الخلايا

 

النطاق 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

[ابو اياد ( الاسيوطى )]

up

[شوقي ربيع]

السلام عليكم

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

يجب الغاء الحماية ليعمل الكود

Sub Test()
For Each cl In ActiveSheet.UsedRange
If cl.HasFormula Then cl.Value = cl.Value
Next
End Sub

[ابو اياد ( الاسيوطى )]

أستاذى الرائع // شوقى ربيع

 

اولا سعيد جدا لأنى رأيت صورتك فى مجلة أوفيسنا العدد الثانى

 

ثانيا كود جديد لم اره من قبل ولكن اريد اضافة شيئين اليه 

1- تحديد تاريخ ليقوم بعمله ( تحديد تاريخ عمل الكود وهو محو المعادلات )

2- حل لأن المعادلات سوف تكون محميه فهل يمكن اضافة كود اخر يقوم بفك الحمايه اولا ومن ثم محو المعادلات

 

اتمنى ان يكون طلبى ممكن التنفيذ

 

تقبل تحياتى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب ابو اياد

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

 

تم اضافه لكى يقوم الكود بفك الحمايه ... وثم وضع الحمايه مره اخرى 

وهى 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 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب ابو اياد

سوف يعمل الكود فى شهر يناير يوم 15 سنه 2015

ارجو ان يفى بالامر

كيف يمكن تطبيق هذا الكود2.rar

[شوقي ربيع]

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

[ابو اياد ( الاسيوطى )]

السلام عليكم

 

الاخ العزيز // ابو حنين ( اولا كيف حالك ارجو ان تكون بخير )

 

ثانيا الكود لا يعمل وعند التاريخ المحدد يهنج الملف ولا يفتح

 

ما تعلمتة من الكود هو مقسوم جزأن جزء فى THISWORKBOOK

هو الذى يجعل الكود الذى فى موديل يعمل 

 

وعندها يهنج الملف ولا يفتح

 

اضافات جيده وانتظرك بالحل السليم 100%

[ابو اياد ( الاسيوطى )]

استاذى الرائع // شوقى ربيع

 

الكود غير مفعل ولا يعمل حتى بعد مرور التاريخ

 

طبعا مكانه موديل صحيح ام لا

 

هل يمكن تفعيله بنفس طريقه اخى ابو حنين جربتها ولكن لم افلح

 

اضافه هذا الجزء

 

If Date > CDate("1/15/2014") Then

    Test

End If

بـ THISWORKBOOK

 

انتظرك

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب او اباد

الكود يعمل بصوره جيده

المطلوب تعير التاريخ من (#1/15/2015#)  الى (#1/15/2014#) فى THISWORKBOOK

واغلق الملف ثم فم بفتحه مره اخرى او عن طريق تاريخ الجهاز.

 

 

كيف يمكن تطبيق هذا الكود2.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم اخى ابو اياد

حل اخر بالكود الرائع لاخى شوقى غريب 

تم وضع كود اخى الحبيب شوقى غريب فى  THISWORKBOOK

وليس فى مديول 

الكود يعمل بعد مرور تاريخ  25/02/215

وتم تجربتة اكثر من مره ويعمل بصوره جيده

 

 

 

 

 

كيف يمكن تطبيق هذا الكود3.rar

تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[شوقي ربيع]

السلام عليكم

الكود يعمل 100/100

وهذا الملف المطبق عليه الكود

 

كيف يمكن تطبيق هذا الكود.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم اخى شوقى غريب

دائما مبدع... مصدر تعليم لنا جميعا  

كون الكود مرتبط ب SheetSelectionChange 

فذلك ابداع .. لان الكود سوف يعمل عند اى تغير يحدث

فى ذلك اليوم If Date = CDate("10/04/2014") Then

اما اذا اردنا ان يعمل الكود ابتداء من تاريخ محدد

If Date >= CDate("10/04/2014") Then

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

دائما الى الامام 

تم تعديل أبريل 9, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩