استفسار هل يمكن اخفاء صيغة المعادلة الكتوبة في الخلية دون حماية الورقة

[أم عبد الله]

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

أعزائي الأفاضل / أساتذة المنتدى الكرام

لي سؤال هل يمكن أن أخفي صيغة المعادلة المكتوبة في الخلية دون حماية الورقة ودون أن أخفي شريط الصيغة الموجود في خيارات من أدوات ولكم جزيل الشكر وجزاكم عنا كل خير0

[عبد الفتاح كيرة]

ممكن عند تحديد الخلية ذات المعادلة نشغل الحماية

وعند عدم تحديدها نلغى الحماية

ما رأيك ؟

[يحيى حسين]

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

أخي جرب هذا الكود فكرته جميلة و رائعة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Rng As Range

    Static Cell As Range

    Static TheFormula As String

    Set Rng = Range("A1:A20")

    If Not Application.Intersect(Target, Rng) Is Nothing Then

        If Not Cell Is Nothing Then

            Cell.Formula = TheFormula

        End If

        Set Cell = ActiveCell

        With Cell

            TheFormula = .Formula

            .Value = .Value

        End With

    Else

        With Cell

            .Formula = TheFormula

        End With

    End If

End Sub

[ياسر الحافظ]

الاستاذ يحيى حسين المحترم

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

لقلة وعدم معرفتي بالتعامل مع الاكواد

لقد حاولت ولكنني لم افلح

ارجو المساعدة

ياسر الحافظ

[يحيى حسين]

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

أخي شاهد الملف المرفق

Formula To Value .rar

[naderwatfa]

الكود أستاذ يحي في منتهى الروعة

و يقوم بحماية المعادلة في الخلية من المسح عن طريق الخطأ

تسلم إيدك

[aboushaheen]

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

[احمد فضيله]

الاخ العزيز الاستاذ / يحيى حسين

تسلم الايادي

كود رائع من استاذ رائع

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

[ياسر الحافظ]

الاستاذ يحيى

خبييرنا المميز دائما

ماذا عساي ان اقول سوى

وفقك الله ... ادامك الله

ياسر الحافظ

تم تعديل مارس 31, 2011 بواسطه hyasser