Private Sub Workbook_Open()
ActiveWorkbook.Protect Structure:=False, Windows:=True: Cancel = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cancel = True Then Cancel = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End Sub
Sub reactive()
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub