إضافة زر الحفظ و زر الخروج للشيت

[ريتاج المدينة]

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

اساتذتنا  الافاضل جزاكم الله  عنا كل الخير ووسع الله في ارزاقكم

ارجو معرفة كيفية القيام عمل زر الحفظ  لكل شيت 

 و زر الخروج للشيت الرئيسي  

مع الاحترام والتقدير  لكم جميعا

زر الحفظ والخروج.xlsx

[Ali Mohamed Ali]

وعليكم السلام

تفضل

 

زر الحفظ والخروج.xlsm

[ريتاج المدينة]

تحياتي لك استاذي الكبير 

الاستاذ علي 

وبارك الله بك ووسع عليك رزقك  

 

سؤال  استاذي

كود زر الحفظ لكل ورقة على حده ام لجميع البرنامج؟ 

وتقبل تحياتي 

وجزاك الله عنا كل خير 

[Ali Mohamed Ali]

الحفظ لكل الملف

[ريتاج المدينة]

كل الاحترام  لك استاذي 

تسجيل الكود هذا هو المطلوب على اي  برنامج

مع تسجيل اسم الجهاز  الذ اعمل عليه ؟ 

[ريتاج المدينة]

 

 

[Ali Mohamed Ali]

أخى الكريم عليك بوضع اسم جهازك فى هذا المكان من الكود فعلى سبيل المثال

اسم جهازى AliMohamed

بارك الله فيك

[ريتاج المدينة]

تمام كل الاحترام لكم 

ولكن هناك كود لعمل زر الحفظ لكل ورقة اذا رغبنا باخفاء الشريط 

تكون الزر هو البديل ؟؟؟؟

[Ali Mohamed Ali]

تفضل هذ الكود يقوم بعمل حفظ لكل ورقة منفصلة بملف منفصل

Option Explicit

Sub SplitWorkbook()
    'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ ÇáäÕí
    Dim xPath As String
    'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ æÑÞÉ Úãá
    Dim SH As Worksheet
    'ÊÚííä ÇáãÊÛíÑ áÊÓÇæí ÞíãÊå ãÓÇÑ ÇáãÕäÝ ÇáÍÇáí
    xPath = Application.ActiveWorkbook.Path
    'ÅáÛÇÁ ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ
    Application.ScreenUpdating = False
    'ÅáÛÇÁ ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå
    Application.DisplayAlerts = False
        'ÍáÞÉ ÊßÑÇÑíÉ áßá ÃæÑÇÞ ÇáÚãá ÈÇáãÕäÝ
        For Each SH In ThisWorkbook.Sheets
            'äÓÎ æÑÞÉ ÇáÚãá
            SH.Copy
            'ÍÝÙ æÑÞÉ ÇáÚãá ÈäÝÓ ÇáÇÓã æäÝÓ ÇáãÓÇÑ
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            'ÅÛáÇÞ ÇáãÕäÝ ÇáÌÏíÏ æÇáÐí ÃÕÈÍ åæ ÇáãÕäÝ ÇáäÔØ
            Application.ActiveWorkbook.Close False
        'ÇáÇäÊÞÇá áæÑÞÉ ÇáÚãá ÇáÊÇáíÉ
        Next
    'ÊÝÚíá ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå
    Application.DisplayAlerts = True
    'ÊÝÚíá ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ
    Application.ScreenUpdating = True
End Sub

 

[ريتاج المدينة]

رائئئئئئئئئئئئئئئئئع استاذي الكريم 

جزاك الله عنا كل خير ووسع الله عليك رزقك 

[ريتاج المدينة]

لو سمحت استاذي 

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

لاني حاولت اضيف الكود ولكن للاسف 

[Ali Mohamed Ali]

تفضل

 

زر الحفظ والخروج.xlsm

[ريتاج المدينة]

رائئئئئئئئئئئئئئئئئع استاذي الكريم 

جزاك الله عنا كل خير ووسع الله عليك رزقك 

يجبر بخاطرك دنيا واخره