Cannot save macro spreadsheet due to ReadOnly = True

J

JingleRock

First, I checked the file Attributes in Windows Explorer, and left-
clicked on Properties: all three (Read-only; Hidden; Archive) were
blank.

I then ran the following:

Sub OpenGroup1()
Application.EnableEvents = False

Application.Workbooks.Open Filename:= _
"\\HOUDATA01\Investments\Research\Shared\RATINGS MACROS\MASTER
\Group 1 (M-Mkt) Master Macro.xlS"
'''''''''''''"\\HOUDATA01\Investments\Research\Shared\RATINGS MACROS
\MASTER\Group 1 (M-Mkt) Master Macro.xlS", UpdateLinks:=True,
ReadOnly:=False <<<< THIS DID NOT WORK!!

If (GetAttr(ThisWorkbook.Path & "\" & ThisWorkbook.Name) And Not
vbReadOnly) Then
MsgBox "The Workbook is Not Read-Only!!", vbInformation
End If

''''''''''ThisWorkbook.ReadOnly = False <<<< THIS DID NOT WORK!!

Application.EnableEvents = True
End Sub

The MsgBox pops-up, even though "[Read-Only]" is appended to the name
of the file at the top of the opening worksheet.

Help. I cannot save edits to the workbook.
 
C

Clif McIrvin

JingleRock said:
First, I checked the file Attributes in Windows Explorer, and left-
clicked on Properties: all three (Read-only; Hidden; Archive) were
blank.

I then ran the following:

Sub OpenGroup1()
Application.EnableEvents = False

Application.Workbooks.Open Filename:= _
"\\HOUDATA01\Investments\Research\Shared\RATINGS MACROS\MASTER
\Group 1 (M-Mkt) Master Macro.xlS"
'''''''''''''"\\HOUDATA01\Investments\Research\Shared\RATINGS MACROS
\MASTER\Group 1 (M-Mkt) Master Macro.xlS", UpdateLinks:=True,
ReadOnly:=False <<<< THIS DID NOT WORK!!

If (GetAttr(ThisWorkbook.Path & "\" & ThisWorkbook.Name) And Not
vbReadOnly) Then
MsgBox "The Workbook is Not Read-Only!!", vbInformation
End If

''''''''''ThisWorkbook.ReadOnly = False <<<< THIS DID NOT WORK!!

Application.EnableEvents = True
End Sub

The MsgBox pops-up, even though "[Read-Only]" is appended to the name
of the file at the top of the opening worksheet.

Help. I cannot save edits to the workbook.


The unanswered question in my mind is why the workbook is being opened
read only.

Can you (manually) do a "Save As" ??
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top