La fonction décrite ici vérifie si une feuille de calcul est protégée. Vous devez d’abord créer une feuille de calcul et la protéger, puis vous pouvez écrire une fonction définie par l’utilisateur pour la tester.

Pour vérifier si une feuille de calcul est protégée :

1. Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la fonction suivante :

Function ProtegeFeuille(s As String) As Boolean
On Error GoTo errorAB
If Sheets(s).ProtectContents = True Then
ShProt = True
End If
Exit Function
errorAB:
ShProt = False
End Function

4. Fermez l’éditeur VBA en appuyant sur <Alt+Q>.
5. Sélectionnez n’importe quelle cellule de la feuille de calcul et saisissez la formule =ProtegeFeuille (“Feuille15”). Assurez-vous de remplacer “Feuille15” par le nom de la feuille dont vous souhaitez vérifier la protection.
6. Appuyez sur <Entrée>.