Sub auto_open()
Extract = False
Protection "CERTIFICAT", True 'On protège la feuille CERTIFICAT lors de l'ouverture
Protection "Etiq-vol", True 'Ainsi que pour la feuille Etiq-vol
Protection "FTBP", False 'La protection sur la feuille n'est pas encore activé
Sheets("FTBP").Select 'On ouvre la feuille
Range("B3").Select 'On sélectionne la cellule B3
ActiveWindow.FreezePanes = True 'Les volets fractionnés sont figés.
Protection "FTBP", True 'On protège maintenant la feuille
// LA NOUVEAUTE EST LA LIGNE QUI SUIT SEULEMENT
MsgBox ("Avertissement : Ces feuilles sont protégées, veuillez vous connecter en allant dans l'onglet Complement")
AddButton "Enlever protection", "Enlever la protection", 505, "btnEnleverProtect"
'On créé un nouveau bouton dans la nouvelle barre d'outils
Workbooks("Application_ETBP.xlsm").Close
End Sub 'On ferme l'accueil (la 1ère page de l'application où on se connecte)