Excel défilement automatique

Sub auto_open()
 t = "ceci est texte défilant dans une cellule......"
 n = 0
 Do While n < 500
  t = Right(t, 1) & Left(t, Len(t) - 1)
  [A1] = t
   w = 0.2
   temp = Timer
   Do While Timer < temp + w
      DoEvents
   Loop
   n = n + 1
 Loop
End Sub

Option Explicit
Sub auto_open()
Dim t, n, w, temp
 Déprotégertouslesongletsenmêmetemps
  t = "ceci est texte défilant dans une cellule......"
  n = 0
  Do While n < 50 'durée a adapter
   t = Right(t, 1) & Left(t, Len(t) - 1)
   [A1] = t
    w = 0.2
    temp = Timer
    Do While Timer < temp + w
       DoEvents
    Loop
    n = n + 1
  Loop
  Protegertouslesongletsenmêmetemps
 End Sub
Sub Protegertouslesongletsenmêmetemps()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Dim wSheet As Worksheet
'Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "*****")
Motdepasse = "*****" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
For Each wSheet In Worksheets
 wSheet.Protect Password:=Motdepasse, _
        UserInterFaceOnly:=True, _
   DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True
Next wSheet
End Sub
Sub Déprotégertouslesongletsenmêmetemps()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim wSheet As Worksheet
Dim Motdepasse As String
'Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "*****")
Motdepasse = "*****" 'mot de passe à adapter
If Motdepasse = "" Then Exit Sub
On Error Resume Next
For Each wSheet In Worksheets
 wSheet.Unprotect Password:=Motdepasse
Next wSheet
End Sub