Projet toujours actif apres fermeture classeur

Bonjour,

C-joint le fichier.

1- se connecter avec identifiant "administrateur" puis le fermer de suite avec la croix rouge.

2- demande de protection des cellules réponse = oui

3- le classeur se ferme (mais pas excell)

4- je l'ouvre à nouveau avec l'identifiant "1927"

5- le message me dit "matrice gelée" et ferme le classeur (le code est le suivant dans le module identifiant :

Case Else

For i = 1 To ThisWorkbook.Sheets.Count

If ThisWorkbook.Sheets(i).ProtectContents = True Then

MsgBox "La matrice est gelée! vous ne pouvez pas la modifier !"

ThisWorkbook.Save

ThisWorkbook.Close False

End

End If

Next i

CEPENDANT, le projet reste ouvert dans le developpeur !

J'ai regardé, cela fait 2 semaines que je galère. J'ai lu qu'il fallait ajouter end / .close false ... j'ai tout essayé

COMMENT FERMER A CHAQUE FOIS LE PROJET DE MANIERE PROPRE. !

lorsque le projet reste ouvert et que j'ouvre à nouveau le classeur, l'evenement concernant l'ouverture du classeur "private sub workbook open" ne s'execute plus.

HELP PLEASE !

merci beaucoup

jasserin

bonjour,

Avertissement : réponse non testée (au feeling !)

Empêcher l'usage de la croix de fermeture dans les Userform "Demande de mots de passe" :

Mettre la macro suivante dans le USF :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Juste avant chaque occurrence de Workbooks.Close mettre

Application.EnableEvents = True

A+

Bonjour galopin,

SUPER ! j'ai juste remis l'application.enable à true et cela marche !! il faut que je retravaille ce truc car je ne le comprends pas encore super bien.

pour interdire la fermeture avec la croix rouge : il faut que je créé un usefrom et que je mette ton programme dedans ou bien je le mets dans thisworkbook comme pour les autres évenements ?

encore merci pour ton aide,

jasserin

Bonjour,

Ne pas tenir compte de cette indication.

Comme je te l'ai dit je n'ai fait que parcourir très superficiellement le code.

Comme il n'y a pas de Userform tu n'as aucune raison d'ajouter cette macro.

A+