تسمية ورقة الايكسل

[ثامر أبو بلقيس]

السلام عليكم ..... أخي الكريم
1 - ابحث عن الاكواد المسؤولة عن جعل ورقة اكسل
تحتفظ دائما بتسميتها اجباريا
اذ توفرت لديك المعلومة ارجو ادراجها الوقت يداهمني
في محاولة مستعجلة .
شكرا .

[ثامر أبو بلقيس]

للأسف ... يبدو أن القسم مخصص للبرامج فقط .

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
للحصول على حقوق تسمية ورقة الايكسل باسمك
تعلمت من احد الاساتذة مايلي - يمكن اخي ان تجرب -
01 - اخفظ مستوى الامان لاننا سنتعامل مع وحدات ماكرو
02 - ادخل على التعليمات البرمجية
03 - انشيء Module وازرع بداخله الكود التالي ما يهمك هو تسمية الخلية
و هنا F5 تغيرها حسب ماتريد الكود
Sub RenameMe()
MasterBook = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path & "\"
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=MyPath & [F5].Text & ".xls"
Kill MyPath & "\" & MasterBook
Application.DisplayAlerts = True
On Error GoTo 0
End Sub

بعد الحفظ توجه الى ورقة الايكسل وازرع في الحدث Worksheet_Change
الكود التالي مع مراعاة تسمية الخلية ان يتوافق مع ماسبق
وازرع الكود التالي/
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
RenameMe
End If
End Sub


عندما تكتب اي تسمبة في الخلية المشار اليها عن غلق الملف مباشرة
سيتغير اسم المصنف === اختر خلية بعيدة عن الانظار و ضع لون الخط ابيض
ستبقى الورقة باسمك ===
سلام

[أبو يوسف]

سألت وأجبت

هكذا يكون طلب المعلومة والإصرار على المعرفة

أتمنى لك التوفيق أخانا ابا بلقيس

.

[أبو فارس]

شكرا اخي العزيز

موفق بإذن الله ... لك مني أجمل تحية .

[الحارث بن فيصل]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .