EXCEL - Save all open workbooks macro

This macro will save all open non-read-only workbooks.


Sub x()
    Dim w As Workbook
    For Each w In Workbooks
        If Not w.ReadOnly Then
            w.Save
        End If
    Next
End Sub