كتابة اسم معد العمل على ورقة اكسل

[اسامة القورتاوي]

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

اريد كتابة اسم معد العمل على ورقة اكسل بحيث يظل موجودا ولا يستطيع احد ازالته ومن الافضل ان لايظهر في طباعة الورقة ان امكن

شاكرين لكم حسن التعاون 

اخيكم 

اسامة

[ياسر خليل أبو البراء]

أخي الكريم أسامة

يرجى تغيير اسم الظهور للغة العربية

جرب الدخول لمحرر الأكواد عن طريق Alt + F11 ، وأدخل الكود التالي

Sub LastAuthor()
    With Range("XFA1")
        .Value = ThisWorkbook.BuiltinDocumentProperties("Last Author")
        .NumberFormat = ";;;"
    End With
End Sub

ثم في ورقة العمل ستجد اسم صاحب معد العمل في الخلية XFA1 ولكنه غير ظاهر .. يمكنك وضع الاسم في أي خلية تريدها .. سيظهر معك فقط في شريط المعادلات

إذا أعجبك الحل قم بدعمي من خلال تحميل الملف المرفق

حمل الملف المرفق من هنا

تقبل تحياتي

[اسامة القورتاوي]

استاذي العزيز ياسر

لم افهم ماذكرته لكني دعمتك وانزلت الملف المرفق وكل مااريده هو ان يظهر اسمي اسفل ورقة العمل مثل ما يظهر كلمة درافت او نسخة للمناقشة وشكرا

[ياسر خليل أبو البراء]

أخي الكريم أسامة

لكنك ذكرت أنك لا تريد طباعته .. فقمت بإخفاء اسم المستخدم ، ولكن يمكن عمل كود وإخفاء الخلية التي تحتوي على اسم المستخدم أثناء الطباعة فقط ..

مزيد من التوضيح للمطلوب يسهل تقديم الحل بشكل أفضل

تقبل تحياتي

[حسام ميلكانا]

اخى الكريم ابو البراء

ياريت تقولنا ازاى نحمل الملفات من على المركز دة لانى مش عارف صراحتا اوصل للملفات المرفةعة علية

وشكرا ليك اخى الكريم

[ياسر خليل أبو البراء]

أخي العزيز حسام

لما تضغط على الرابط بتدخل على صفحة وتنتظر 5 ثواني وبيظهر لك فوق يمين في أعلى الصفحة بعد الـ 5 ثواني كلمة Skip Ad بتضغط عليها وممكن دا يتكرر مرتين أو تلاتة ..

تقبل تحياتي

[اسامة القورتاوي]

اخي الكريم ابو البراء

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

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

دفعات معجلة - .rar

[ياسر خليل أبو البراء]

أخي الكريم

بحيث لا يستطيع أحد إزالته ..جملة صعبة .. لأن لكل فعل رد فعل مساوي له في المقدار ومضاد له ف الاتجاه ..فلكل حماية كسر حماية ، فمن الصعب وضع الاسم في خلية وعدم استطاعة إزالته ..حتى لو قمت بحماية الخلية وحماية ورقة العمل .. فيه طرق لفعل ذلك ولكن يمكن تخطيها ..! فما من سبيل لعدم استطاعة الإزالة

 

[حسام ميلكانا]

اخى الكريم واستاذنا العظيم

بارك الله لك وبارك عليك ورزققك الفردوس الاعلى ان شاء الله

فعلا تم التحميل

جزاك الله كل خير

 

[اسامة القورتاوي]

اخي الكريم ابو البراء

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

دعنا نتجاوز الازالة واريد عمل اللازم لو تكرمت وشكرا

[ياسر خليل أبو البراء]

أخي الكريم وعليكم السلام

لقد قمت لك بتقديم كود يقوم بالمطلوب .. فقط غير الخلية المراد وضع القيمة فيها

إذا لم يكن المطلوب فوضح من جديد بشيء من التفصيل .. وهل تريد عمل كود للطباعة بشكل منفصل لإزالة القيمة أثناء الطباعة ؟؟

 

الرجاء من الأخوة التدخل لإنهاء الموضوع حيث أنني أعاني من مشكلة كبيرة في جهازي ولن أتمكن من تجربة الأكواد

تقبل تحياتي