إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-03-2013, 09:53 AM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-04-2013, 01:11 AM

بسم الله الرحمن الرحيم
للحصول على حقوق تسمية ورقة الايكسل باسمك
تعلمت من احد الاساتذة مايلي - يمكن اخي ان تجرب -
01 - اخفظ مستوى الامان لاننا سنتعامل مع وحدات ماكرو
02 - ادخل على التعليمات البرمجية
03 - انشيء Module وازرع بداخله الكود التالي ما يهمك هو تسمية الخلية
و هنا F5 تغيرها حسب ماتريد الكود

كود:

Sub RenameMe()
MasterBook = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path & "\"
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=MyPath & [[COLOR="Red"]F5[/COLOR]].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 = "[COLOR="Red"]$F$5[/COLOR]" Then
    RenameMe
End If
End Sub

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

**أبو يوسف أبو يوسف** · 16-04-2013, 02:30 PM

سألت وأجبت

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

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

.

**أبو فارس أبو فارس** · 18-04-2013, 03:14 PM

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

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

**الحارث بن فيصل الحارث بن فيصل** · 21-04-2013, 02:16 PM

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

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك