إجمالي مرات مشاهدة الصفحة

الثلاثاء، 19 أبريل 2016

منع خاصية الحفظ باسم Prevent Save As Function

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

إليكم كود يقوم بمنع المستخدم من استخدام خاصية الحفظ باسم Save As سواء من القائمة أو من خلال الاختصار المعني بهذه الخاصية (ألا وهو مفتاح F12) 

حيث يظهر رسالة للمستخدم بأنه غير مسموح بحفظ المصنف باسم آخر ، بهذا الشكل :

وإليكم الكود المستخدم ، ويوضع الكود في حدث المصنف ThisWorkbook Module :
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lReply As Long
    
    If SaveAsUI = True Then
        lReply = MsgBox("Sorry, You Are Not Allowed To Save This Workbook As Another Name. Do You Wish To Save This Workbook?", vbQuestion + vbOKCancel)
        Cancel = (lReply = vbCancel)
        If Cancel = False Then Me.Save
        Cancel = True
    End If
End Sub

إعداد / ياسر خليل أبو البراء
مرسلة بواسطة في

ليست هناك تعليقات:

إرسال تعليق

الاشتراك في: تعليقات الرسالة (Atom)