نا بحاجه ماسة لكود إغلاق برنامج الاكسل نهائيا

[وائل يونس سلامي]

الرجاء الرد يا جماعة الخير

أنا بحاجه ماسة لكود إغلاق برنامج الاكسل نهائيا

مع كل شكري وامتناني

[محمد عسكر]

السلام عليكم

اليك كود عند اغلاق البرنامج من غير نافذه سؤال عن الحفظ ام لا و يتم الحفظ تلقائى

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.save

End Sub

و هذا كود لفتح البرنامج و اخفاء اشرطة الأدوات

Private Sub Workbook_Open()
Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate
With Application
    'Application.DisplayFullScreen = True
    .CommandBars("Full Screen").Visible = False
    .CommandBars("Worksheet Menu Bar").Enabled = False
    .CommandBars("Standard").Visible = False
    .CommandBars("Formatting").Visible = False
    .CommandBars("Drawing").Visible = False
    .CommandBars("Reviewing").Visible = False
    .CommandBars("Web").Visible = False
    .CommandBars("Control Toolbox").Visible = False
    .CommandBars("Forms").Visible = False
    .DisplayStatusBar = False
    .DisplayFormulaBar = False

End With
Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate
End Sub

و هذا كود الغلق البرنامج مع اظهار اشرطة الأدوات و القوائم

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Sheets("اسم الورقه التى سيغلق عليها البرنامج").Activate
MsgBox " مع تحياتى ", vbexcelamation, "خروج من البرنامج "
    With Application
    .DisplayFullScreen = False
    .CommandBars("Worksheet Menu Bar").Enabled = True
    .CommandBars("Standard").Visible = True
    .CommandBars("Formatting").Visible = True
    .CommandBars("Drawing").Visible = True
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
    .CommandBars("Control Toolbox").Visible = True
    .CommandBars("Forms").Visible = True
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
 ActiveWorkbook.save
End Sub

تحياتى

محمد عسكر

تم تعديل أبريل 13, 2007 بواسطه محمد عسكر

[وائل يونس سلامي]

الأخ محمد عسكر

تحياتي وتمنياتي لك بالتوفيق والنجاح الدائمين

كل شكري وتقديري على الرد بارك الله فيك

كل ما أستطيع قوله هو أشكرك من كل قلبي

وأدعو لك بتوفيق دائم من رب العالمين إنشاء الله

أخوك وائل سلامي

[محمد عسكر]

السلام عليكم

الأخ / وائل سلامى

بارك الله فيك

و شكرا لك

هذا المنتدى موجود و اساسه ان من يعرف شئ و يستطيع تقديمة فليقدمه

فشعار المنتدى الحديث الشريف ( المسلم اخو المسلم ..... ) و ايضا ( من كتم علما ينتفع به ألجم بلجام من نار)

اخى تفضل بالإستفسار عن اى شئ و فى اى وقت

تحياتى

[وائل يونس سلامي]

أخي محمد عسكر

تحياتي مره أخرى

وبارك الله فيك وشكرا جزيلا للطفك الكبير

ونحن جميعا بإذن الله سنقدم ما لدينا من معلومات إلى جميع إخواننا ( ولن نقصر بما نعلم بإذن الله )

مرة أخرى شكرا جزيلا

وفقك الله

أخوك وائل سلامي