thomasf007
Messages postés36Date d'inscriptionvendredi 23 mai 2008StatutMembreDernière intervention31 mars 2013
-
9 mars 2011 à 11:50
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024
-
16 mars 2011 à 22:00
Bonjour à tous,
Je suis en train de réaliser une feuille de note de frais avec un Textbox dans lequel on peut inscrire des noms de personnes.
à l'ouverture de ce fichier, je lui demande d'afficher un Userform, contenant un textbox dans lequel on va écrire le nom. J'inscrit le nom et à l'aide d'un commandbutton, le code se passe très bien.
Quand je ferme excel, j'ai une fenêtre intempestive qui s'affiche: il s'agit en fait de la fenêtre de mot de passe pour déverrouiller le projet VBA en question (j'ai activer le verrouillage du code).
J'ai essayer de modifier mon projet, mon code, mais rein a faire...
Dès que je ferme excel, cette fenêtre apparaît.
thomasf007
Messages postés36Date d'inscriptionvendredi 23 mai 2008StatutMembreDernière intervention31 mars 2013 9 mars 2011 à 23:29
Bonjour,
Non, il ne s'arrête pas sur une ligne de code.
Mon code fonctionne très bien. Dès que je clique sur la croix, la fenêtre Excel se ferme, et cette fenêtre s'ouvre pouis me demande le mot de passe.
Quand je clique sur annuler, la fenêtre revient plusieurs fois de suite.
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 9 mars 2011 à 23:34
Bonjour,
Alors, là, je pense que ça vient du code, as-tu vérifier si le code utilisé lors de la fermeture du classeur ne demande pas des droits spécifiques ?
As-tu vérifier que tu n'as pas de macro virus ?
thomasf007
Messages postés36Date d'inscriptionvendredi 23 mai 2008StatutMembreDernière intervention31 mars 2013 14 mars 2011 à 11:54
En fait j'ai crié victoire trop vite...
ça me demande toujours le mot de passe à la fermeture d'excel....
Par contre, si je supprime le code de l'onglet "ThisWorkbook", tout fonctionnne...
Si tu vois une erreur, n'hésite pas à me le signaler.
Voici le code :
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Action à effectuer lors de la fermeture du fichier
'Verrouille tous les boutons de la feuille "MISSIONS"
Missions.CommandButton_Create.Enabled = False
Missions.CommandButton_Modify.Enabled = False
Missions.CommandButton_Delete.Enabled = False
Missions.CommandButton4.Enabled = False
Missions.CommandButton_DataBase.Enabled = False
Missions.CommandButton7.Enabled = False
'Cache la feuille PASS
Pass.Visible = xlSheetHidden
'Selection de cases
Missions.Range("A1:A1").Select
'Sauvegarde du fichier
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open() 'Opérations à l'ouverture du fichier
'Cherche le mot de passe dans la feuille PASS
motdepasse = Pass.Cells(1, 1).Value
'Vérifie si les feuilles PASS et DATA sont cachées
If Pass.Visible xlSheetVisible Then Pass.Visible xlSheetHidden
If Data.Visible xlSheetVisible Then Data.Visible xlSheetHidden
'Met le bouton OPEN/CLOSE d'origine à OPEN SESSION
Missions.CommandButton_OpenSession.Caption = "OPEN SESSION"
'Change la couleur de l'écriture OPEN SESION
Missions.CommandButton_OpenSession.ForeColor = &H8000000D