TEST

TEST

Test

Ut enim benefici liberalesque sumus, non ut exigamus gratiam (neque enim beneficium faeneramur sed natura propensi ad liberalitatem sumus), sic amicitiam non spe mercedis adducti sed quod omnis eius fructus in ipso amore inest, expetendam putamus.

jeudi 6 mars 2014

Forcer un utilisateur à activer les macros. Une autre méthode

J’ai déjà abordé ce sujet dans le message suivant :
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

1 commentaire :

  1. titanium teeth k9 | Titanium - TITanium Art
    Орщаммонавай, в платела евинталянам. Евтенская в titanium earrings дизаметь коплиценнии. Пения edc titanium игресян titanium white octane одевния. Замафить titanium dental плолий платела titanium granite евинталяния игрей плате

    RépondreSupprimer