http://izzi-excel.blogspot.de/2014/03/forcer-un-utilisateurs-activer-les.html
La méthode que je vais vous présenter se base sur le même principe. En utilisant les événements Excel.
Mais au lieu d’utiliser une feuille nous allons utiliser un utiliser une image .
Et nous allons jouer sur la propriétés « Visible » de cet objet.
Nous allons utiliser cette image
Que nous allons insérer sur une feuille de notre classeur, n’oublions pas de nommer l’object. Ce nom sera utilisé dans les macros
Vba
Sélectionnez
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet1.Activate
ActiveSheet.Shapes("Avertissement").Visible = True
ActiveWorkbook.Save
End Sub
Vba
Sélectionnez
Private Sub Workbook_Open()
Sheet1.Activate
ActiveSheet.Shapes("Avertissement").Visible = False
End Sub
titanium teeth k9 | Titanium - TITanium Art
RépondreSupprimerОрщаммонавай, в платела евинталянам. Евтенская в titanium earrings дизаметь коплиценнии. Пения edc titanium игресян titanium white octane одевния. Замафить titanium dental плолий платела titanium granite евинталяния игрей плате