Comment copier sans la protection Résolu/Fermé

Question

Bonjour, 

J'ai un gros dossier qui contient plusieurs feuilles excel. Les feuilles y sont protégées par mot de passe. Un code VBA permet d'enregistrer une de ces feuilles dans un sous-dossier. 

Je voudrais ensuite prendre une feuille d'un sous dossier (enregistré précédemment) et l'enregistrer dans un nouveau classeur en enlevant la protection sans que j'ai à taper le mot de passe. (pour que d'autre puissent modifier ces dernières sans que j'aie à donner le mot de passe). Je n'y arrive pas. Merci de m'aider.

Patrice33740 · Answer

Bonjour,

Il suffit de copier les cellules de la feuille protégée dans un feuille vierge.
Par exemple (si feuille 1 protégée et feuille 2 vierge) : 
Worksheets(1).Cells.Copy Worksheets(2).Cells

Patrice33740 · Answer

Bonjour,

Alors adaptes ce code :
Option Explicit
Sub test()
Dim wbk As Workbook
Dim shp As Shape
  ' Créer un classeur vierge contenant une seule feuille
  Set wbk = Workbooks.Add(xlWBATWorksheet)
  ' Y copier les cellules de la feuille désirée (à adapter)
  ThisWorkbook.Worksheets("Feuil1").Cells.Copy wbk.Worksheets(1).Cells
  ' Supprimer toutes les formes posées sur la feuille
  For Each shp In wbk.Worksheets(1).Shapes
    shp.Delete
  Next shp
End Sub

Caroline · Answer

On y est presque. :)

Le code fonctionne mais il faudrait que le format de page reste le même (largeur des colonnes, hauteur des lignes, grandeur de page. En exécutant le code, les formats ne sont plus les mêmes. Il faudrait que tout reste sur une seule page pour pouvoir imprimer. Aussi, ma feuille contient  une image qui disparaît quand j'exécute le code, elle devrait rester, sauf les boutons. Mais si c'est pas possible de garder l'image, sans les boutons je peux laisser tomber l'image.

Merci beaucoup votre aide est appréciée.

Patrice33740 · Answer

Bonjour

Les formats restent les mêmes (largeur des colonnes, Formats de cellules, MFC,  ...), ce qui peut changer c'est la hauteur de certaines lignes et la mise en page qui n'est pas copiée ! 

Pour conserver l'image, il suffit de connaître son nom (il apparaît à gauche sur la barre des formules lorsque l'image est sélectionnée), et on peur copier les hauteurs de lignes :

Option Explicit
Sub test()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim shp As Shape
Dim rng As Range
  
  Application.ScreenUpdating = False
  ' Définir la feuille source
  Set wsh = ThisWorkbook.Worksheets("Feuil1")
  ' Créer un classeur vierge contenant une seule feuille
  Set wbk = Workbooks.Add(xlWBATWorksheet)
  ' Sur la feuille 1 de ce classeur :
  With wbk.Worksheets(1)
    ' Y copier les cellules de la feuille source (à adapter)
    wsh.Cells.Copy .Cells
    ' Copier la hauteur des lignes
    For Each rng In .UsedRange.Rows
      rng.RowHeight = wsh.Rows(rng.Row).RowHeight
    Next rng
    ' Supprimer toutes les formes posées sur la feuille, sauf Image 1
    For Each shp In .Shapes
      If shp.Name <> "Image 1" Then shp.Delete
    Next shp
  End With
  Application.ScreenUpdating = True
End Sub

Comment copier sans la protection

4 réponses

Discussions similaires