Results for vba : 2

Option Explicit
 
Sub Deproteger_Feuilles()
Dim Wsh As Worksheet
 
    Application.StatusBar = ""
 
    For Each Wsh In ThisWorkbook.Worksheets
        With Wsh
            .Protect vbNullString, , True, , , , , , , , , , , , , True
            .Unprotect vbNullString
        End With
    Next Wsh
 
    Application.StatusBar = "Terminé"
End Sub
			

    Sub La_Macro_qui_prend_du_temps()
      
      'Fermer les fenêtres modales avant l'appel du Userform USFWait
      USFWait.Show 0
      USFWait.Repaint
       
      'code macro
      'fin
     
      Unload USFWait
    End Sub

'Dans l'Userform USFWait, placer le code suivant
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then Cancel = True
End Sub