Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To 4
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Papillon"
Next i
For i = 5 To 6
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Soleil"
Next i
Sheets(7).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(8).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To 4
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Papillon"
Next i
For i = 5 To 6
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Soleil"
Next i
Sheets(7).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(8).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub