Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets(1)
.ToggleButton1.Value = False
.ToggleButton1.Caption = "Appuyer pour insérer une photo ou un schéma"
.ToggleButton1.BackColor = &HFF&
.ToggleButton1.ForeColor = &HFF00&
.Protect UserInterfaceOnly:=True, Password:="123", Scenarios:=True, AllowFormattingRows:=True
End With
End Sub