Tester si un classeur est protégé

Le
defluc
Bonjour à tous

Je voudrais tester à l'intérieur d'une macro si le classeur actif est
protégé.

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FS
Le #19816011
Bonjour,

Par exemple :

'======================= Function IsProtected(Wbk As Workbook) As Boolean
Dim x
With Wbk
x = .ProtectStructure + .ProtectWindows
End With
IsProtected = (x < 0)
End Function
'=======================
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/

defluc a écrit :
Bonjour à tous

Je voudrais tester à l'intérieur d'une macro si le classeur actif est
protégé.

Merci d'avance


defluc
Le #19816721
Merci beaucoup
FS a écrit :
Bonjour,

Par exemple :

'======================= > Function IsProtected(Wbk As Workbook) As Boolean
Dim x
With Wbk
x = .ProtectStructure + .ProtectWindows
End With
IsProtected = (x < 0)
End Function
'======================= >
FS


Publicité
Poster une réponse
Anonyme