XL 2016 Probleme affichage userform

[KTM]

Bonsoir chers tous

Depuis mon userform je dois réinitialiser les donnees de mon fichier en utilisant le code ci dessous qui fait appel à Cinq Macros M1,M2...M5
et a la fin une macro Protect qui protège toutes les feuilles du classeur.
Mais il se trouve qu'au moment de l'exécution de la macro Protect , mon userform devient tout blanc jusque à la fin du processus.
Comment y remédier ?
Merci

Private Sub reinit_Fichier_Click()
If MsgBox(" Voulez-vous Reinitialiser ce Fichier ? ", vbYesNo + 32) = vbYes Then
Me.Label6.BackColor = RGB(255, 255, 255)
Me.Label6.Caption = " Veuillez Patienter SVP : Reinitialisation des Données en cours.......... "
Call M1
Call M2
.
.
Call M5
Call Protect
Me.Label6.BackColor = &HFFFFC0
Me.Label6.Caption = ""
End If
End sub



Voici ma macro Protect


Sub Protect()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
.Visible = xlSheetVisible
.Unprotect Password:="mdp"
.EnableAutoFilter = True
.EnableOutlining = True
.Cells.Locked = False
On Error Resume Next
.Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
.Cells.SpecialCells(xlCellTypeConstants, 2).Locked = False
On Error GoTo 0
.Protect Password:="mdp", _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True, _
UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells

End With
Next sh
End sub

 

[job75]

Bonjour KTM,

Il faudrait nous expliquer pourquoi vous créez une 3ème discussion sur le même sujet.

A+

 

[KTM]

Bonjour KTM,

Il faudrait nous expliquer pourquoi vous créez une 3ème discussion sur le même sujet.

A+

Merci cher job75
Je me suis dis que Je n'ai jusque la pas ete satisfait parceque je formulais mal mon soucis

 

[job75]

Dans ce cas il faut permettre à vos répondeurs de reproduire le phénomène.

En créant et joignant un fichier adéquat.

 

[TooFatBoy]

Bonjour,

Pourtant ton problème a déjà été résolu.
Pour rappel, c'était ici.
Donc tu procèdes de la même façon et ça devrait fonctionner.