أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil حفظ نطاق الطباعة كصورة Export Print Area + Print title rows As Picture اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook

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



17-12-2019 08:25 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8536
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25094
الاعجاب : 26
 offline 
السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله


أقدم لكم اليوم حل لمشكلة قام بطرحها أحد الأخوة على الفيس بوك لتعم الفائدة .. والمشكلة التي طرحت بهذا الشكل
PTFNT_001

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

يقوم الكود بفحص الاسم الموجود في ورقة العمل Sheet1 في الخلية A1 ، ويطابقه بالاسم الفعلي للمصنف الحالي ، فإذا تطابقا تظهر رسالة بأن المستخدم لم يقم بتغيير اسم المصنف ، أما إذا لم يتطابق فهذا يعني أن المستخدم قد قام بتغيير اسم المصنف أو أنه قام بتغيير قيمة الخلية الموجودة في ورقة العمل Sheet1 ، وفي هذه الحالة يتم إعادة تسمية المصنف مرة أخرى بناءً على قيمة الخلية A1 في ورقة العمل Sheet1 ... 

الخدعة في حل المشكلة أنه يتم حفظ المصنف بالاسم بناءً على قيمة الخلية ثم حذف المصنف القديم الذي تم تغيير اسمه.

وإليكم الكود والذي يوضع في موديول المصنف ThisWorkbook ...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim sName As String, sPath As String
     
    With ThisWorkbook
        sName = .Worksheets("Sheet1").Range("A1").Value
        sName = .Path & "\" & sName & ".xlsm"
        sPath = .FullName
        
        If sName <> sPath Then
            .SaveAs sName: Kill sPath
        Else
            MsgBox "The User Did Not Rename The Workbook.", 64
        End If
    End With
End Sub


إعداد وتقديم / ياسر خليل أبو البراء
 
 





18-12-2019 11:51 صباحا
مشاهدة مشاركة منفردة [1]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 176
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
قوة السمعة : 220
الاعجاب : 0
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
اخى واستاذى ياسر
مشكورا على الاكواد الجميله دى
وحل اكثر من رائع
بارك الله فيك
تقبل تحياتى

 



توقيع :EM_ACC
إبراهيم أبوليله

18-12-2019 12:05 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8536
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25094
الاعجاب : 26
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
بارك الله فيك أخي الغالي ابراهيم وجزيت خيراً 
تقبل تحياتي




11-01-2020 11:53 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6860
الاعجاب : 9
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
عمل رائع استاذ ياسر احسنت وبارك الله فيك وجزاك الله كل خير



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

12-01-2020 07:28 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8536
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25094
الاعجاب : 26
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
وجزيت خيراً أخي العزيز علي ومشكور على مرورك العطر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دخول اكثر من مستخدم في وقت واحد مع حفظ حركات المستخدمين amaar
3 141 Jansdedo
التعامل مع الدالات المعرفة من قبل المستخدم المبتدأ
11 212 YasserKhalil
أضافة صفحة جديدة باسم يحدده المستخدم salim5d
2 518 عبدالله فتحى
فورم تغير اسم المستخدم والسرى مجدى يونس
5 656 مجدى يونس
الرموز المستخدمه فى الاكسل Eslam Abdullah
22 4617 YasserKhalil

الكلمات الدلالية
المستخدم ، تسمية ، المصنف ، الحالي ، Prevent ، User ، From ، Renaming ، Workbook ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:15 مساء

أعلن هنا
أعلن هنا
أعلن هنا