Autres Code macro verrouillage / déverrouillage feuille et classeur

Nonomix

XLDnaute Nouveau
Bonjour,

J'ai créer un tableau avec 2 macros (une pour copier/coller une feuille et une autre pour insérer une ligne dans la feuille active) où les feuilles et la structure sont protéger par un code.

Je recherche un code macro qui permet de déverrouiller les codes l'instant que les macros se fassent et tout reverrouiller aussitôt terminer.

Voici mes codes macro actuel (Excel 2007) :



Sub CREER_FEUILLE_ENFANT()
'
' CREER_FEUILLE_ENFANT Macro
'

'
Sheets("FEUILLE TYPE A COPIER").Select
Sheets("FEUILLE TYPE A COPIER").Copy After:=Sheets(3)
Sheets("FEUILLE TYPE A COPIER (2)").Select
Sheets("FEUILLE TYPE A COPIER (2)").Name = "FEUILLE A RENOMMER"
Range("B1").Select
End Sub


Sub AJOUT_MOIS()
s'
' AJOUT_MOIS Macro
'

'
Rows("7:7").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("C7:G7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("I7:J7").Select
Selection.ClearContents
Rows("7:7").Select
End Sub

J'ai trouver des macro pour le verrouillage / déverrouillage des feuilles mais cela me donne un code erreur ici : Selection.Insert Shift:=xlDown.
Je ne sais pas pourquoi et du coup je recherche une autre solution, je précise que je suis novice dans la macro.

Je voudrais savoir aussi :

Si la "FEUILLE TYPE A COPIER" peut être masquer sans que cela perturbe la macro ?
Si on peut mettre un message d'alerte pour que l'utilisateur modifie le nom de la nouvelle immédiatement ?
Si on peut laisser le choix à l'utilisateur le choix de supprimer ou non certaines feuilles seulement ?

Merci à vous
 

Discussions similaires

Statistiques des forums

Discussions
311 705
Messages
2 081 729
Membres
101 806
dernier inscrit
Nebnefers