الساده الافاضل
السلام عليكم ورحمة الله وبركاته
تم البحث فى صرح أوفيسنا عن كود لمنع الطباعة - الا بكلمة سر - ووجدته عن طريق الاساتذه العظام وهو كما المرفق ويتم وضعه فى حدث الصفحة
Private Sub Workbook_BeforePrint(Cancel As Boolean)
motpass = "123!@"
q1 = InputBox("Please enter your password!")
If q1 <> motpass Then
MsgBox ("Please enter your valid password!!"), vbCritical
Cancel = True
End If
End Sub
ولكن عند تجربة حفظ المستند (حفظ باسم) والحفظ بدون اختيا ماكرو - لم تعد له فاعلية ويمكن طباعة المستند
برجاء المساعده وشكرا