جعل شيت الإكسيل للقراءة فقط

[hitech]

السلام عليكم

هو ازاى اخلى شيت اكسيل للقراءة فقط

[Ali Mohamed Ali]

وعليكم السلام طالما انك لم تقم برفع ملف على الرغم اننا نبهنا اكثر من مرة على هذا الأمر فقد تعرض مشاركتك للحذف اذا لم تنتبه مرة ثانية لهذا الأمر

فيمكنك استخدام هذا الكود -ومعنى جعل الشيت للقراءة فقط اى عمل حماية له

Sub ToggleSheetProtection()
        With ActiveSheet
        If .ProtectContents Then .Unprotect Else .Protect "", True, True, True, True
    End With
End Sub

او يمكنك ايضا بهذا الكود بوضعه فى حدث This WorkBook

Private Sub Workbook_Open()

If Application.UserName <> "YourUserName" Then

    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly

End If

End Sub

او يمكنك بهذه الخطوات بدون أكواد كما بملف الوورد

 

 

الشرح.docx

[hitech]

اسف د استاذنا الغالى

والف شكر لحضرتك