Macro déprotéction des Feuilles protégées

T

TBS

XLDnaute Nouveau

• 14 Avril 2014

• #2

Re : Macro déprotéction des Feuilles protégées

Bonsoir yoyo77, le forum

En utilisant ceci cela devrait fonctionner, cela protège/déprotège l'ensemble des feuilles.
A adapter suivant tes besoins.

Sub recherche2()
Dim nomfeuille1 As String
Dim col1 As String
Dim lidep1 As Long

Dim s As Worksheet
For Each s In Worksheets
Application.ScreenUpdating = False
s.Unprotect Password:="mdp"
Next s

etc...

Cliquez pour agrandir...

et dans listview1

For Each s In Worksheets
Application.ScreenUpdating = False
s.Protect Password:="mdp"
Next s

Cliquez pour agrandir...

Bonne soirée à tous

@+

 

Vote positif 0 Vote négatif

Y

yoyo77

XLDnaute Occasionnel

• 14 Avril 2014

• #3

Re : Macro déprotéction des Feuilles protégées

Salut TBS,

Merki 😀

J'ai essayé mais cela ne marche pas 😕, si quelqu'un passe par ici pour me montrer ;-)

Merci 😎

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2014

• #4

Re : Macro déprotéction des Feuilles protégées

Bonjour,

pour que le code puisse fonctionner sur feuille protégée, il faut que la protectition se fasse par le code en utilisant l'argument "userinterfaceonly", exemple ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto", userinterfaceonly:=True
Next ws
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

Y

yoyo77

XLDnaute Occasionnel

• 15 Avril 2014

• #5

Re : Macro déprotéction des Feuilles protégées

Pierrot93,

Merci beaucoup ca marche nickel c'est parfait,

Bonne journée,

Yoyo77

 

Vote positif 0 Vote négatif