Protection classeur

bonjour

juste une petite demande , car je bloque : j'ai saisi le code suivant pour verifier si mon classeur est protegé dans sa structure

Sub verif_classeur()
Function IsProtected(objXL As Object) As Boolean
Dim wkb As Excel.Workbook
Set wkb = ActiveWorkbook
If IsProtected(wkb) Then
  MsgBox "Imon classeur est bien protégé!"
  Else
  MsgBox "mon classeur n'est pas protegé!"
End If
End Function
End Sub

le soucis est que j'ai le message d'erreur " end sub " attendu alors que je l'ai bien placé en fin de code

et je ne vois donc pas ce qu'il faut modifier

En auriez vous une idée ?

Merci pour vos réponses

Bonjour rocket 4 le forum

alors comme bricolage là tu fais fort mettre dans une sub une fonction là bravo

le but c'est quoi??????????

Tu peux retirer sub verif classeur et end sub ils sont tous les deux inutiles pour la fonction et il faut créer une sub pour utiliser ta fonction que tu as fait

a+

papou

Merci pour ta réponse Paritec , juste un point que je n'ai pas compris , car mon but etait de faire fonctionner cette macro via un bouton de formulaire

comment créer une sub pour utiliser ma fonction ? je ne vois pas

merci

j'ai essayé comme ceci mais ca ne marche pas non plus

Sub test_classeur()
Dim wbk As Workbooks
Set wbk = ActiveWorkbook

  MsgBox IsProtected(wbk)

End Sub

Bonsoir Rocket 4 le forum

bon alors voilà tu as deux possibilités la macro en direct ou l'appel à la function, bien plus compliqué pour obtenir le même résultat !!a toi de choisir

a+

Papou

Sub Vérifier() ' voilà donc la macro en direct plus simple
    If ThisWorkbook.ProtectStructure Then
        MsgBox "Oui Ton Fichier et Protégé", , "Fichier Bien Protégé"
    Else
        MsgBox "Bon Ton Fichier n'est pas Protégé!!", , "Fichier pas Protégé"
    End If
End Sub

Sub vérifier1()   'là voilà ta macro qui fait appel à la fonction isprotected
    If IsProtected(ThisWorkbook) Then
        MsgBox "Oui Ton Fichier et Protégé", , "Fichier Bien Protégé"
    Else
        MsgBox "Bon Ton Fichier n'est pas Protégé!!", , "Fichier pas Protégé"
    End If
End Sub

Function IsProtected(objXL As Object) As Boolean    'et là la fonction isprotected
    If objXL.ProtectStructure Then
        IsProtected = 1
    Else
        IsProtected = 0
    End If
End Function

Merci Paritec , je n'en aurais jamais fait autant !! , la première macro me paraissant plus simple en effet