Bug sur workbook open

Version imprimable

4 pièce(s) jointe(s)

Bonjour le forum,
J'ai encore un souci depuis hier, cette fois avec le mot de passe (1234). Soit çà bug et plante Excel sur la macro qui rentre le mot de passe, soit çà prend le 2eme mot de passe (4321) destiné à la sauvegarde, dont la macro est masquée :calim2:
La macro crée bien un clone du fichier et doit dézoomer un peu l'image en mosaique présentée et valider le mot de passe saisi. Si vous voyez pas le cadenas (c'est normal :ptdr:), il est en C5 et intègre 2 images groupées en "groupe5", mais je ne vois pas la macro être affectée à ce groupe.

Pièce jointe 650352

Pièce jointe 650346
Pièce jointe 650347
Pièce jointe 650351

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 Sub cadenasOF()
    Dim rg As Range, ws As Worksheet
    'image mosaique
    ' 200, 200, 70, 70 posit à gauche, en ht, etir à droite, etir en bas
     'Shapes.AddPicture "E:\Users\FRANCK\Documents\FRANCK\EXCEL\JOB\réparations\photos\" & "mosaique repar GP.jpg", True, True, 200, 30, 900, 370
    'Le cadenas est ouvert
    'si zone non protégée on la protège
    If wsAcceuil.ProtectContents = False Then
            Application.Visible = False
            Set rg = wsAcceuil.Range("A1:S8")
                 ActiveWindow.Zoom = 100
        wsAcceuil.Shapes("Img_protect").Visible = msoTrue 'cadenas ferme visible
        wsAcceuil.Shapes("Img_unprotect").Visible = msoFalse
        With ActiveWindow
            .DisplayHorizontalScrollBar = False 'ascens H invisible
            .DisplayVerticalScrollBar = False 'ascens V invisible
            .DisplayWorkbookTabs = False 'onglets invisibles
            .DisplayHeadings = False 'entetes invisibles
        End With
       ' rg.Select
        wsAcceuil.ScrollArea = rg.Address
        ActiveWindow.Zoom = True 'zoom sur la sélection
        wsAcceuil.Cells(1, 1).Select
        wsAcceuil.Select
        wsAcceuil.Protect wsAcceuil.Range("password") 'on prend le mdp dans la cell. du champ nommé.
    Else
    'Le cadenas est fermé
    'zone protégée on la déprotège
        On Error Resume Next
        wsAcceuil.Unprotect
        If wsAcceuil.ProtectContents = False Then 'si zone protégée
            Application.Visible = True
                Set rg = wsAcceuil.Range("A1:S8")
                ActiveWindow.Zoom = 100
            wsAcceuil.Shapes("Img_protect").Visible = msoFalse
            wsAcceuil.Shapes("Img_unprotect").Visible = msoTrue 'cadenas ouvert visible
            With ActiveWindow
                .DisplayHorizontalScrollBar = True 'ascens H visible
                .DisplayVerticalScrollBar = True 'ascens V visible
                .DisplayWorkbookTabs = True 'onglets visibles
                .DisplayHeadings = True 'entetes visibles
            End With
          '  rg.Select
            wsAcceuil.ScrollArea = "" 'on vide la zone
        Else
            Exit Sub
        End If
    End If
    Set rg = Nothing 'on vide la zone
    'Application.FormulaBarHeight = 1 'barre de formule limitée à une ligne
    'X1cShortcutOnDesk "Icon", "Mono-poste", "mono-ico" 'raccourci sur le bureau
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR[""Ribbon"",False)" 'cache le menu d'excel 'ruban menu excel
    'Application.WindowState = xlMaximized 'max de l'appli avec l'écran
End Sub

:boulet:

06/02/2024, 20h46
deedolith

Salut,

Commence par virer tous ces Application.ScreenUpdating et autres parasites, histoire de voir ce qui se passe.
L'optimisation, s'il y a lieu, c'est à la fin du projet, quand on a obtenu les comportements désirés.

Citation:

On Error Resume Next

Ensuite, écrit de gestionnaires d'erreur, au lien d'ignorer ces dernières

Voila ce que j'ai obtenu en interceptant l'erreur levée par la fonction cadenasOF():

Citation:

Désolé... Nous avons trouvé une erreur dans cette formule. Essayez de cliquer sur Insérer une fonction sous l'onglet Formules. Vous pouvez également cliquer sur Aide pour obtenir plus d'informations sur les problèmes les plus fréquemment rencontrés dans les formules.

Êtes-vous en train de taper une formule*?
Lorsque le premier caractère est un signe égal (=) ou moins (-), Excel considère qu'il s'agit d'une formule*:

• vous tapez*: =1+1, la cellule affiche*: 2

Pour résoudre ce problème, tapez une apostrophe ( ' ) en première place*:

• vous tapez*: '=1+1, la cellule affiche*: =1+1

Et c'est la ligne suivante qui en est la cause:

Code:

Application.ExecuteExcel4Macro "SHOW.TOOLBAR[""Ribbon"",False)" 'cache le menu d'excel 'ruban menu excel

Je ne sais pas exactement ce que fait cette fonction, mais quand je voit la description sur Microsoft Learn: https://learn.microsoft.com/fr-fr/of...uteexcel4macro
Je me dit qu'il faut la fuir, le plus vite possible.
C'est probablement une fonction maintenue pour des raisons de compatibilité, qui n'a aucun droit de citer dans du code moderne.
06/02/2024, 21h02
deedolith

Note supplémentaire:
Quand tu modifies les contextes applicatifs (affichage / warnings ect ...),
avec un gestionnaire d'erreur, s'il fait coin-coin, pense à revenir en arrière (il sert aussi à ça).

Parce que la, tu as non seulement une application qui plante, mais qui en plus reste ouverte en arrière plan (avec toutes les mauvaises surprises qui vont avec).