VBA. Test pour savoir si une feuille est protégée

2 réponses

20/10/2004 à 11:20

Bonjour,

J'ai fait une macro pour voir si une feuille est protégée ou non... Cela
fonctionne sauf si la feuille a été protégée mais sans mot de passe. Dans ce
cas ma macro me dit que la feuille n'est pas protégée (IsProtect = Faux )
!!! Voici ma macro :

Public Function IsProtect() As Boolean
'* Test la protection de la feuille *
On Error Resume Next
Dim valeur As String

DoEvents
valeur = Range("A1").FormulaR1C1
Range("A1").FormulaR1C1 = valeur

IsProtect = False
If Err.Number <> 0 Then IsProtect = True
End Function

Merci d'avance pour votre aide.
--
@+
HD

2 réponses

papou

20/10/2004 à 11:31

Bonjour
Essaie avec ça :
Function EstProtegee(f As Worksheet) As Boolean
EstProtegee = f.ProtectContents = True
End Function

Sub test()
MsgBox EstProtegee(Worksheets("Feuil1"))
End Sub

Cordialement
Pascal

"HD" a écrit dans le message de news:
%

Bonjour,

J'ai fait une macro pour voir si une feuille est protégée ou non... Cela
fonctionne sauf si la feuille a été protégée mais sans mot de passe. Dans
ce
cas ma macro me dit que la feuille n'est pas protégée (IsProtect = Faux )
!!! Voici ma macro :

Public Function IsProtect() As Boolean
'* Test la protection de la feuille *
On Error Resume Next
Dim valeur As String

DoEvents
valeur = Range("A1").FormulaR1C1
Range("A1").FormulaR1C1 = valeur

IsProtect = False
If Err.Number <> 0 Then IsProtect = True
End Function

Merci d'avance pour votre aide.
--
@+
HD

20/10/2004 à 12:01

Function EstProtegee(f As Worksheet) As Boolean
EstProtegee = f.ProtectContents = True
End Function

Effectivement ça fonctionne mieux et c'est plus propre que ma macro !!!
Merci Papou.
--
@+
HD

VBA. Test pour savoir si une feuille est protégée

2 réponses

Veuillez sélectionner un problème