بستن فایل در صورت فقط خواندنی بودن Closing a Read-Only Workbook

چناچه یک فایل اکسل در شبکه مورد استفاده قرار گیرد صرفا برای نفر اول قابل خواندن و نوشتن می باشد و برای نفرات بعدی فقط خواندنی گاهی اوقات به علت عدم اطلاع کاربران از این موضوع فایل ها در حالت فقط خواندنی باز شده و تغییرات داده می شود و ذخیره نمی شوند که محل اشکال است لذا راه حل ساده ان بستن قابلیت باز شدن فایل در حالت فقط خواندنی می باشد

Private Sub Workbook_open
  If ThisWorkbook.ReadOnly Then
    ThisWorkbook.close
  End If
End Sub