Bonjour,
J'ai un fichier excel que les maitres d’œuvre utilisent pour faire des propositions de paiement.
Ce fichier est protégé contre les modifications par un mot de passe ("CRF"). J'ai fait des boîtes de regroupement qui sont inaccessibles quand le fichier est verrouillé.
J'ai trouvé des macros sur le site que je n'arrive pas à faire fonctionner
ex :
Option Explicit
Private Sub Workbook_Open()
Dim N As Long, i As Long
N = ThisWorkbook.Sheets.Count
For i = 1 To N
With ThisWorkbook.Sheets(i)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, _
UserInterfaceOnly:=True, _
AllowFiltering:=True
End With
Next i
End Sub
mais je n'arrive pas à la faire fonctionner. Il y a sans doute quelque chose que je ne fais pas mais je ne sais pas quoi .
Si une bonne âme pouvait m'aider ?
Merci d'avance.