Verrouiller/déverrouiller feuilles à l'intérieur d'une macro
Bonjour,
J'ai sur mon fichier excel un menu déroulant qui en fonction du choix va lancer une macro ainsi qu'une série de modification sur mon tableau de bord.
Je voudrai pouvoir verrouiller mon classeur tout en permettant aux macro de fonctionner. Mon code est le suivant pour la macro (j'ai caché le nom des macros) :
Je cherche à déverrouiller les feuilles au lancement de la macro et verrouiller à la fin, cela ne fonctionne pas...
(le bouton est en double exemplaire sur 2 feuilles, d'où les deux Select Case)
Sub DropDown1_Change()
Sheets("Synthèse").Unprotect
Sheets("Prev").Unprotect
Sheets("graphs").Unprotect
If ActiveSheet.Name = "Prev" Then
Sheets("Synthèse").Activate
Select Case Sheets("Prev").Range("B380").Text
Case "1": S
Case "2": S
Case "3": S
Case "4": S
Case "5": S
Case "6": S
End Select
Sheets("Prev").Activate
Else
Select Case Sheets("Prev").Range("B380").Text
Case "1": S
Case "2": S
Case "3": S
Case "4": S
Case "5": S
Case "6": S
End Select
End If
Sheets("Synthèse").Protect
Sheets("Prev").Protect
Sheets("graphs").Protect
End Sub
Bonjour,
cela ne fonctionne pas...
Décrit nous ce qui se passe ou ne se passe pas.
Message d'erreur? Feuilles non déprotégées? Les macros ne se lancent pas?
Rappel : tu es seul devant ton pc lorsque "cela ne fonctionne pas". Nous ne pouvons que nous baser sur ta description de ton problème. Or ton code semble correct...à première vue.
EDIT : Qu'est ce que DropDown1? Le nom d'un contrôle? Contrôle Activex?, de formulaire?, de userform?, de feuille?
Dropdown1 est la macro associée à mon bouton de défilement.
Quand je dis que cela ne fonctionne pas c'est que j'ai un message d'erreur qui s'affiche: "La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée. Pour apporter une modification à celui-ci, vous devez ôter la protection de la feuille. Vous serez peut-être invité à entrer un mot de passe."
Les macros fonctionnent très bien normalement sans la protection.
Y a t'il des mots de passe à tes protection de feuilles?
Si oui :
Sheets("Synthèse").UnProtect "PASSWORD"Non pas de mot de passe. Et c'est que j'ai fait, j'ai mis mon code dans mon premier message. La macro joue sur 3 feuilles en même temps pour ca que j'ai déverrouillé les trois en question
Le souci vient d'ailleurs. Ton code est bon.
Essaye d'ajouter un Stop au début de ta procédure, puis d'avancer en pas à pas (appuis répétés sur la touche F8) pour voir ou ça bloque...
Sub DropDown1_Change()
Stop
Sheets("Synthèse").Unprotect
'etc...