villette54
XLDnaute Junior
Bonjour à tous,
J'ai un petit soucis je n'arrive pas à écrire un macro qui s’exécute automatique à l'ouverture d'un fichier Excel 2010 du genre "Êtes-vous sûr d'être autorisé à lire ce fichier ?" Oui / Non
Si Oui, alors le fichier s'ouvre et si Non alors le fichier se ferme.
La demande peut paraître bizarre, oui je sais qu'il existe d'autre moyen (verrouillage par mdp ou autre) mais ça ne m’intéresse pas vraiment, je préfère que les gens prennent leurs responsabilités.
Pour info, j'ai commencé la rédaction d'une macro je ne sais juste pas comme faire la suite :
Private Sub Workbook_Open()
If MsgBox("Êtes-vous sûr d'être autorisé à lire ce fichier ?", vbQuestion + vbYesNo, "Confirmation1") = vbYes Then
' C'est ici que ça flanche pour la première fois
Else
' Puis ici
End If
End Sub
Merci d'avance
J'ai un petit soucis je n'arrive pas à écrire un macro qui s’exécute automatique à l'ouverture d'un fichier Excel 2010 du genre "Êtes-vous sûr d'être autorisé à lire ce fichier ?" Oui / Non
Si Oui, alors le fichier s'ouvre et si Non alors le fichier se ferme.
La demande peut paraître bizarre, oui je sais qu'il existe d'autre moyen (verrouillage par mdp ou autre) mais ça ne m’intéresse pas vraiment, je préfère que les gens prennent leurs responsabilités.
Pour info, j'ai commencé la rédaction d'une macro je ne sais juste pas comme faire la suite :
Private Sub Workbook_Open()
If MsgBox("Êtes-vous sûr d'être autorisé à lire ce fichier ?", vbQuestion + vbYesNo, "Confirmation1") = vbYes Then
' C'est ici que ça flanche pour la première fois
Else
' Puis ici
End If
End Sub
Merci d'avance