Protection feuil3

Résolu
jean300 Messages postés 382 Statut Membre -  
jean300 Messages postés 382 Statut Membre -
Bonjour,

Je voudrais protéger une feuille lorsque l'on quitte cette feuille, mais la difficulté c'est que cette feuille peut déjà être protégée. Les personnes qui vont utiliser le fichier l'ignore.
Donc si elle est protégée, quitter la macro, si elle n'est pas protégée, la protéger avec le mot de passe "toto"

Je vous remercie de vous pencher sur ma demande.

Excel 2003 et 2013

3 réponses

  1. jean300 Messages postés 382 Statut Membre 14
     
    J'ai essayer ce code mais il ne protège pas ma feuille

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Param") 'Feuil3
    Range("B10:C15").Font.ColorIndex = 35
    .Protect Password:="Param", DrawingObjects:=True, Contents:=True, Scenarios:=True
    .EnableSelection = xlNoSelection
    End With
    Application.Quit
    End Sub
    0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonsoir,

    si j'ai bien compris ta demande, c'est de protéger la feuille 3 nommée Param en la quittant avec mot de passe toto

    alors clic droit sur l'onglet de ta feuille3/Visualiser le code/colle le code ci-dessous

    Private Sub Worksheet_Deactivate()
    Sheets("Param").Protect Password:="toto"
    End Sub

    0
  3. jean300 Messages postés 382 Statut Membre 14
     
    Bonsoir Mike
    Je te remercie c'est super
    Bonne soirée
    0