Bonjour chers tous
J'ai un classeur qui contient plusieurs feuilles que je protège à l'ouverture grâce à une macro inserrée dans thisworkbook
L'ouverture met du temps (30 s) à ce faire.
Je voudrais faire afficher une barre de progression lors de l'exécution de la Macro
la voici:
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next sh
Sheets("Menu").Select
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="KTM"
sh.EnableAutoFilter = True
sh.EnableOutlining = True
sh.Cells.Locked = False
On Error Resume Next
sh.Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
sh.Cells.SpecialCells(xlCellTypeConstants, 2).Locked = False
On Error GoTo 0
sh.Protect Password:="KTM", DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True
Next sh
ActiveSheet.Select
Sheets("Menu").Visible = True
Sheets("Menu").Select
For Each sh In Worksheets
If sh.Name <> ActiveSheet.Name Then sh.Visible = xlSheetHidden
Next sh
Application.ScreenUpdating = True