viraaboras قام بنشر مارس 14, 2013 مشاركة قام بنشر مارس 14, 2013 السلام عليكم ورحمة الله وبركاته تغير ايقونة ملف اكسل من خلال الكود التالي : نضع الكود التالي في ThisWorkbook : Option Explicit Private Sub Workbook_Open() Application.Caption = " My Personalized Workbook" ChangeApplicationIcon End Sub ونضع الكود التالي في MODULE1 : Option Explicit Declare Function GetActiveWindow32 Lib "USER32" Alias _ "GetActiveWindow" () As Integer Declare Function SendMessage32 Lib "USER32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _ "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Sub ChangeApplicationIcon() Dim Icon& '*****Change Icon To Suit*******Const NewIcon$ = "Notepad.exe" '*****************************Icon = ExtractIcon32(0, NewIcon, 0) SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big IconSendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small IconEnd Sub رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر مارس 14, 2013 مشاركة قام بنشر مارس 14, 2013 مشكور اخوي جزاك الله خير رابط هذا التعليق شارك More sharing options...
يوسف احمد قام بنشر مارس 14, 2013 مشاركة قام بنشر مارس 14, 2013 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر مارس 14, 2013 مشاركة قام بنشر مارس 14, 2013 جزاك الله خيراً . رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 14, 2013 مشاركة قام بنشر مارس 14, 2013 السلام عليكم الاخ الكريم / viraaboras بارك الله فيك وبالفعل كود جميل وراائع وبعد اذنك سارفق ملف بالكود لسهوله معرفة النتيجة مع تغيير الايقونة في الكود الي شكل آخر لاظهاره اكثر Const NewIcon$ = "HelpPane.exe" بدلا من ايقونة النودباد Const NewIcon$ = "Notepad.exe" ارجو ان ينال رضاكم جزاك الله خيرا titelbarتغيير ايقونة الاكسيل في .rar رابط هذا التعليق شارك More sharing options...
عمر أبو صهيب قام بنشر مارس 15, 2013 مشاركة قام بنشر مارس 15, 2013 جزاك الله خيرا أخي الكريم على الكود و بارك في ألأخ حمادة عمر على التطبيثق و الملف المرفق رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر مارس 15, 2013 مشاركة قام بنشر مارس 15, 2013 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 15, 2013 مشاركة قام بنشر مارس 15, 2013 السلام عليكم الاخ الكريم / عمر أبو صهيب بارك الله فيك والشكر بالطبع للاخ الكريم / viraaboras جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
viraaboras قام بنشر مارس 16, 2013 الكاتب مشاركة قام بنشر مارس 16, 2013 بارك الله فيكم جميعا وشكرا جزيلا اخ حمادة عمر على التعديل الرائع رابط هذا التعليق شارك More sharing options...
محمود ربيع قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السادة الافاضل جربت هذا الكود مرارا وتكرارا ولا يوجد اي تغيير في شكل الايقونة ارجو الرد رابط هذا التعليق شارك More sharing options...
aspiran قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السلام عليكم جزاكم الله خيرا على المعلومة إلا أنه لايوجد أي تغيير عند فتح الملف رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السادة الخبراء حملت الملف المرفق ولم يغير الايقون للملف وانا استخدم وندوز XP واوفس 2003 فما المشكلة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السلام عليكم الاخ الكريم / viraaboras بارك الله فيك فالموضوع موضوعك ولكني احب التسهيل علي الجميع جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 2, 2013 مشاركة قام بنشر مايو 2, 2013 السلام عليكم الاخ الكريم / دكتور محمود ربيع الاخ الكريم / عبد الغني(aspiran) الاخ الكريم / خالد الشاعر بارك الله فيكم يجب معرفة ان التغيير في ايقونة الاكسيل لايتم في ايقونة الملف في المجلدات لديكم ولكن يتم التغيير في شريط العنوان اعلي صفحة الاكسيل بعد فتحها .... كما في الصورة التاليه ... بدلا من ايقونة الاكسيل العادية شاهدوا الصورة ... وفي انتظار ردكم جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
محمود ربيع قام بنشر مايو 4, 2013 مشاركة قام بنشر مايو 4, 2013 السلام عليكم ورحمة الله وبركاته الاستاذ الكريم / حمادة عمر ارجو منك الاهتمام بموضوعي التالي اريد كود لعدم تفعيل بعض مفاتيح الاختصار وخاصة مفتاح Alt+f11 وذلك لحجب ظهور المطور ومشروع الفيجوال بيسك الخاص بملف الاكسل وذلك للاهمية الرجاء الرد باقصي سرعة ويستحسن ان تكرمت ارفاق ملف اكسل به الكود وجزاك الله كل خيرا كما احتاج الي علمكم الذاخر مرة اخري احتاج الي كود يقوم بترحيل بيانات صف محدد في شيت 1 الي اي صف في شيت 2 بشرط ان يكون الصف المرحل اليه يشمل في اخره علي القيمة 1 وليكن اخر الصف مثلا العمود n بمعني ان يكون ترحيل الصف a1:m1 في شيت 1 اذا قمت بضغط الزر command button يقوم بترحيل القيم الموجوده به الي اي صف في شيت 2 من a1:m50000 بشرط ان يكون العمود n يحتوي علي رقم 1 وبعد امام العمليه يتم مسح محتويات الصف المحول منه في كل مره اشكركم علي حسن تعاونكم لمن رد ولمن لم يرد وجزاك الله عنا كل خير وزادك علما انتفعت به وانفعت وحباك به ملئ السموات والارض حسنات يارب العالمين ملحوظة لقد قمت بنشر الموضوعين في المنتدي ولم يتم الرد عليهم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مايو 4, 2013 مشاركة قام بنشر مايو 4, 2013 الحل لطلبك تم علي الرابط http://www.officena.net/ib/index.php?showtopic=46752&p=280804 ليكون الرد في مكانه ... لزيادة الافادة للجميع وسهوله البحث رابط هذا التعليق شارك More sharing options...
MR.EXCEL قام بنشر سبتمبر 18, 2013 مشاركة قام بنشر سبتمبر 18, 2013 للاسف الكود لايعمل الرجاء ايجاد حل لاوفيس 2007 جزاكم الله خير رابط هذا التعليق شارك More sharing options...
MR.EXCEL قام بنشر سبتمبر 18, 2013 مشاركة قام بنشر سبتمبر 18, 2013 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.