Saut d'écran si Unprotect avec Excel 2013

[jpoldeux]

Bonjour,
Une procédure est lancée depuis un fichier A pour activer ou désactiver la protection des feuilles d'un fichier B.
La méthode Unprotect ouvre les feuilles une à une, ce qui fait sauter l'écran de façon désagréable.
La méthode Protect ne présente pas cet inconvénient.

Sub Proteger()
Dim ws As Worksheet
With Workbooks("FichierB.xlsx")
For Each ws In .Worksheets
ws.Protect Password:="toto"
Next ws
End With
End Sub

Sub Deproteger()
Dim ws As Worksheet
With Workbooks("FichierB.xlsx")
For Each ws In .Worksheets
ws.Unprotect Password:="toto"
Next ws
End With
End Sub

J'ai essayé ScreenUpdating mais ça ne fonctionne pas. Un palliatif consiste à commencer par activer le fichier B, l'impression visuelle étant alors un peu meilleure.

Comment faire pour que Unprotect se comporte comme Protect ?

Jean

 

[Jacou]

Re : Saut d'écran si Unprotect avec Excel 2013

bonsoir Jean,
peux-tu nous préciser ce qui ne fonctionne pas lorsque tu ajoutes l'instruction Application.ScreenUpdating = False
au début de ta macro Deproteger ?
le mieux serait d'ailleurs que tu joignes tes 2 fichiers (sans données confidentielles bien sûr) pour que nous puissions reproduire l'inconvénient que tu signales.
Bonne nuit.
Jacou

 

[Compte Supprimé 979]

Re : Saut d'écran si Unprotect avec Excel 2013

Bonjour jpoldeux, jacou

Jacou, inutile de demander un fichier, son problème me parait simple et facile à reproduire 😉

En renvanche jpoldeux, chez moi "ScreenUpdating = False" fonctionen parfaitement 😕

Sub Deproteger()
  Dim ws As Worksheet
  Application.ScreenUpdating = False
  With Workbooks("FichierB.xlsx")
    For Each ws In .Worksheets
      ws.Unprotect Password:="toto"
    Next ws
  End With
  Application.ScreenUpdating = True
End Sub

A+

 

[jpoldeux]

Re : Saut d'écran si Unprotect avec Excel 2013

Bonjour,
Merci à vous deux. J'avais essayé le ScreenUpdating de Bruno mais il ne fonctionne pas chez moi.
Et je ne m'explique pas pourquoi les deux méthodes se comportent différemment.
Ci-joints les fichiers que j'aurais déjà dû envoyer pour test.
A+

 

[Compte Supprimé 979]

Re : Saut d'écran si Unprotect avec Excel 2013

Re,

Je comprends mieux 😉

Tu peux essayer ce code voir s'il te convient
L'astuce est de masquer le classeur pendant la déprotection et de le ré-afficher après
Petit souci résiduel, il faut ré-activer le classeur qui contient les macros sinon c'est le classeur B qui est affiché

Sub Deproteger()  Dim ws As Worksheet
  Application.EnableEvents = False
  Windows("FichierB.xlsx").Visible = False
  With Workbooks("FichierB.xlsx")
    For Each ws In .Worksheets
      ws.Unprotect Password:="toto"
    Next ws
  End With
  Windows("FichierB.xlsx").Visible = True
  ThisWorkbook.Activate
  Application.EnableEvents = True
End Sub

Maintenant te dire pour qu'elle raison ça fait ça... 😎

A+

 

[jpoldeux]

Re : Saut d'écran si Unprotect avec Excel 2013

Merci Bruno,
C'est effectivement une amélioration : on ne voit plus que 2 sauts d'écran, en début et en fin de procédure.
J'ai testé ton code puis j'ai retiré les 2 lignes EnableEvents, ça marche aussi. Ces 2 lignes sont-elles vraiment nécessaires ?
A+

 

[Compte Supprimé 979]

Re : Saut d'écran si Unprotect avec Excel 2013

Re,

Heuuu ben non, pourquoi ai-je mis ces 2 lignes

C'était pour le test, voir si cela changeait qq chose 😉

Au plaisir

 

[jpoldeux]

Re : Saut d'écran si Unprotect avec Excel 2013

J'ai repris l'idée de Bruno de cacher l'action, d'une autre façon : en réduisant la fenêtre du fichier B. On n'a alors pas besoin de réactiver le fichier A. Un petit mouvement a lieu dans la colonne A de ce fichier. On peut le faire disparaître par ScreenUpdating.

Sub Deproteger()
Dim ws As Worksheet
Application.ScreenUpdating = False
Windows("FichierB.xlsx").WindowState = xlMinimized
With Workbooks("FichierB.xlsx")
For Each ws In .Worksheets
ws.Unprotect Password:="toto"
Next ws
End With
Application.ScreenUpdating = True
End Sub

Mais ma question initiale reste en suspens : pourquoi Unprotect ne se comporte-t-il pas comme Protect ?
A+

 

[Compte Supprimé 979]

Re : Saut d'écran si Unprotect avec Excel 2013

Re,

Mais ma question initiale reste en suspens : pourquoi Unprotect ne se comporte-t-il pas comme Protect ?

That is the VERY GOOD question 😉
Je pense qu'il faut demander à Monsieur Crosoft

A+

 

[Staple1600]

Re : Saut d'écran si Unprotect avec Excel 2013

Bonjour à tous

Peut-être une piste à suivre
Le fichier B est en *.xlsm ou *.xls
Dans son ThisWorkBook, on a:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Protect "toto"
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Unprotect "toto"
End Sub

Ou alors on inverse le raisonnement:
Le fichier B s'auto-protége à l'ouverture (toutes les feuilles)

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Protect "toto"
Next ws
Application.ScreenUpdating = True
End Sub

Et quand on active une feuille elle se déprotège

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Unprotect "toto"
End Sub