XL 2019 Protection feuille

[Tioneb_h]

Bonjour,

J'ai mis une protection automatique sur deux feuilles :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Feuil1").Protect Password:="1234"
Sheets("Feuil3").Protect Password:="1234"

End Sub

comment est-ce que je peux faire pour ne pas avoir deux fois le message à l'ouverture de mon fichier :

Est-ce possible ?

merci d'avance,
Ben

 

[sylvanu]

Bonjour Tioneb,
Donnez nous plutôt le code que vous utilisez dans Workbook_Open, la macro Workbook_BeforeClose ne s'occupe que de la protection à la fermeture.

 

[Tioneb_h]

Bonjour Tioneb,
Donnez nous plutôt le code que vous utilisez dans Workbook_Open, la macro Workbook_BeforeClose ne s'occupe que de la protection à la fermeture.

bonjour,

je ne suis pas expert ... voici le code que j'avais trouvé :

Private Sub Workbook_Open()

Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True
End With
Next I

End Sub

ben

 

[sylvanu]

Re,
Il suffit de déprotéger la feuille au départ, vous n'aurez même plus de message du tout.

Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
    With ActiveWorkbook.Worksheets(I)
        .Unprotect
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Contents:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True
    End With
Next I
End Sub

et s'il y a un mot de passe :

Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
    With ActiveWorkbook.Worksheets(I)
        .Unprotect ("1234")
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Password:="1234"
    End With
Next I
End Sub

 

[Tioneb_h]

Re,
Il suffit de déprotéger la feuille au départ, vous n'aurez même plus de message du tout.

Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
    With ActiveWorkbook.Worksheets(I)
        .Unprotect
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Contents:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True
    End With
Next I
End Sub

et s'il y a un mot de passe :

Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
    With ActiveWorkbook.Worksheets(I)
        .Unprotect ("1234")
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Password:="1234"
    End With
Next I
End Sub

super merci... ça fonctionne

 

[Tioneb_h]

autre question : est-ce que l'on peut activer une protection d'une feuille (après 1 min) de dé-protection de celle-ci ?

 

[sylvanu]

Ca, je ne sais pas faire. je ne sais pas s'il existe un event de déprotection manuel d'une feuille qui pourrait déclencher une macro.
Mais faites un post spécifique sur ce point, peut être qu'un esprit malin trouvera la solution.

 

[TooFatBoy]

Bonjour,

Moi aussi j'ai une question : pourquoi déprotéger la feuille ?

 

[GALOUGALOU]

bonjour le fil
re tioneb_h
le code fourni dans le fil 3 n'explique pas la problématique du fil 1.
la solution de déprotéger la feuille contourne le problème, mais ne le résout pas.
Certainement, a l'ouverture vous devez avoir une macro dans l'événement de la feuille qui veut modifier une cellule protégée. Donc le plus simple, postez un classeur allégé de votre projet, sans données confidentielles.
cdt
galougalou