اخفاء الاكواد والدلات

[الشربيني123]

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

هل من كود يخفي كل الدلات والاكواد في برنامج الشيت ؟

اشكركم كل اعضاء المنتدى ..

[ياسر سيد أبوستيت]

ضع هذا الكود اخى فى حدث الصفحة

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.HasFormula = True Then

ActiveCell.Offset(0, 1).Select

ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select

ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select

End If

End Sub

 

 

[محمود_الشريف]

أخى الكريم

لم أفهم قصدك من كود  إخفاء الأكواد 

الأكواد لا يتم إخفاؤها إلا بحالة واحده وهو تحويل الملف إلى تنفيذى وهناك برامج متخصصة فى ذلك منها ما يعمل بالفعل ومنها تجريبية وغيره

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

وهى وضع باسوورد لمحرر الأكواد

أما فيما يختص بحماية المعادلات أيضا هى غير فعالة فى حالة حمايتها بكود والكود كل ما يفعله إما حجبها من رؤية المعادلة بشريط الصيغة

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

وأفضل حماية هى الحماية العادية ( وهى ليست فعالة أيضا ) ولكنها تؤتي بثمارها بحماية الخلايا من خلال باسوورد أى غلق الخلية من التعديل

وعدم فعاليتها بسبب برامج كسر الحماية