Discussion :

[jeannevds]

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 !

[parmi]

Bonjour,

J'essaierais ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Else
        Sh1.Copy
        ActiveWorkbook.Activesheet.Cells.Locked = True
        ActiveWorkbook.Close savechanges:=True, Filename:=Chemin
    End If

[jeannevds]

Parfait ! Merci beaucoup !

Bonne fin de journée

[Menhir]

Avant de verrouiller la feuille, il faut marquer les cellules à verrouiller.
Si dans ton cas tu veux tout verrouiller, AVANT de protéger la feuille, il faudrait faire un truc qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UsedRange.Locked = True

https://msdn.microsoft.com/fr-fr/lib.../ff836172.aspx