اخي الكريم الملف عندي يشتغل عادي
خيث عند فتحه ينزل الاكسل والفورم معا جوار الساعة
وعند الضغط على ايقونت الاكسل مرتين يضهر الفورم وحده
وانا لم افعل شيىء سوى اني عدلت على الملف الثاني الذي ارفقه الاخ حمادة وكتبت هذا الكود في حدث فتح الاكسل
Dim Me_hWnd As Long, Me_Icon As Long, Me_Icon_Handle As Long, IconPath As String
Private Sub Workbook_Open()
Me_hWnd = FindWindowd("ThunderDFrame", UserForm1.Caption)
IconPath = Application.Path & Application.PathSeparator & "excel.exe"
Me_Icon_Handle = ExtractIcond(0, IconPath, 0)
Hook Me_hWnd
AddIconToTray Me_hWnd, 0, Me_Icon_Handle, "ÃäÞÑ åäÇ áÅÙåÇÑ ÇáÈÑäÇãÌ"
UserForm1.Hide
End Sub