Discussion :

[hkpsyco]

Bon encore moi lol.

Je veux protéger une feuille avec un mot de passe en précisant ce que je veux protéger (sélection de cellule, format de cellule etc...). Voisi le code que j'utilise :

Code :

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

1
2
3
4
 
ActiveSheet.Protect ("test")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Mais voila, la page se protège bien, mais enlèce mon mot de passe "test" ! Du coup on peut enlever la protection sans mot de passe.

Une idée ?

[jfontaine]

Je ne comprend pas bien cette phrase

Mais voila, la page se protège bien, mais enlèce mon mot de passe "test" ! Du coup on peut enlever la protection sans mot de passe.

[hkpsyco]

Au départ j'ai une feuille protéger par le mot de passe "test"

Ensuite j'ai une macro qui va enlever cette protection puis la remettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
activesheet.unprotect("test")
 
 
'traiment
 
 
ActiveSheet.Protect ("test") 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Mais lorsque la protection est appliqué par la macro, la page se protège mais ne demande plus de mot de passe lorsqu'on veut la déprotéger

[jfontaine]

Dans cet ordre le mot de passe est ok, mais est ce que ca protege bien ce que tu desires,

Code :

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

1
2
3
4
5
6
7
8
9
 
ActiveSheet.Unprotect ("test")
 
 
'traiment
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
 
ActiveSheet.Protect ("test")

[Drost]

Hello,

Voici le code que j'utilise pour verrouiller et deverouiller mes feuilles :

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
Sub protect1()
Dim w As Worksheet
 
For Each w In ActiveWorkbook.Sheets
w.protect Password:="Mot de Passe", AllowFiltering:=True
Next
 
End Sub
 
Sub protect2()
Dim w As Worksheet
Sheets("Template").Unprotect Password:="ABS"
For Each w In ActiveWorkbook.Sheets
w.Unprotect Password:="Mot de Passe"
Next
End Sub

[hkpsyco]

Merci Drost !

ça fonctionne nickel

Code :

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

1
2
3
 
ActiveSheet.Protect Password:="assurancemaladie974", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells

Comme ça c'est ok !