détection de l'état de protection d'une feuille...
2 réponses
Antoine
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non
protection d'une feuille, du genre :
If ActiveWorkbook.Protect , true, true, true est vrai Then...
Je ne sais pas si cela est réalisable ?
Merci à tous pour votre aide
Antoine
--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
236 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Francois L
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non protection d'une feuille, du genre : If ActiveWorkbook.Protect , true, true, true est vrai Then... Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test() For Each sh In ActiveWorkbook.Worksheets() If sh.ProtectContents = True Then a = "Oui" Else a = "Non" End If MsgBox a Next End Sub
On peut aussi tester ProtectDrawingObjects ProtectScenarios ProtectStructure ProtectWindows
-- François L qui se moque de savoir combien ton antispam en a chopé, si tu pouvais enlever l'option qui colle ce message pub, ce serait mieux
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non
protection d'une feuille, du genre :
If ActiveWorkbook.Protect , true, true, true est vrai Then...
Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test()
For Each sh In ActiveWorkbook.Worksheets()
If sh.ProtectContents = True Then
a = "Oui"
Else
a = "Non"
End If
MsgBox a
Next
End Sub
On peut aussi tester
ProtectDrawingObjects
ProtectScenarios
ProtectStructure
ProtectWindows
--
François L
qui se moque de savoir combien ton antispam en a chopé, si tu pouvais
enlever l'option qui colle ce message pub, ce serait mieux
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non protection d'une feuille, du genre : If ActiveWorkbook.Protect , true, true, true est vrai Then... Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test() For Each sh In ActiveWorkbook.Worksheets() If sh.ProtectContents = True Then a = "Oui" Else a = "Non" End If MsgBox a Next End Sub
On peut aussi tester ProtectDrawingObjects ProtectScenarios ProtectStructure ProtectWindows
-- François L qui se moque de savoir combien ton antispam en a chopé, si tu pouvais enlever l'option qui colle ce message pub, ce serait mieux
Antoine
Bonjour François L
Merci beaucoup pour ta réponse. C'est exactement ce que je recherchais.
Pour ce qui est de l'anti-spam, je vais le suppirmer (je ne savais pas que dans les messages sur forum, il ajoutait une pub...)
Merci à toi
Antoine "Francois L" a écrit dans le message de news:
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non protection d'une feuille, du genre : If ActiveWorkbook.Protect , true, true, true est vrai Then... Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test() For Each sh In ActiveWorkbook.Worksheets() If sh.ProtectContents = True Then a = "Oui" Else a = "Non" End If MsgBox a Next End Sub
On peut aussi tester ProtectDrawingObjects ProtectScenarios ProtectStructure ProtectWindows
-- François L qui se moque de savoir combien ton antispam en a chopé, si tu pouvais enlever l'option qui colle ce message pub, ce serait mieux
-------------------------------------------------------------------------------- J'utilise la version gratuite de SPAMfighter pour utilisateurs privés. 236 e-mails spam ont été bloqués jusqu'à maintenant. Les utilisateurs payant n'ont pas ce message dans leurs e-mails. Essayez SPAMfighter gratuitement maintenant!
Bonjour François L
Merci beaucoup pour ta réponse.
C'est exactement ce que je recherchais.
Pour ce qui est de l'anti-spam, je vais le suppirmer (je ne savais pas que
dans les messages sur forum, il ajoutait une pub...)
Merci à toi
Antoine
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
OSfGuHr6GHA.200@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de
non protection d'une feuille, du genre :
If ActiveWorkbook.Protect , true, true, true est vrai Then...
Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test()
For Each sh In ActiveWorkbook.Worksheets()
If sh.ProtectContents = True Then
a = "Oui"
Else
a = "Non"
End If
MsgBox a
Next
End Sub
On peut aussi tester
ProtectDrawingObjects
ProtectScenarios
ProtectStructure
ProtectWindows
--
François L
qui se moque de savoir combien ton antispam en a chopé, si tu pouvais
enlever l'option qui colle ce message pub, ce serait mieux
--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
236 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!
Merci beaucoup pour ta réponse. C'est exactement ce que je recherchais.
Pour ce qui est de l'anti-spam, je vais le suppirmer (je ne savais pas que dans les messages sur forum, il ajoutait une pub...)
Merci à toi
Antoine "Francois L" a écrit dans le message de news:
Bonjour à tous,
Je n'arrive pas à écrire une condition sur l'état de protetction ou de non protection d'une feuille, du genre : If ActiveWorkbook.Protect , true, true, true est vrai Then... Je ne sais pas si cela est réalisable ?
Bonjour,
Pour tester la protection du contenu
Sub test() For Each sh In ActiveWorkbook.Worksheets() If sh.ProtectContents = True Then a = "Oui" Else a = "Non" End If MsgBox a Next End Sub
On peut aussi tester ProtectDrawingObjects ProtectScenarios ProtectStructure ProtectWindows
-- François L qui se moque de savoir combien ton antispam en a chopé, si tu pouvais enlever l'option qui colle ce message pub, ce serait mieux
-------------------------------------------------------------------------------- J'utilise la version gratuite de SPAMfighter pour utilisateurs privés. 236 e-mails spam ont été bloqués jusqu'à maintenant. Les utilisateurs payant n'ont pas ce message dans leurs e-mails. Essayez SPAMfighter gratuitement maintenant!