XL 2016 copier des cellules verrouillées sans codes

papacorno

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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
1614797283378.png

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.
 

job75

XLDnaute Barbatruc
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 :
VB:
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+
 

Pièces jointes

  • Copie(1).xlsm
    16.2 KB · Affichages: 12
  • Source.xlsx
    10.5 KB · Affichages: 2

Laurent78

XLDnaute Occasionnel
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 :
VB:
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 🪖
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra