VBA Excel dupliquer une feuille en mode protégé et non protégé
Résolu
fleurette85
Messages postés
270
Date d'inscription
Statut
Membre
Dernière intervention
-
fleurette85 Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
fleurette85 Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une feuille qui est protégée et je veux la dupliquer en mode non protéger au total quand je lance mon application je dois avoir deux onglets:
Onglet1 >>>> En mode protégé et Onglet2 qui contient les mêmes données que l'onglet1 mais cet onglet là doit être en mode non protéger .
Avez vous une idée sur la solution ?
Je vous remercie
PS: Je suis débutante dans la programmation vba excel
J'ai une feuille qui est protégée et je veux la dupliquer en mode non protéger au total quand je lance mon application je dois avoir deux onglets:
Onglet1 >>>> En mode protégé et Onglet2 qui contient les mêmes données que l'onglet1 mais cet onglet là doit être en mode non protéger .
Avez vous une idée sur la solution ?
Je vous remercie
PS: Je suis débutante dans la programmation vba excel
A voir également:
- VBA Excel dupliquer une feuille en mode protégé et non protégé
- Dupliquer ecran - Guide
- Mode avion - Guide
- Word et excel gratuit - Guide
- Proteger cellule excel - Guide
- Liste déroulante excel - Guide
5 réponses
C'est que tu n'a pas mis le code à la bonne place.
Quand tu copie une feuille c'est celle là qui est active.
Met la ligne pour changer le nom JUSTE EN DESSOUS de la ligne qui Copy la feuille
Quand tu copie une feuille c'est celle là qui est active.
Met la ligne pour changer le nom JUSTE EN DESSOUS de la ligne qui Copy la feuille
Bonjour,
A tester
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
A tester
Sub CopieFeuille()
Sheets("Feuil1").Unprotect 'si mot de passe le mettre ici
Sheets("Feuil1").Copy after:=Sheets.Count
ActiveSheet.Name = "Nouveau"
Sheets("Feuil1").Protect 'si mot de passe le mettre ici
End SubA+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Bonjour,
Au fait je suis entrain de faire des modifications sur un projet qui existe déjà.
La feuille que je veux copier est déjà protégé donc j'ai le code qui faut pour ça.
Pour ma copie je viens de rajouter une ligne de code à la fin de toutes les fonctions qui existaient déjà nécessaires à faire tous les traitement pour générer la feuille .
J'ai ajouté donc cette ligne là :
ça marche bien j'ai la première feuille qui est protégée et la deuxième qui ne l'est pas ce pendant je ne sais pas si c'est bon ou pas ou bien ça risque de bloquer par la suite :(
Je souhaite maintenant renommer la feuille qui a été générée ' la copie " avec un notre nom
Il faut faire quoi exactement please
Au fait je suis entrain de faire des modifications sur un projet qui existe déjà.
La feuille que je veux copier est déjà protégé donc j'ai le code qui faut pour ça.
Pour ma copie je viens de rajouter une ligne de code à la fin de toutes les fonctions qui existaient déjà nécessaires à faire tous les traitement pour générer la feuille .
J'ai ajouté donc cette ligne là :
'Crée une copie de la Feuille " Prix de Vente" et la positionne à la fin du classeur.
Worksheets("Prix de Vente").Copy After:=Sheets(Sheets.count)
ça marche bien j'ai la première feuille qui est protégée et la deuxième qui ne l'est pas ce pendant je ne sais pas si c'est bon ou pas ou bien ça risque de bloquer par la suite :(
Je souhaite maintenant renommer la feuille qui a été générée ' la copie " avec un notre nom
Il faut faire quoi exactement please
beh je donne la réponse dans mon poste précédant..
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
ActiveSheet.Name = "Nouveau nom"A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Voilà le code finale que j'ai utilisé :
'Crée une copie de la Feuille "Prix de Vente" et la positionne à la fin du classeur. Worksheets(" Prix de Vente").Copy After:=Sheets ActiveSheet.Name = "Copie Prix de Vente "