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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
mmagedmemo ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





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

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



17-12-2019 08:25 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 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
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 237
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 338
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
اخى واستاذى ياسر
مشكورا على الاكواد الجميله دى
وحل اكثر من رائع
بارك الله فيك
تقبل تحياتى

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

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

11-01-2020 11:53 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1773
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
عمل رائع استاذ ياسر احسنت وبارك الله فيك وجزاك الله كل خير
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

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

21-04-2020 12:44 مساء
مشاهدة مشاركة منفردة [5]
محمد امين
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-02-2019
رقم العضوية : 11590
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 1-1-1990
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 16
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
عمل رائع استاذ ياسر .. ولكن اظن انه من الافضل تتم هذه العملية بمجرد فتح الملف للتأكد من انه لايوجد اي تعديل علي اسم الملف قبل العمل

Private Sub Workbook_Open()
    Dim sName As String, sPath As String
     
    With ThisWorkbook
        sName = .Worksheets("Sheet1").Range("A1").Value
        sName = .Path & "" & sName & ".xlsb"
        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

21-04-2020 01:59 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
بارك الله فيك أخي الكريم محمد
الفكرة في الكود هو كيفية تطويعه بما يتناسب معك حسب الاحتياجات .. جزاك الله خيراً على الإضافة والتعقيب.
تقبل تحياتي




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


 










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

الساعة الآن 04:17 صباحا