مساعدة في ملف عمل , مطلوب حماية وأشياء أخرى... الرجاء المساعدة

[al7amza]

السلام عليكم أخواني أعضاء وأساتذة هذا المنتدى الجميل والرائع

 

عندي ملف أعمل عليه , مرفق الملف والمطلوب فيه , أرجو أن تكون واضحة ( خصوصا الحماية )

 

أرجو المساعدة

 

أخوكم أبو حمزة

حسابات.rar

[احمدزمان]

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

 

الحماية ممكن ان شاء الله

[احمدزمان]

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

 

في المرفق

عند فتح الملف يتم تحويله الى القرائة فقط - حيث يستطيع المستخدم استخدام كامل الملف ولكن لا يستطيع حفظها

 

في اول ورقة وفي الخلية الصفراء اكتب كلمة السر "123" وثم انتر

يتم اعادة تعيين الملف الى للكتابة ويمكنك حفظ التغييرات

Private Sub Workbook_Open()
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Range("H1") <> "" Then
Q1 = Range("H1").Text
If Q1 = "123" Then ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True
Range("H1") = ""
End If
End Sub

حسابات.rar

[al7amza]

شكرا جزيلا على المساعدة

وجعلها في ميزان حسناتكم