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

20244شيت مدرستى الصف السادس.xlsb

Private Sub Workbook_Open() Dim MachineName As String MachineName = Environ("COMPUTERNAME") If MachineName <> "اسم_الجهاز_المسموح" Then MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical ThisWorkbook.Close End If End Sub

جرب اخي المطلوب.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