وعليكم السلام طالما انك لم تقم برفع ملف على الرغم اننا نبهنا اكثر من مرة على هذا الأمر فقد تعرض مشاركتك للحذف اذا لم تنتبه مرة ثانية لهذا الأمر
فيمكنك استخدام هذا الكود -ومعنى جعل الشيت للقراءة فقط اى عمل حماية له
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