If Application.Workbooks(WorkbookName.ReadOnly then Application.Workbooks(WorkbookName).ChangeFileAccess xlReadWrite If it can not it should prompt the user and exit process. https://github.com/DavidmSalm/VBADeveloperTools/blob/6d2f993f4f184c467f7fc0ab0e18ee8752cad807/VBComponents/GIT/Forms/ImportCodeForm.frm#L119
If Application.Workbooks(WorkbookName.ReadOnly then Application.Workbooks(WorkbookName).ChangeFileAccess xlReadWrite
If it can not it should prompt the user and exit process.
VBADeveloperTools/VBComponents/GIT/Forms/ImportCodeForm.frm
Line 119 in 6d2f993