XL 2019 Protection feuille

Tioneb_h · 30 Mars 2022

Bonjour,

J'ai mis une protection automatique sur deux feuilles :

VB:

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 · 30 Mars 2022

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 · 30 Mars 2022

sylvanu à dit:
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é :

Code:

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 · 30 Mars 2022

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

VB:

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 :

VB:

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 · 30 Mars 2022

sylvanu à dit:

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

VB:

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 :

VB:

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 · 30 Mars 2022

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 · 30 Mars 2022

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 · 30 Mars 2022

Bonjour,

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

GALOUGALOU · 30 Mars 2022

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

XL 2019 Protection feuille

Tioneb_h

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Tioneb_h

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Tioneb_h

XLDnaute Nouveau

Tioneb_h

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Discussions similaires