Macro de fermeture

[electra]

Bonsoir a tous,

J'ai réalisé mes premières macro dur dur. Macro qui protège et deprotège plusieurs feuilles a la fois.

Sur la 1ere ( PROTEC ) impeccable, mais sur la 2ème ( DEPROTEC ) petit problème, elle me débloque bien avec le code mais feuille par feuille.
Ci-joint les deux macro:

PREMIERE MACRO

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

DEUXIEME MACRO

Sub DEPROTEC()

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

'
ActiveSheet.Unprotect
Next sht
End Sub

D'avance un grand merci
Electra

 

[ROGER2327]

Re : Macro de fermeture

Bonsoir electra

Essayez :

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

ça devrait faire l'affaire.​

ROGER2327
#5516

Dimanche 22 Gueules 139 (Saint Sexe, Stylite - fête Suprême Première seconde)
27 Pluviôse An CCXX, 9,4286h - noisetier
2012-W07-4T22:37:43Z