Intitulé du fichier

[Esox]

Bonjour le forum,

Je souhaiterai mettre le mot "protégé", tout en haut après : microsoft excel - test.xls et que celui s'enlève une fois le mot de passe rentré. Voir fichier joint.
Merci à tous d'avance.

 

[phlaurent55]

Re : Intitulé du fichier

Bonjour Esox

voir fichier joint
Remarque: réalisé avec la version 2007 et sauvegardé dans une version antérieure

à+
Philippe

 

[Esox]

Re : Intitulé du fichier

Bonjour Philippe,

En fait je voulais cet intitulé directement sur Excel tout en haut, dans le titre en fait... Je ne sais pas si c'est possible...

Merci à toi quand même...

 

[phlaurent55]

Re : Intitulé du fichier

re,

En fait je voulais cet intitulé directement sur Excel tout en haut

après plusieurs essais infructueux, je ne vois pas d'autre solution que mettre le message dans Application.StatusBar
cet intitulé apparaîtra "tout en bas"

Private Sub CommandButton1_Click()
mp = InputBox("Mot de passe ?" & vbLf & "Valider sans mot de passe pour RE-protéger")
If mp = "toto" Then
  Sheets("feuil1").Select
  ActiveSheet.Unprotect Password:="toto"
  Application.StatusBar = "Microsoft Excel - test_aide.xls Déprotégé"

  Else
  ActiveSheet.Protect Password:="toto"
  Application.StatusBar = "Microsoft Excel - test_aide.xls Protégé"
  
End If
End Sub

à+
Philippe

 

[Papou-net]

Re : Intitulé du fichier

Bonsoir Esox, Philippe,

Pour modifier le texte de la barre de titre, voici un exemple de commande à insérer dans le code :

ActiveWindow.Caption = "Microsoft Excel - " & ThisWorkbook.Name & "   protégé"

Par contre, je n'ai pas trouvé comment y insérer l'icône XL.

Cordialement.