دمج أكواد

[ياسر فاروق]

الساده

السلام عليكم ورحمة الله وبركاته

موضح كودين من أعمال أساتذة الأكواد بهذا الصرح الكبير ولكن كل كود يقوم بمهمة خاصة واذا تم عملهما معا يكون مفيد جدا للملف وحماية كبيرة له

                                 (إذا تم حفظ باسم وتغيير نوعية الملف - كأن شيئا لم يكن ويمكن عمل كل شىء على الملف)

هل ينفع جمع الكودين ليعملوا فى الملف

 

الكود الأول يعمل على الطباعة بكلمة سر

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

وشكرا

[علي حيدر]

rivate Sub Workbook_BeforePrint(Cancel As Boolean)
motpass = "123"

call auto_close
q1 = InputBox("Please enter your password!")

If q1 <> motpass Then
MsgBox ("Please enter your valid password!!"), vbCritical
Cancel = True

call auto_close

EndIf

End Sub

اخي اعزرني على الرد وان تأخر وذلك بسبب انشغالي ارجو ان يكون المطلوب