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
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