Macro pour la fermeture de feuilles de calcul

[electra]

Bonjour a tous

Heureusement qu'il y a ExcelDownloads pour nous sauver!

J'ai réaliser deux Macros:
La première pour protéger toutes les feuilles de mon classeur en même temps avec un mot de passe.
La deuxième pour (dé) protéger les feuilles du classeur en même temps avec mot de passe.

La première fonctionne bien, mais la seconde me débloque feuille par feuille avec le MDP.
Autant vous dire que c'est galère a faire car j'ai plus de 60 feuilles.

Ci-joint les deux macros réalisé.

Sub PROTEC()
Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Taper un mot de passe", 2)

For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=(MotPass), Contents:=True, _
DrawingObjects:=True, Scenarios:=True
Next sht '
End Sub
________________________________________________

Sub HDDEPROTEC()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub
_______________________________________________


D'avance un grand Merci!

électra

 

[Pierrot93]

Re : Macro pour la fermeture de feuilles de calcul

Bonjour,

euh... pourquoi ne pas procéder comme avec la macro de protection et demander le mot de passe une seule fois...

MotPass = InputBox("Taper LE mot de passe", 2)

bon après midi
@+

 

[electra]

Re : Macro pour la fermeture de feuilles de calcul

Bonjour Pierrot,

Je viens de tester la macro avec MotPass = InputBox("Taper LE mot de passe", 2)
quand j'exécute la macro on me demande bien le MDP mais me revois sur chaque feuille avec le MPD

Grrrr.....

 

[Pierrot93]

Re : Macro pour la fermeture de feuilles de calcul

Re,

modifie ainsi :

Sub HDDEPROTEC()
 Dim sht As Worksheet
Dim MotPass
 MotPass = InputBox("Taper un mot de passe", 2)
 
 For Each sht In ActiveWorkbook.Worksheets
 sht.Unprotect MotPass 
 Next sht
 End Sub