Pb double passage protection feuilles
Bonjour,
Je ne pensais pas revenir aussi vite...
A chaque fermeture de classeur, si je suis en saisie = administrateur, je pose la question de protection ou non des feuilles.
si oui, un mot de passe est demandé. tout se passe bien en pas à pas et les feuilles sont bien protégées mais quand je me connecte normalement en administrateur et que je ferme le classeur :
1- je demande si on veut protéger
Sub messageprotection()
Select Case MsgBox("Voulez vous protéger toutes les feuilles du classeur ?", vbYesNo, "PROTECTION DES FEUILLES")
Case vbYes
motdepasse
ThisWorkbook.Saved = True
ThisWorkbook.Close
Case vbNo
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Select
End Sub
si non : je ferme en sauvegardant
si oui : je vais au sub motdepasse :
Sub motdepasse()
Dim mdp As String
mdp = InputBox("Veuillez entrer le mot de passe", "PROTECTION DES FEUILLES")
Select Case mdp
Case "essai"
For i = 1 To Sheets.Count
ThisWorkbook.Sheets(i).Protect
Next i
Case ""
messageprotection
Case Else
MsgBox ("Mauvais mot de passe.")
motdepasse
End Select
on me demande le mot de passe = essai
à ce moment là, ça boucle une deuxième fois sur la macro messageprotection et à nouveau sur motdepasse pour se fermer sans protéger mes feuilles
Vous voyez le bug ? (oui bien sûr)
merci beaucoup
jasserin
J'ai pas regardé le code en détail mais déjà je pense qu'il y a une erreur à ce niveau.
Sub messageprotection()
Select Case MsgBox("Voulez vous protéger toutes les feuilles du classeur ?", vbYesNo, "PROTECTION DES FEUILLES")
Case vbYes
motdepasse
ThisWorkbook.Saved = True
ThisWorkbook.Close
Case vbNo
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Select
End SubSi tu veux sauvegarder ton classeur il faut utiliser la fonction
ThisWorkbook.SaveSi tu utilises la fonction
ThisWorkbook.Saved = TrueTu indiques à Excel que le fichier est déjà sauvegardé et qu'il n'est pas nécessaire de le faire.
Bonjour,
Effectivement. Merci beaucoup pour cette première correction.
Bonne journée,
jasserin