Oter laprotection de plusieurs feuilles

[EDDY HANOUN]

J'ai un classeur avec 25 feuilles protégées.
Je dispose du mot de passe identique pour les 25 feuilles. Comment ôter les protections en une seule intervention ? Je serais ravi de trouver une solution.

 

[JC de Lorient]

salut
en principe içi on commence par un bonjour et on fini par un merci !!!!

pour ton code essayes ça :
Sub verrou()
Dim x As Byte
For x = 1 To Sheets.Count
Sheets(x).Unprotect Password:='mot_de_passe'
Next
End Sub

 

[Temjeh]

Bonjour à tous

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect , password:='blabla'
Next i
End Sub


Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect , password:='blabla'
Next i
End Sub


Temjeh

 

[Temjeh]

Bonjour aussi JC

boffff pour 1 min deux réponses

Temjeh

 

[EDDY HANOUN]

Bonjour et merci. Et sans code, y a t-il une solution?

 

[EDDY HANOUN]

Merci. Et sans coder y a t-il une solution?

 

[JC de Lorient]

re

oui outils/protection/déprotéger la feuille

et faire ça 25 fois !!!

 

[EDDY HANOUN]

Là je considère que c'est de L'humour !

 

[christophe]

bonjour

je souhaite enlever une protection sur un fichier excel j'ai bien lu les différents items mais je ne comprends pas où rentrer les formules pouvez vous être plus explicite ?