質問: Excel VBAの上書き保存と読み取り専用について いつもお世話になっております。 Excel2016を使用しています。
回答: GtAttrで判定できます こんな感じに Private Sub 上書保存() Dim Res As VbFileAttribute Res = GetAttr(ThisWorkbook.Path & "\" & ThisWorkbook.Name) If (Res And vbReadOnly) = vbReadOnly Then MsgBox "読み取り専用のため、上書き保存できません。" Exit Sub Else On Error Resume Next ThisWorkbook.Save End If End Sub