اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

MINIMIZE


الردود الموصى بها

وعليكم السلام و رحمة الله

 

هلا اخي اكرم

 

يمكنك عن طريق الحدث WindowResize تبع ال Workbook

 

كتبت لك كود بسيط لتجريب

 

Private Sub Workbook_WindowResize(ByVal Wn As Window)


If Wn.ActiveSheet.Name = "Sheet1" And Wn.WindowState = xlMinimized Then
    Application.DisplayFormulaBar = False
End If


End Sub
رابط هذا التعليق
شارك

 

وعليكم السلام و رحمة الله

 

هلا اخي اكرم

 

يمكنك عن طريق الحدث WindowResize تبع ال Workbook

 

كتبت لك كود بسيط لتجريب

 

Private Sub Workbook_WindowResize(ByVal Wn As Window)


If Wn.ActiveSheet.Name = "Sheet1" And Wn.WindowState = xlMinimized Then
    Application.DisplayFormulaBar = False
End If


End Sub

 

عزيزي أبو تراب

جربت هذا الحل من قبل ولكن لم ينجح معي

هل ممكن ارفاق ملف

جزاك الله خيرا

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information