Fixing a worksheet to index #1 (without protecting workbook)

Possibly by changing the code name of the summary worksheet and then adding some code to the ThisWorkbook module to move it...

Private Sub Workbook_Open()
    If wsSummary.Index <> 1 Then wsSummary.Move before:=Sheets(1)
End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    If wsSummary.Index <> 1 Then wsSummary.Move before:=Sheets(1)
End Sub