Bonjour,

J'ai un classeur (A) qui comprend plusieurs feuilles. Grace à une macro j'enregistre sur un nouveau classeur (B) la première feuille de ce classeur (A).

La feuille du classeur (A) comprend des cellules verrouillées et d'autres non, pour que l'utilisateur modifie seulement certaines cellules.

Cependant, j'ai besoin que le classeur (B) soit verrouillé en totalité et qu'aucune cellule ne soit modifiable.. Pour l'instant, quand j'enregistre, le fichier créé récupère les cellules verrouillés du premier fichier..

Voici le code de la macro pour enregistrer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub EnregistrerFichierFinal()
 
    Dim Sh1 As Worksheet
    Set Sh1 = ThisWorkbook.Worksheets(1)
 
    Sh1.Unprotect ("mdp")
 
    Filtre = "Fichier Excel(*.xlsx),*.xlsx"
    Titre = "Enregistrer le fichier sous"
    Chemin = Application.GetSaveAsFilename(FichierFinal, Filtre, , Titre)
 
    If Chemin = False Then
            Exit Sub
    Else
        Sh1.Copy
        ActiveWorkbook.Close savechanges:=True, Filename:=Chemin
    End If
 
    Sh1.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
 
End Sub

En espérant avoir correctement expliqué mon problème,

Merci d'avance !