Un problème de sécurité

Bonjour à tous,

Je fais appel à votre sagesse pour résoudre un problème de sécurité.

Exposé de la situation:

J'ai un fichier Excel ("colis") que je souhaite protéger deux feuilles ( listes et sources). j'ai pas réussi à exécuter mon code et je sais pas pourquoi

et pour la feuille "page d'accueil" je ne voulais pas la verrouiller.

Sub Bouton2_Cliquer()

Application.EnableEvents = False
If TextBox1 = "1993" Then
ActiveWindow.DisplayWorkbookTabs = True
ActiveSheet.Unprotect Password:="1993"
TextBox1.Text = ""
End If
End Sub

veuillez trouver ci-joint le fichier;

merci d'avance pour vos proposition.

Bonjour

ActiveSheet.Unprotect tu enlèves la protection d'une feuille

ActiveWorkbook.Unprotect tu enlèves la protection d'un classeur

Ci joint ton fichier en retour

le classeur est protégé les 2 feuilles (liste et source) sont protégées

pour enlever la protection des feuilles saisir le mdp en p3...

A+ François

je te remercie pour ton retour.

bonne journée François