زاكي بوشلاغم

بارك الله فيك اخي ربي جازيك اخي وشكرا جزيلا

ممكن تشرح كيفية حفظ ملف ماكرو بارك الله فيك

السلام عليكم اخي هذا الملف نرجو منكم حماية الخلايا في ورقة :ادخال نفقات Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E62:I62"), _ Range("E68:I68") _ Range("E74:I74") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then كمال نرجو منكم الشرح كيفية حفظ الملف لكي يكون الماكرو فعال وشكرا Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub casse 2026 .xlsx

شكرا اخي لكن عندما ادخل كود ماكرو في الملف واغلق الملف وعند فتح الملف لا يعمل ما الحل اخي

اريد كود الحماية الخلايا من e10 الى I10 من e13 الى I13 من e20 الى I20 من e27 الى I27 من e33 الى I33 من e46 الى I46 من e56 الى I56 من e59 الى I59 من e62 الى I62 من e68 الى I68 من e68 الى I68 حيث كود الحماية يكون هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Range("A2:K2") هنا ادراج جميع الحلايا المراد حمايتها لم اعرف كيف ادخلها من E13.الئ I13 ................ If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub

السلام عليكم اريد خلق ماكرو حمابة الخلايا كبف يتم ذلك

اين الملف

اخي لم تصلح معي اريد كود visual basic macro اي صنع ماكرو يقوم بحماية الخلايا المراد حمايتها مثل ماكرو المقدم لكم في الاعلى كيف اصنع ماكرو في ورقة ايكسل الخاصة بي

السلام عليكم عندي ملف ايكسل اريد. حماية بعض الخلايا بكود فيزيال بازيك كيف يتم ذلك شكل كود macro visual basic Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("e10,f10,g10,h10,i10") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub

شكرا جزيلا

هل من مجيب

لم يتم التعديل

الورقة محمية بكود ماكرو نتمنى فحص كلي لجميع الاسابيع لكي نتخلص من مشكل قيمة صفر السالب (-0)وشكرا

مشكل يظهر في الاسبوع الثاثي الاحد(2) رقم المنتوج 11 (ثوم) ورقة الإستهلاك اليومي جانفي100officena 2026.rar

اخي اذهب الى الاسبوع الاحد (2) في خانة طبيعة مواد المستهلاكة رقم 11 (ثوم )تجد مشكل غير في الخانة هذي وتستمر الى باقي الاسابيع ما الحل حيث خانات الاخرى سليمة وان امكن قم بتفحص جميع الخانات وشكرا . ورقة الإستهلاك اليومي جانفي100officena 2026.rar