Problème lors du verouillage automatique des feuilles Excel

Bonjour,

Je me permet de poster ici car je ne comprend plus rien (vous allez me dire, ça c'est mon problème et vous avez raison...)

Pour être plus sérieux, mon problème est très simple mais je trouve pas la solution

J'ai un module dans le fichier joint appelé M31_Securité_ACCES. dedans une procédure Sécurité_fermeture()

Lorsque je l'applique je n'ai pas d'erreur mais les feuilles excel sont

verrouillées sans mdp et sans la mise en page demandée (possibilité de

sélectionner des feuilles déverrouillés, exécuté du VBA et filtre)

J'ai chercher dans beaucoup d'endroit sans succès.

Les mdp sont dans le module AA_Mot_de_passe_AA

Pouvez vous m'aider ? le code est :

Sub Sécurité_fermeture()

'Désactivation de la mise à jour de l'écran :

Application.ScreenUpdating = False

'masque la bare du bas avec les onglets

If ActiveWindow.DisplayWorkbookTabs = True Then

ActiveWindow.DisplayWorkbookTabs = False

End If

'active la protection MDP ADMIN

Dim I As Long

For I = 1 To 13

If Sheets(I).ProtectContents = False Then ' vérifie si la feuille n'est pas protégé

Sheets(I).Protect Password:=MDP_ADMIN, DrawingObjects:=True,

Contents:=True, Scenarios:=True, AllowFiltering:=True,

UserInterfaceOnly:=True

End If

Next I

'Réactivation de de la mise à jour de l'écran

Application.ScreenUpdating = True

End Sub

J'ai oublié les mdp

ADMIN c'est ADMIN

S6 c'est S6 et J6 c'est J6

Je vous remercie

Personne n'a d'idée ?

Bonjour jmff

Si vous faites défiler le code en pas à pas, vous verriez que la protection avec mot de passe ne se fait pas puisque toutes vos feuilles sont déjà protégée

Faites ceci la première fois, puis mettez en commentaire la ligne Else et les 2 qui suivent

Sub Sécurité_fermeture()
  'Désactivation de la mise à jour de l'écran :
  Application.ScreenUpdating = False

  ''masque la bare du bas avec les onglets
  '   If ActiveWindow.DisplayWorkbookTabs = True Then
  '       ActiveWindow.DisplayWorkbookTabs = False
  '   End If

  'active la protection MDP ADMIN
  Dim I As Long
  For I = 1 To 13
    If Sheets(I).ProtectContents = False Then ' vérifie si la feuille n'est pas protégé
      Sheets(I).Protect Password:=MDP_ADMIN, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, UserInterfaceOnly:=True
    Else
      Sheets(I).Unprotect
      Sheets(I).Protect Password:=MDP_ADMIN, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, UserInterfaceOnly:=True
    End If
  Next I
  'Réactivation de de la mise à jour de l'écran
  Application.ScreenUpdating = True
End Sub

A+

Bonjour jmff

Si vous faites défiler le code en pas à pas, vous verriez que la protection avec mot de passe ne se fait pas puisque toutes vos feuilles sont déjà protégée

Faites ceci la première fois, puis mettez en commentaire la ligne Else et les 2 qui suivent

Sub Sécurité_fermeture()
  'Désactivation de la mise à jour de l'écran :
  Application.ScreenUpdating = False

  ''masque la bare du bas avec les onglets
  '   If ActiveWindow.DisplayWorkbookTabs = True Then
  '       ActiveWindow.DisplayWorkbookTabs = False
  '   End If

  'active la protection MDP ADMIN
  Dim I As Long
  For I = 1 To 13
    If Sheets(I).ProtectContents = False Then ' vérifie si la feuille n'est pas protégé
      Sheets(I).Protect Password:=MDP_ADMIN, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, UserInterfaceOnly:=True
    Else
      Sheets(I).Unprotect
      Sheets(I).Protect Password:=MDP_ADMIN, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, UserInterfaceOnly:=True
    End If
  Next I
  'Réactivation de de la mise à jour de l'écran
  Application.ScreenUpdating = True
End Sub

A+