توقف عمل الكود عندما تكون الصفحة محمية

[ابو مارفن]

 

تعديل على الكود لكي يعمل عندما تكون الصفحة محمية الملف والصورة توضح الخطآ وشكرا جزيلا لجهودكم

 

طباعه.xls

[Ali Mohamed Ali]

يمكنك استخدام هذا الكود لذلك

Sub SelectPrintArea()
Dim PrintThis As Range
ActiveSheet.PageSetup.PrintArea = ""
Set PrintThis = Application.InputBox _
(Prompt:="Select the Print Range", Title:="Select", Type:=8)
PrintThis.Select
Selection.Name = "NewPrint"
ActiveSheet.PageSetup.PrintArea = "NewPrint"
ActiveSheet.PrintOut
End Sub

 

Print.xls

[ابو مارفن]

الحمد الله تم عمل الكود بنجاح بارك الله بجهودكم