Complément (Vba Indenter Interface) V 3.1 CFx 2

[Dudu2]

Oui, enfin libéré de cette galère....

How to Disable Downloaded Files from being Blocked in Windows

How to Disable Downloaded Files from being Blocked in Windows Information The Attachment Manager is included in Windows to help protect your PC from unsafe attachments that you might rece

www.tenforums.com

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Attachments

Créer ou modifier SaveZoneInformation DWORD

(delete) or 0 = Enable (To Enable Downloaded Files from being Blocked for All Users)
1 = Disable (To Disable Downloaded Files from being Blocked for All Users)

Pour ne pas avoir à débloquer mettre la valeur de SaveZoneInformation DWORD à 1

 

[patricktoulon]

re
Bonjour @Dudu2
je sais pas
ton complément selon si tu le met dans le dossier prevu ou un autre ca me fait des effets de ce genre moi aussi
pour les test mon xlam est sur le bureau donc forcement approuvé
je viens de finir le 3.0 et je l'ai installé dans le dossier des addins
et je n'ai pas ce problème
je développe avec 2013 et 2016
normalement je pose la version 3.0 aujourd'hui
donc très prochainement (selon la modé) disponible très vite
il m'a fallu plus de 250 heures de travail depuis la version beta pour obtenir un résultat quasi parfait
soyez patient
en tout cas vous pourrez voir la video d'ici 1 h30 environ
merci pour le tuyaux sur le disabled de la protection
tu devrais le mettre dans les astuces a fin que ça ne soit pas perdu dans les messages

 

[Dudu2]

Oui ok, ça fonctionne maintenant, et je ne suis plus obligé de faire Débloquer !
Par contre j'ai un plantage dans l'indentation lorsque je fais:
-> Indenter Interface / Indenter / Indenter dans le module.
-> Indenter Interface / Indenter / Indenter dans le visuel ça fonctionne.

 

[Dudu2]

Sinon pour info, pour mes commentaires décalés j'ai ajouté ça:

    ReS = Join(TbL, vbCrLf)
    htmlCod = res2
    OriginalHtmlCode = PrE.outerhtml
    'Debug.Print ReS
 
    ReS = MesCommentaires(ReS)

    TextBox2 = ReS
    IndentCode = ReS
    Unload barprogress
End Function

Private Function MesCommentaires(ReS As Variant) As String
    Dim TabLig() As String
    Dim i As Long
    Dim k As Long
    Dim p As Long
   
    TabLig = Split(ReS, vbCrLf)
    p = xlNone

    For i = LBound(TabLig) + 1 To UBound(TabLig)
        k = i - 1
        Do While k >= 1 And (Left(Trim(TabLig(k)), 1) = "'" Or Len(Trim(TabLig(k))) = 0)
            If Not Len(Trim(TabLig(k))) = 0 Then
                If p = xlNone Then
                    For p = 1 To Len(TabLig(i))
                        If Not Mid(TabLig(i), p, 1) = " " Then Exit For
                    Next p
                    p = p - 1
                End If
                TabLig(k) = Left(TabLig(i), p) & Trim(TabLig(k))
            End If
           
            k = k - 1
        Loop
        p = xlNone
    Next i
   
    MesCommentaires = Join(TabLig, vbCrLf)
End Function

Pour avoir ça:

Option Explicit

'--------------
'C'est le SUB A
'--------------
Sub a()
    Dim i As Integer

    '----
    'test
    '----
    If i = 1 Then
        i = 2

    '-----
    'Sinon
    '-----
    Else
        i = 0
    End If

    Select Case i
        '-----
        'Cas 1
        '-----
        Case 1
            i = 2
          
        '-----
        'Cas 2
        '-----
        Case 2
            i = 3
    End Select
End Sub

 

[Dudu2]

Ok j'ai mis le truc en Astuces:

Ne plus avoir à débloquer les fichiers téléchargées (notamment les .xlsm du site)

Pris sur ce site. https://www.tenforums.com/tutorials/85418-how-disable-downloaded-files-being-blocked-windows.html Partie utile: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Attachments HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Attachments...

excel-downloads.com

 

[patricktoulon]

l'erreur que tu a est due
soit au fait que tu n'ai pas coché accès approuvé au modèle d'object du projet vba
c'est ce qui te permet d'accéder au module par vba

soit que tu n'a pas activer la librairie

 

[Dudu2]

Ok, alors l'accès y est depuis très longtemps...

Mais la Référence Microsoft Visual Basic for Applcation Extensibiliy je ne la trouve pas dans ma liste.

J'ai trouvé ce sujet:

Microsoft 365 - VBA : utilisation MS VBA Extensibility 5.3

Hello, Grâce à Dranreb, j'ai découvert la référence Microsoft Visual Basic for Applications Extensibility 5.3 Elle devrait me permettre de supprimer des objets VBA comme des UserForms. J'ai fait un petit fichier test. Ce fichier charge en Workbook_Open la référence MS VBA Ext 5.3 (qui n'est pas...

excel-downloads.com

et ajouté ce code dans mon fichier:

Sub Auto_Open()
    ' Active "Microsoft Visual Basic for Applications Extensibility 5.3"
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 3
End Sub

Alors maintenant je l'ai bien, mais le plantage est toujours là.

Par contre Indenter dans le module (sans passer par l'interface) ça fonctionne, même sans la Reference.

 

[Dudu2]

Autre problème. Désolé je fais pas exprès !

J'ai 2 classeurs ouverts:

Indetenter / Interface:

 

[patricktoulon]

bizarre cette erreur a été corrigée pourtant
apres le A=A+1: Redim preserve tbl(1 to a):tbl(a)="----............

 

[patricktoulon]

rassure moi tu a bien pris la 2.0 Fx

 

[fanch55]

Bonjour @patricktoulon,
J'ai bricolé et maintenant j'ai ça après activation du complément. Je ne m'en sors pas, ça m'énerve.
Regarde la pièce jointe 1197035

Pour ceux qui commencent à être agacé de devoir faire 2 clicks pour débloquer un fichier Excel

Salut à tous, On va utiliser la commande Unlock-File de Powershell via le menu contextuel (click_droit) dans l'explorateur de fichiers . Comme vous allez toucher au registre, n'oubliez pas d'en faire une sauvegarde avant ... ;)

excel-downloads.com

 

[patricktoulon]

patricktoulon a mis à jour Complément (Vba Indenter Interface) avec une nouvelle entrée de mise à jour:

Complement Vba Indenter Interface 3.0

Bonjour à tous
voici une mise a jour majeure dans l’évolution de ce Vba indenter interface 3.0
nouveau ruban digne de ce nom
nouveau moteur html d'indentation(plus robuste même avec des codes complexes et ecrit de manière
particulière
plus d'options
bref plus abouti
j'en parle un peu plus dans la videao

Lire le reste de cette entrée de mise à jour...

 

[patricktoulon]

re
bientôt dispo
la version 3.0 ne sera pas publiée je suis déja à la version 3.1

 

[Dudu2]

 

[Dudu2]

Bonjour @fanch55,
Merci pour l'info.
J'ai regardé avec Notepad++ le contenu de ces .reg et c'est assez impressionnant pour l'un et quasi-vide pour l'autre qui fait la suppression. Perso je me méfie des .reg que je ne comprends pas toujours et je préfère y aller à la mano.
Alors maintenant y a le choix avec cette astuce.