XL 2016 copier des cellules verrouillées sans codes

[papacorno]

Bonsoir la team, j'ai reçu un fichier excel avec des cellules qui sont verrouillées (Une base de données). Je précise qu'à part les titres de colonnes , toutes les cellules sont vides.
Afin de pouvoir travailler sur ce fichier , je souhaiterais faire un copier/coller de l'ensemble du tableau avec tous ses formats y compris les listes de menu déroulantes sinon je vais devoir recréer ce tableau.
Un coup de pouce ne serait pas de refus, merci d'avance.
Bonne soirée

 

[sylvanu]

Bonsoir Papacorno,
S'il n'y a pas d'autres protection de la feuille que le classique mot de passe, tentez ceci :
1- Vous sélectionnez toute la feuille avec

2- Vous faites Copier
3- Vous sélectionnez une nouvelle feuille vierge, ou dans un nouveau classeur, cliquez en A1 et faire coller.
Normalement ça marche, cela copie tout contenu et format.

 

[Laurent78]

Bonsoir à tous,
Vous pouvez aussi dupliquer l'onglet.
Je ne vois pas très bien ou est le problème, n'hésitez pas à joindre le fichier anonymisé, mais vu qu'il est vide ....
Bonne soirée

 

[sylvanu]

Re,
@laurent, si on duplique une feuille qui a un mot de passe, on se retrouve avec une feuille qui a un mot de passe.

 

[papacorno]

Bonsoir, Je pense qu'il y a d'autre protection car je ne peux pas sélectionner la case en haut à gauche qui sélectionne toute la feuille.

 

[Staple1600]

Bonsoir le fil

[Pour infos, et de passage]

9 - Les demandes de "déprotection" de classeurs Excel sont interdites quelle que soit la raison.

Mieux vaut s'en rappeler avant de poser sa question.
😉

 

[papacorno]

Bonsoir le fil

[Pour infos, et de passage]

Mieux vaut s'en rappeler avant de poser sa question.
😉

Bonsoir,
oup's autant pour moi je ne savais pas .
Je retire ma demande même si mon tableau est vierge de données...
Cordialement

 

[job75]

Bonsoir,

Bah JM, ce n'est pas une demande de déprotection, c'est juste une demande de copie !!!

Et avec une macro pas besoin de sélectionner les cellules :

Sub Copier()
Dim fichier$
fichier = ThisWorkbook.Path & "\Source.xlsx" 'à adapter
If Dir(fichier) = "" Then MsgBox "Fichier Source.xlsx introuvable...": Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(fichier).Sheets(1) 'ouvre le fichier
    .Cells.Copy Feuil1.[A1] 'copie-colle toutes les cellules
    Feuil1.[A1].Copy Feuil1.[A1] 'allège la mémoire
    .Parent.Close False 'ferme le fichier
End With
End Sub

A+

 

[Staple1600]

Bonsoir job75

Bonsoir la team, j'ai reçu un fichier excel avec des cellules qui sont verrouillées (Une base de données).

Bah, dans ce cas, contactez l'expéditeur de mail pour demander le mot de passe.
😉

Pour le reste c'était simplement informatif.
D'où le:
[Pour infos, et de passage]

 

[Laurent78]

Bonsoir,

Bah JM, ce n'est pas une demande de déprotection, c'est juste une demande de copie !!!

Et avec une macro pas besoin de sélectionner les cellules :

Sub Copier()
Dim fichier$
fichier = ThisWorkbook.Path & "\Source.xlsx" 'à adapter
If Dir(fichier) = "" Then MsgBox "Fichier Source.xlsx introuvable...": Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(fichier).Sheets(1) 'ouvre le fichier
    .Cells.Copy Feuil1.[A1] 'copie-colle toutes les cellules
    Feuil1.[A1].Copy Feuil1.[A1] 'allège la mémoire
    .Parent.Close False 'ferme le fichier
End With
End Sub

A+

Re,
@laurent, si on duplique une feuille qui a un mot de passe, on se retrouve avec une feuille qui a un mot de passe.

Bonjour,
Moi j'avais compris qu'il voulait copier, pas de déprotéger quoique ce soit 🪖