viraaboras

السلام عليكم ورحمة الله وبركاته شكرا لكم على تفاعلكم الرائع ولكنني اطلب التعديل على الملف المرفق جزاكم الله خيرا وماهي الكودات اللازمة ارجو المساعدة

السلام عليكم ورحمة الله وبركاته اخوتي الافاضل ارجو مساعدتكم بتطوير برنامج العهد فلم اعد قادرا على اكتمال العمل عليه وارجو منكم ان تساعدوني للضرورة جزاكم الله خيرا اسم المستخدم : user كلمة المرور: 111 لكل البرنامج كما اشكر جميع الاخوة على اعمالهم وافكارهم القيمة التي استفدت منها جدا الملف في المرفقات وفيه التوضيح المطلوب eee.rar

بارك الله فيكم جميعا وشكرا جزيلا اخ حمادة عمر على التعديل الرائع

السلام عليكم ورحمة الله وبركاته تغير ايقونة ملف اكسل من خلال الكود التالي : نضع الكود التالي في 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 Icon SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon End Sub

اخي الكريم هذا هو الملف وشكرا لك جزيلا 1.rar

شكرا لك اخي الكريم

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