Protection auto après fermeture

Bonjour,

je souhaiterai avoir vos avis sur mon code svp.

pour modifier un fichier ou j'ai mit un MDP, je doit ôter la protection.

J'aimerai qu'une fois mon fichier xls fermer, la macro re-protège automatiquement le fichier

après pas mal de recherche sur le forum j'en ai ressorti ce code, mais ne fonctionne toujours pas.. :

Sub WsLock(Optional y)

Dim PWd$

PWd = "alan"

'Protège ou déprotège toutes les feuilles

Application.ScreenUpdating = False

If IsMissing(y) Then

For i = 1 To Worksheets.Count

Worksheets(i).Protect PWd

[A1].Select

Next

Else

For i = 1 To Worksheets.Count

Worksheets(i).Unprotect PWd

[A1].Select

Next

End If

End Sub

Sub deprotege(Optional y)

WsLock 0

Dim PWd$

PWd = "alan"

'Protège ou déprotège toutes les feuilles

Application.ScreenUpdating = False

If IsMissing(y) Then

For i = 1 To Worksheets.Count

Worksheets(i).Protect PWd

[A1].Select

Next

Else

For i = 1 To Worksheets.Count

Worksheets(i).Unprotect PWd

[A1].Select

Next

End If

End Sub

Sub protege(Optional y)

WsLock

Dim PWd$

PWd = "alan"

'Protège ou déprotège toutes les feuilles

Application.ScreenUpdating = False

If IsMissing(y) Then

For i = 1 To Worksheets.Count

Worksheets(i).Protect PWd

[A1].Select

Next

Else

For i = 1 To Worksheets.Count

Worksheets(i).Unprotect PWd

[A1].Select

Next

End If

End Sub

Merci d'avance pour votre aide !

bonsoir,

à tester

134alano6.xlsm (16.66 Ko)

ça fonctionne super bien !! merci beaucoup !

j'aurai juste une dernière question..

je souhaiterai que la colonne K reste accessible sans avoir à ôter la protection

j'ai tenté de mettre un verrouillage avec la fonction "permettre la modification des plages" sur toute la feuille sauf la colonne K, mais la macro prend le pas dessus et suis obligé de dévérouiller avant modification..

Penses-tu qu'il est possible de faire cela ? ou je doit forcément ôter la protection pour pouvoir modifier dans cette colonne ?

excel alano6

Bonsoir, forum

Sélectionner la colonne K (les cellules) , sur sélection un clic droit puis un clic sur « format de cellule » du menu contextuel et sur la fenêtre format de cellule onglet protection et tu décoche verrouillée.

23 05 2017 20 30 13

Ah oui tout simplement...

tout fonctionne très bien, merci à vous les gars !

Rechercher des sujets similaires à "protection auto fermeture"