Discussion :

[blackstrange]

Bonjour je souhaiterai créer une fonction pour protéger des feuilles excel ainsi qu'une pour les déprotéger. où dois-je placer ces fonctions ? dans un module ? je souhaiterai que lorsque ces fonctions sont appelées, deux variables soient précisées afin de savoir quelles feuilles protégées / déprotégées.

j'ai écris cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Protect(x As Integer, y As Integer)
    Dim sht As Worksheet
    Dim i As Integer
    For i = x To y
    sht(i).Protect Password:=("PASS"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next i
End Sub
Sub Unprotect(x As Integer, y As Integer)
    Dim sht As Worksheet
    Dim i As Integer
    For i = x To y
    sht(i).Unprotect Password:=("PASS")
    Next i
End Sub

j'ai tenté d'appeler ma fonction depuis un formulaire avec "call Protect(x,y)" et en précisant les valeurs de x et y. cela ne focntionne pas. pouvez-vous m'aiguiller ?

[jfontaine]

Bonjour,

Essais comme cela

Code :

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

1
2
3
4
5
6
Sub Protect(x As Integer, y As Integer)
    Dim i As Integer
    For i = x To y
       Worksheets(i).Protect Password:=("PASS"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next i
End Sub

[blackstrange]

Bonjour! cela fonctionne!
j'aurai une question par contre : j'ai essayé de mettre pour y "Worksheets.Count" mais là j'ai une erreur. j'aurai pourtant besoin d'utiliser cela vu que le nombre des feuilles de mon classeur va aller en grandissant. dois-je stocker "Worksheets.Count" dans une variable ? merci pour ton aide!

[jfontaine]

pour protéger de la feuille index 2 au dernier index

Code :

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

Protect 2, ThisWorkbook.Worksheets.Count

Si le but est de mettre un mot de passe sur toutes les feuilles, le mieux est de boucler sur chacune d'entre elles

Code :

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

1
2
3
4
5
6
Sub Protect()
    Dim Sh as Worksheet
    For each sh in thisworkbook.Worksheets
       Sh.Protect Password:=("PASS"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next 
End Sub

[blackstrange]

merci! c'est vrai qu'en me penchant un peu plus sur mon classeur je peux protéger toutes les feuilles d'un coup!

merci problème résolu!