خالد المصـــــــــــرى

جرب اخي المطلوب.rar

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

تم الحل جرب اخي تم الحل.xlsx

جرب اخي تم الحل.xlsm

تم الحل جربي خضرتكمشكلة المجموع.xlsb

م

Sub VeryHiddenSelectedSheets() Dim wks As Worksheet On Error GoTo ErrorHandler For Each wks In ActiveWindow.SelectedSheets wks.Visible = xlSheetVeryHidden Next Exit Sub ErrorHandler: MsgBox "A workbook must contain at least one visible worksheet.", vbOKOnly, "Unable to Hide Worksheets" End Sub

انا عايز الكود يعطل استرجاعها من هنا

المطلوب كود

عمل كود لاخفاء شريط اوراق العمل كود.xlsx

شكرا تم الحل

الكود في خطأ

عمل زر خروج برسالة هتريد الحفظ بنعم او لا زر.xlsx

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