Comment savoir si une feuille est protégée

marmotte18

XLDnaute Impliqué
Bonjour

J'aimerais pouvoir afficher la liste des feuilles d'un classeur en indiquant celles qui sont protégées de celles qui ne le sont pas.

Merci par avance de votre aide
 
G

Guest

Guest
Re : Comment savoir si une feuille est protégée

Bonjour,

Essaie ceci:

Code:
[COLOR=blue]Sub[/COLOR] ListeFeuilleETProtection()
    [COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet
    [COLOR=blue]Dim[/COLOR] res(): [COLOR=blue]ReDim[/COLOR] res(1 To Worksheets.Count, 1 To 2)
    [COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
    [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] sh [COLOR=blue]In[/COLOR] Worksheets
        i = i + 1
        res(i, 1) = sh.Name
        res(i, 2) = sh.ProtectContents
    [COLOR=blue]Next[/COLOR] sh
    Range([I]"A1"[/I]).Resize([COLOR=blue]UBound[/COLOR](res), 2) = res
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+
 

job75

XLDnaute Barbatruc
Re : Comment savoir si une feuille est protégée

Bonjour marmotte18, salut Hasco :)

Juste légèrement différent :

Code:
Sub DetectProtection()
Dim s As Object, txt$
For Each s In Sheets
  txt = txt & s.Name & " : " & IIf(s.ProtectContents, "", "non ") & "protégée" & Chr(10)
Next
MsgBox txt
End Sub

A+
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou