تفعيل كودين فى ملف

[ياسر فاروق]

الساده الافاضل

السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير (عيد الأصحى)

تم البحث فى صرح أوفيسنا عن أكواد لمنع الطباعة   وكود قفل كل أوامر ملف الاكسيل   والحمدالله تم إيجادهما عن مساهمات الاساتذه العظام  بالمنتدى كما هو الموضح:

الكود الأول: وظيفته يحتاج كلمة سر لطباعة ملف الاكسيل (ولكن عند الحفظ باسم ينتهى تفعيل الكود)

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

الكود الثانى: وظيفته يقفل كل أوامر ملف الاكسيل (ممكن يطبع من خلال لوحة المفاتيح)

Sub Auto_Close()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
Application.DisplayFormulaBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Call ToggleCutCopyAndPaste(True)

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

حاولت تفعيل الكودين فى نفس الملف - ولم أنجح ، برجاء المساعده وشكرا