Discussion :

[texas2607]

Bonjour,
J'utilise un code VBA afin de créer un nouveau classeur. tout fonctionne sans problème mais je voudrais rajouter une protection sur la feuille de ce classeur créé.

j'utilise ce code pour la création :

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
Sub Exporter()
    Dim Sht As Worksheet
 
    Nom = ThisWorkbook.ActiveSheet.Name
 
    'Copie l'onglet dans un nouveau classeur
    Set Sht = ThisWorkbook.Worksheets(Nom)
    Sht.Copy
 
    'Sauvegarde du nouveau classeur
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Chemin & Sht.Name
    ActiveWorkbook.Close False
    Application.DisplayAlerts = False
 
    Set Sht = Nothing
 
End Sub

Pour protéger ma feuille je pense que c'est

Code :

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

ActiveSheet.Protect "Code"

Mais comment et où le rajouter ? j'ai tenté mais cela ne fonctionne pas.

D'avance merci
Fred

[a_diard]

Je pense

Code :

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

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

voir avec l'enregistreur de macro quelles protections tu souhaite.

juste avant :

Code :

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

   ActiveWorkbook.SaveAs Chemin & Sht.Name