bonjour à tous
J'ai un code qui copie 2 onglets de mon classeur actif dans un nouveau classeur et l'enregistre sous un nouveau nom.
Mon problème est que je voudrai enregistrer ce nouveau classeur en lecture seule avec mot de passe.
Ci-dessous le code que j'utilise :
Quelqu'un pourrait-il me donner le code à ajouter à celui-ci ?
Merci d'avance
J'ai un code qui copie 2 onglets de mon classeur actif dans un nouveau classeur et l'enregistre sous un nouveau nom.
Mon problème est que je voudrai enregistrer ce nouveau classeur en lecture seule avec mot de passe.
Ci-dessous le code que j'utilise :
Code:
'Enregistrement du fichier
Enregistrement = ThisWorkbook.Sheets("Original").Range("B4")
Sheets(Array("datas", "Original")).Copy
sauv = Application.Dialogs(xlDialogSaveAs).Show(Enregistrement)
If sauv = True Then
ActiveWorkbook.Worksheets("Datas").Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveWorkbook.Close True
ThisWorkbook.Worksheets("Datas").Visible = False
ThisWorkbook.Worksheets("Original").Visible = False
'Raz du fichier Original ?
RAZ = MsgBox("Le rapport a bien été enregistré" & Chr(10) & Chr(10) _
& "Voulez-vous remettre le fichier original à zéro ?", _
vbQuestion + vbYesNo, "Enregistrement")
If RAZ = 6 Then Call ResetRpt
ThisWorkbook.Close True
Else
ActiveWorkbook.Close False
ThisWorkbook.Worksheets("Datas").Visible = False
ThisWorkbook.Worksheets("Original").Visible = False
Exit Sub
End If
Quelqu'un pourrait-il me donner le code à ajouter à celui-ci ?
Merci d'avance