Macro pour copier oter la protection coller protéger
Résolu
cri66
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
cri66 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
cri66 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je sèche...
Je souhaite à l'aide d'une macro copier une ligne sur la feuille 1, et la coller sur la première ligne vide de la feuille 2 qui est protégée.
Sans les instruction de "oter la protection et protéger" ça fonctionne et avec ça ne marche plus.
'copie des données'
Range("7:7").Select
Selection.Copy
Sheets("feuille2").Select
'oter la protection'
ActiveSheet.Unprotect "mot de passe"
'recherche première ligne vide '
derniere_ligne = Range("A65536").End(xlUp).Row
Rows(derniere_ligne + 1 & ":" & derniere_ligne + 1).Select
'colle les valeurs'
ActiveSheet.Paste
'protège la feuille'
ActiveSheet.Protect "mot de passe", True, True, True
merci de votre aide
Je sèche...
Je souhaite à l'aide d'une macro copier une ligne sur la feuille 1, et la coller sur la première ligne vide de la feuille 2 qui est protégée.
Sans les instruction de "oter la protection et protéger" ça fonctionne et avec ça ne marche plus.
'copie des données'
Range("7:7").Select
Selection.Copy
Sheets("feuille2").Select
'oter la protection'
ActiveSheet.Unprotect "mot de passe"
'recherche première ligne vide '
derniere_ligne = Range("A65536").End(xlUp).Row
Rows(derniere_ligne + 1 & ":" & derniere_ligne + 1).Select
'colle les valeurs'
ActiveSheet.Paste
'protège la feuille'
ActiveSheet.Protect "mot de passe", True, True, True
merci de votre aide
A voir également:
- Macro pour copier oter la protection coller protéger
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Style d'écriture a copier coller - Guide
1 réponse
Bonjour,
essaye comme cela
Sheets("Feuil2").Unprotect "mot de passe"
Sheets("Feuil1").Range("7:7").Copy
'recherche première ligne vide
Range("A65536").End(xlUp).Offset(1, 0).Select
'colle les valeurs
ActiveSheet.Paste
'protège la feuille
ActiveSheet.Protect "mot de passe"
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
essaye comme cela
Sheets("Feuil2").Unprotect "mot de passe"
Sheets("Feuil1").Range("7:7").Copy
'recherche première ligne vide
Range("A65536").End(xlUp).Offset(1, 0).Select
'colle les valeurs
ActiveSheet.Paste
'protège la feuille
ActiveSheet.Protect "mot de passe"
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
cri66
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
merci ça fonctionne !