Protection classeur avec Macro puis erreur 1004
Bonsoir la communauté,
Je viens vous demander SVP de l'aide.
J'ai tenté mais sans succès de modifier le code existant de mon fichier.
Quand je protège les feuilles, excel m'affiche une fenêtre "erreur 1004 feuille ou cellule protégée ....", les macros ne s'exécutent pas et j'ai plus de 52 onglets et c'est laborieux de les protéger un par un.
En fait, je souhaiterai que tous les onglets de mon fichier soient protégés contre toute modifs avec exécution des macros et que les administrateurs puissent ôter la protection de la feuille avec mdp.
Et si possible à la fermeture du fichier, que tous les onglets soient automatiquement verrouillés par ce même mdp
Merci à vous les magiciens
J'ai trouvé !!!
Il faut modifier le Workbook ainsi :
Private Sub Workbook_Open()
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="motdepasse", UserInterfaceOnly:=True
Next
For i = 1 To Sheets.Count
Set f = Sheets(i)
Set Y = f.Cells.Find(Date)
'n = f.Range("A:B").Find("EQUIPE1)", lookat:=xlWhole).Row
If Not Y Is Nothing Then
col = Y.Column
lgn = f.Range("A:B").Find("EQUIPE 1", lookat:=xlWhole).Row
For ln = lgn To f.Range("A" & f.Rows.Count).End(xlUp).Row Step 6
f.Cells((3 * ln - 3 * lgn + 24) / 6, 13).Value = f.Cells(ln, col).Value
f.Cells((3 * ln - 3 * lgn + 24) / 6, 14).Value = f.Cells(ln + 2, col).Value
f.Cells((3 * ln - 3 * lgn + 24) / 6, 15).Value = f.Cells(ln + 4, col).Value
Next ln
Exit For
End If
Next i
For i = 1 To Sheets.Count
Worksheets(i).ScrollArea = "A1:V200"
'
'
'
'
'
Next
f.Activate
End Sub
Bonne journée