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

@محمد هشام. شكرا ده المطلوب

@محمد هشام. تمام بس فيه تعديل انه يحفظ كل الاوراق في ملف pdf واحد ثانيا يتحفظ ف ي نفس مكان الملف وثالثا يرجع f7 الى 1 بعد الحفظ

@محمد هشام. ارجو الحل

خطا لان متغير حسب s8

المطلوب تحويل ورقة لجان 4 الى pdf المصنف1.xlsb

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

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