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.
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.