1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Workbook_Open()
'déprotéger + enlève les filtres qui auraient pû être posés + reprotège
If Worksheets("Feuil1").ProtectContents Then Worksheets("Feuil1").Unprotect
If Worksheets("Feuil1").FilterMode = True Then Worksheets("Feuil1").ShowAllData
Worksheets("Feuil1").Protect
'autorise les filtres automatiques
ActiveSheet.EnableAutoFilter = True
'active la protection de la feuille
'sans l'option au-dessus,avec excel 2000, cela bloque les filtres auto
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
'réinitialise les cellules vides
ActiveSheet.UsedRange
'se positionne sur la première cellule vide (si "composants" vide)
Cells(ActiveSheet.Cells(4, 1).End(xlDown).Row + 1, 1).Select
End Sub |
Partager