Protection à la fermeture Fermé

Question

Bonjour, 

J'ai un fichier Excel (2010) avec des cellules verrouillées et la feuille protégée avec un mot de passe. Plusieurs personnes auront accès à ce fichier, mais une seule aura la permission de déverrouiller la feuille. Cependant, comme je ne suis pas certaine que cette personne reprotègera la feuille en fermant le fichier, j'aimerais savoir s'il existe une façon que la protection se réactive automatiquement à la fermeture du fichier.

Merci de vos lumières.

Patrice33740 · Answer

Si tu n'a pas confiance, pourquoi l'autorises-tu à modifier ? 
Attention, ça peut tourner à la paranoïa !

foo · Answer

Bonjour

on peux le faire dans le ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' ----------- mettre ta foumule de protection
end sub

A+

Maurice

Marlj · Answer

Merci pour la réponse rapide, mais je ne suis pas totalement familière avec le ThisWorkbook.

Qu'est-ce que tu entends par "mettre la formule de protection", est-ce le mot de passe?

Merci

Patrice33740 · Answer

Bonjour, 

Par "mettre la formule de protection", il faut comprendre écrire le code VBA qui éffectue la protection, par exemple :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Protection de toutes les feuilles du classeur à la fermeture
Const MotDePasseFeuille As String = "Mon mot de passe"
  Call Protège_les_Feuilles(MotDePasseFeuille)
End Sub

Private Sub Protège_les_Feuilles(Optional MotDePasse As String)
' Active la protection de toutes les feuilles du classeur
'
' Arguments:  MotDePasse          [in] Mot de passe (chaine)
'
Dim wsh As Worksheet               'Feuille à protéger
Dim Mode_de_Calcul As Integer      'Mode de calcul initial (manuel, auto, semi-auto)
Dim Flg_Màj_Ecran As Boolean       'Etat initial de l'actualisation automatique de l'écran
'Arrêter l'actualisation automatique de l'écran et les calculs
Flg_Màj_Ecran = Application.ScreenUpdating
Mode_de_Calcul = Application.Calculation
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Protéger toutes les feuilles
For Each wsh In Worksheets
  If MotDePasse <> "" Then
    wsh.Protect Password:=MotDePasse, DrawingObjects:=True, Contents:=True, Scenarios:=True
  Else
    wsh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
Next
'Restaurer le contexte initial
Application.ScreenUpdating = Flg_Màj_Ecran
Application.Calculation = Mode_de_Calcul
End Sub

Protection à la fermeture

4 réponses

Discussions similaires