Macro avec feuilles protégées
Bonsoir à tous !!
Je suis entrain de finaliser un projet, et j'aimerai protéger mes feuilles, mais si je le fait excel ne veut plus éxécuter les macros ...
Notamment celle-ci :
Sub enregistrement()
Application.ScreenUpdating = False
With Sheets(Cells(8 + Range("M12"), "O").Value)
.Range("A2:P2").Insert shift:=xlShiftDown
Range("A3:P3").Copy
.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Range("P1") = Range("M12") ' On note le numéro du mois du dernier enregistrement
Range("E6:E18").ClearContents
Range("E6").Select
End Sub
C'est très agacent je dois dire ^^
Comment puis-je faire ?
Je vous remercie et passez une bonne soirée !!!
Corentin
Bonjour
Une solution
Déprotèges en début et protèges à la fin
Sub enregistrement()
Application.ScreenUpdating = False
With Sheets(Cells(8 + Range("M12"), "O").Value)
.Unprotect
.Range("A2:P2").Insert shift:=xlShiftDown
Range("A3:P3").Copy
.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Protect
End With
ActiveSheet.Unprotect
Range("P1") = Range("M12") ' On note le numéro du mois du dernier enregistrement
Range("E6:E18").ClearContents
Range("E6").Select
ActiveSheet.Protect
End Sub
Une autre solution
Lors de ta première protection et à chaque ouverture du fichier tu protèges les feuilles avec l'option UserInterfaceOnly(voir l'aide)
ActiveSheet.Protect UserInterfaceOnly:=True
Comme à chaque fois ton aide est parfaite Banzai
Merci encore !!
Une dernière question ....
Excel me demande à chaque fois de rentrer mon mots de passe, et il me le remplace par rien ....
Enfin il laisse la protection mais en enlevant le mot de passe ..
Comment faire ?
Et la toute dernière ...
Comment augmenter la taille du texte contenu dans ma liste déroulante ?
Je sais j'abuse ...
Merci beaucoup !
Bonjour
Corentin a écrit :Excel me demande à chaque fois de rentrer mon mots de passe, et il me le remplace par rien ....
Normal
Il fallait préciser que tu avais un mot de passe
Donc il faut l'inclure dans la protection et la déprotection
ActiveSheet.Protect PassWord:="Mon_Mot_De_Passe", UserInterfaceOnly:=TruePartout où tu as mis Protect ou Unprotect il faut le rajouter
Corentin a écrit :Comment augmenter la taille du texte contenu dans ma liste déroulante ?
Là je ne sais pas
Oui merci ça fonctionne très bien !
Pour la liste déroulante je crois qu'il faut la créer à partir de Visual Basic, j'essaye et je vous tiens au courant
Une bonne fin de semaine à vous !