Problème entre activesheet unprotect et activesheet paste
VDB57
-
VDB57 -
VDB57 -
Bonjour,
Je reviens vers vous les référents. Lorsque je veux protéger ma feuille "récapitulatif" avec (activesheet unprotect) j'ai une erreur 1004 (la méthode paste de la classe Worsheet a échouée) Alors que cette macro fonctionne très bien sans cette protection.
Il faut absolument que je protège ma feuille "récapitulatif", car d'autres utilisateurs s'en serviront.
Merci pour aide précieuse
Sub OuvrirRécape()
'
' OuvrirRécape Macro
Sheets("Trier imprimer").Visible = True
Sheets("Trier imprimer").Select
ActiveSheet.Unprotect
Columns("b:b").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Columns( _
"b:b"), CopyToRange:=Columns("h:h"), Unique:=True
Columns("h:h").Cut
Sheets("Trier Imprimer").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Récapitulatif").Visible = True
Sheets("Récapitulatif").Select
ActiveSheet.Unprotect
Columns("A:A").Select
ActiveSheet.Paste
Range("A2").Select
ActiveWorkbook.Worksheets("Récapitulatif").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Récapitulatif").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Récapitulatif").Sort
.SetRange Range("A2:A3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").EntireColumn.AutoFit
Columns("A:C").Select
Selection.EntireColumn.Hidden = False
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Selection.EntireColumn.Hidden = True
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("M1").Select
End Sub
Je reviens vers vous les référents. Lorsque je veux protéger ma feuille "récapitulatif" avec (activesheet unprotect) j'ai une erreur 1004 (la méthode paste de la classe Worsheet a échouée) Alors que cette macro fonctionne très bien sans cette protection.
Il faut absolument que je protège ma feuille "récapitulatif", car d'autres utilisateurs s'en serviront.
Merci pour aide précieuse
Sub OuvrirRécape()
'
' OuvrirRécape Macro
Sheets("Trier imprimer").Visible = True
Sheets("Trier imprimer").Select
ActiveSheet.Unprotect
Columns("b:b").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Columns( _
"b:b"), CopyToRange:=Columns("h:h"), Unique:=True
Columns("h:h").Cut
Sheets("Trier Imprimer").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Récapitulatif").Visible = True
Sheets("Récapitulatif").Select
ActiveSheet.Unprotect
Columns("A:A").Select
ActiveSheet.Paste
Range("A2").Select
ActiveWorkbook.Worksheets("Récapitulatif").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Récapitulatif").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Récapitulatif").Sort
.SetRange Range("A2:A3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").EntireColumn.AutoFit
Columns("A:C").Select
Selection.EntireColumn.Hidden = False
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Selection.EntireColumn.Hidden = True
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("M1").Select
End Sub
A voir également:
- Activesheet.paste
- Zelda - A Link to the Past : un retour sur PC et Switch sans émulateur - Accueil - Guide jeu vidéo
4 réponses
Bonjour,
protéger ma feuille "récapitulatif" avec (activesheet unprotect)
Cette instruction enleve la protection sans mot de passe
Y a deux lignes activesheet unprotect, laquelle pose probleme
protéger ma feuille "récapitulatif" avec (activesheet unprotect)
Cette instruction enleve la protection sans mot de passe
Y a deux lignes activesheet unprotect, laquelle pose probleme
Bonjour,
merci de prendre en compte mon problème.
C'est le deuxième Unprotect concernant la feuille "récapitulatif" qui me pose problème.
Si je le supprime tout fonctionne correctement.
merci de prendre en compte mon problème.
C'est le deuxième Unprotect concernant la feuille "récapitulatif" qui me pose problème.
Si je le supprime tout fonctionne correctement.
Re,
Chez moi votre code, meme si pas correct pour protection, ne pose aucun probleme
code pour protection feuille sans mot de passe fait avec enregistreur de macro
Chez moi votre code, meme si pas correct pour protection, ne pose aucun probleme
code pour protection feuille sans mot de passe fait avec enregistreur de macro
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
Merci pour votre implication.
Par défaut ma feuille est protégée.
ma macro déverrouille bien ma feuille "récapitulatif" avec (activesheet unprotect)
Mais bloque sur activesheet paste !!!!!
Lorsque je supprime de ma macro (activesheet unprotect) tout fonctionne correctement.
Par défaut ma feuille est protégée.
ma macro déverrouille bien ma feuille "récapitulatif" avec (activesheet unprotect)
Mais bloque sur activesheet paste !!!!!
Lorsque je supprime de ma macro (activesheet unprotect) tout fonctionne correctement.
Re,
Je repete, chez moi, votre code marche sans probleme et c'est normal
Mettez votre fichier a dispo (sans donnees sensibles), pour que nous puissions voir ce qui ne va pas
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Je repete, chez moi, votre code marche sans probleme et c'est normal
Mettez votre fichier a dispo (sans donnees sensibles), pour que nous puissions voir ce qui ne va pas
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
