logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





17-12-2019 08:25 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
السلام عليكم ورحمة الله وبركاته

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


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

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

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

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

وإليكم الكود والذي يوضع في موديول المصنف ThisWorkbook ...
CODE
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



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


أثارت هذه المشاركة إعجاب: محمد امين، ابو طيبه،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،


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

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




look/images/icons/i1.gif منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook
  11-01-2020 11:53 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
عمل رائع استاذ ياسر احسنت وبارك الله فيك وجزاك الله كل خير



توقيع :ali mohamed ali


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

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




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

CODE
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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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

أثارت هذه المشاركة إعجاب: محمد امين،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تغيير اسم االمستخدم حسين الحمادي
2 8 حسين الحمادي
ترحيل بشرط يحدد المستخدم في خلية صقر
4 224 YasserKhalil
اظهار اسم المستخدم حسين الحمادي
3 1213 hassona229
مساعدة فى صلاحيات المستخدم moonlight
2 1268 moonlight
دخول اكثر من مستخدم في وقت واحد مع حفظ حركات المستخدمين amaar
3 1358 Jansdedo

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









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

الساعة الآن 02:00 PM