XL 2016 Exécuter macro et Rafraîchir userform

KTM

XLDnaute Impliqué
Bonsoir chers tous

Depuis mon userform je dois réinitialiser 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
 

jmfmarques

XLDnaute Accro
Bonjour
Le code ici montré n'est en soi (lui-même, donc) pas responsable du gel graphique dénoncé.

Si (et uniquement si) cette procédure est bien celle qui provoque la chose, il n'est par contre pas impossible que les feuilles concernées contiennent un énorme lot de formats différents, etc ... et que la mémoire de la carte graphique s'en trouve perturbée, sinon dépassée.
 

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla