Certificat de sécurité

[Comanche77]

Bonjour à Tous .
Je ne sais si ce sujet a déjà été évoqué dans un forum.
Ma problématique : Je suis trésorier principal dans une association de 16 sections sportives .
La comptabilité de chaque section est faite par le trésorier de la section à l'aide d'un fichier Excel dans lequel est intégré moult macros développées au fil des ans. Les trésoriers comme moi même ne somment pas des spécialistes et ils arrivent très souvent que lorsque je récupère leur fichier chaque mois il contient des erreurs du fait qu'au moment de la saisie ils n'ont pas activés les macros.
Pensez-vous que si je créai un certificat de sécurité pour résoudre ce problème de macros cela fonctionnerait ?
Après , j'aurai aimé avoir des informations sur l'utilisation de ce certificat , savoir s'il reste attaché au fichier car je vais récupérer sur mon PC des fichiers mises à jour sur les PCs des trésoriers.
Après si vous avez une autre suggestion , je suis évidemment preneur.
Merci d' Avance et à vous lire

 

[joss56]

Bonjour,

En ce qui concerne cette histoire de certificat, je serais bien en peine de te répondre. Par contre, pour gérer ce type de problématique, j'ai tendance à préconiser la solution suivante :
1 application "cliente" développée sous Excel permettant aux trésoriers de section de saisir les informations concernant leur périmètre en alimentant une base de données
1 application "Trésorier principal" directement connectée à la base de données qui permet de consolider et d'éditer reporting et tableaux de bord.
Je me tiens à ta disposition pour de plus amples détails

Jocelyn

 

[Comanche77]

Bonjour,
Merci pour cette propal mais malheureusement , j'ai déjà essayé de proposer cette mouture surtout que l'association dispose d'un serveur de données.
Le blocage vient de mes trésoriers qui sont toutes et tous bénévoles et ce dans une tranche d'âge de 25 à 70 ans.
J'ai déjà ajouté moult versifications de saisie et demander aussi des pointages à partir des relevés bancaires et cela ne plait guère aux "anciens" qui trouvent que ça se complique au fil des ans.
De plus trouver des trésoriers bénévoles dans des sections sportives ce n'est pas simple (on se bouscule pas au portillon !).
J'ai 50% qui sont partants et se connecte facilement au serveur et les autres continuent à m'envoyer leur fichiers et leurs justificatifs pour que je me charge du dépôt .Comme on dit il me faut savoir ménager la chèvre et le chou.
Je pense que si j'arrive à ce que les macros soient actives dès l'ouverture du fichier avec ce que j'ai mis comme vérification de saisie je devrai avoir moins de problème ce qui me ferait gagner beaucoup de temps.

Merci encore
Jean-rené

 

[joss56]

Ok. A quoi ressemble ce fichier ? Pour ce qui est de l'activation des macros, ce n'est pas au niveau du fichier que cela se passe d'ordinaire. Il faut activer les macros sur le poste de tes trésoriers une fois pour toutes et ce, au niveau d'Excel.
Pas certain de bien comprendre ton souci. Peux tu envoyer ce fameux fichier en pièce jointe ?

 

[chris]

Bonjour

Le problème des certificats gratuits est qu'il sont propres à chaque version d'Excel.
Si tous les bénévoles ont la même version, le problème ne se posera qu'au changement de version sinon c'est ingérable.

Il existe des certificats payants qui, je crois, n'ont pas ce problème mais je ne sais si les tarifs sont abordables, je n'en ai vuq que dans des grosses boîtes...

Sinon une solution consiste à masquer tous les onglets sauf un qui indique l'obligation d'activer les macros. Quand elles le sont les onglets sont automatiquement visibles.

 

[Comanche77]

Bonjour

Le problème des certificats gratuits est qu'il sont propres à chaque version d'Excel.
Si tous les bénévoles ont la même version, le problème ne se posera qu'au changement de version sinon c'est ingérable.

Il existe des certificats payants qui, je crois, n'ont pas ce problème mais je ne sais si les tarifs sont abordables, je n'en ai vuq que dans des grosses boîtes...

Sinon une solution consiste à masquer tous les onglets sauf un qui indique l'obligation d'activer les macros. Quand elles le sont les onglets sont automatiquement visibles.

 

[Comanche77]

Bonsoir
J'aime asse ta proposition chris sur les onglets masqués.
Pour vous deux Joss56 et chris je vous mets le fichier qui va être distribué aux trésoriers des sections pour la saison sportive 2016_2017 (de septembre 2016 à aout 2017 )
Si tu pouvais me décrire comment faire chris , je suis preneur.
Je sais Joss56 que les macros s'activent en passant par options mais pas facile à faire comprendre à certains de mes trésoriers . Tu verras que si celles ci ne sont pas actives ils peuvent saisir des lignes comptables sans me mettre le N° de compte ou faire d'autres erreurs , et pourtant en haut du fichier je mets un message en rouge leur signalant qu'il y a un problème .
merci encore à vous deux

 

[chris]

Re
Créer un onglet nommé Avertissement avec un texte expliquant comment activer les macros
Ajouter ces deux codes dans le module Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Avertissement").Visible = True
    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = xlSheetVeryHidden
    Next
    Save
End Sub

Private Sub Workbook_Open()
    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = True
    Next
    Worksheets("Avertissement").Visible = xlSheetVeryHidden
End Sub

 

[Comanche77]

Bonjour
j'ai déjà des actions , l’ancien trésorier avait mis en place une protection des feuilles
comment intercaler celle que tu me proposes ?
Je suis assez "débutant" dans ce domaine

voici c que j'ai actuellement

merci pour ton aide


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Mise à jour automatique de la date de modification
Sheets("Grille").[B4] = "MAJ " & Date
End Sub

'Private Sub Workbook_SheetActivate(ByVal Sh As Object)
' MsgBox "Nom de la feuille : " & Sh.Name
'End Sub
Private Sub Workbook_Open()
' Protection de l'accès aux macro
' Application.CommandBars("Macro").Enabled = False
Application.Run "Déprotégertout"
' Ouverture de la feuille "Grille" sur la première cellule vide de la colonne B "colonne n° compte"
Sheets("Grille").Select
Range("I7").End(xlDown).Offset(1, -7).Select

'Sheets("Grille").Select
' Range("FX" & .Range("FX" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = " "

' Protection automatique de toutes les feuilles du classeur

Application.Run "Protégertout"
End Sub

 

[chris]

Bonjour

Pour ma part j'enlèverais

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Mise à jour automatique de la date de modification
Sheets("Grille").[B4] = "MAJ " & Date
End Sub

et modifierais ainsi le code que j'ai donné

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Mise à jour automatique de la date de modification
    Sheets("Grille").[B4] = "MAJ " & Date
'Masquage des onglets
    Worksheets("Avertissement").Visible = True
    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = xlSheetVeryHidden
    Next
    Save
End Sub

Modifie le Private Sub Workbook_Open ainsi

Private Sub Workbook_Open()
'Affichage des onglets
    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = True
    Next
    Worksheets("Avertissement").Visible = xlSheetVeryHidden

' Protection de l'accès aux macro
' Application.CommandBars("Macro").Enabled = False
Application.Run "Déprotégertout"
' Ouverture de la feuille "Grille" sur la première cellule vide de la colonne B "colonne n° compte"
Sheets("Grille").Select
Range("I7").End(xlDown).Offset(1, -7).Select

'Sheets("Grille").Select
' Range("FX" & .Range("FX" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = " "

' Protection automatique de toutes les feuilles du classeur

Application.Run "Protégertout"
End Sub

Laisse en l'état le Private Sub Workbook_SheetActivate

 

[Comanche77]

Bonjour
J'ai essayé tes modifications et je cale
Je te joins mon fichier , si tu pouvais y regarder , je t'en remercie
le code d'acces est ASPS pour modification
à te lire
Jean-rené

 

[chris]

Re

A priori tu as bien reporté le code mais juste oublié de créer l'onglet nommé Avertissement qui dot indiquer comment activer les macros.

Edit : Sur un fichier vide le code préexistant plante. Modifier Workbook_open

Private Sub Workbook_Open()
'Affichage des onglets
Application.ScreenUpdating = False

    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = True
    Next
    Worksheets("Avertissement").Visible = xlSheetVeryHidden

' Protection de l'accès aux macro
' Application.CommandBars("Macro").Enabled = False
Application.Run "Déprotégertout"
' Ouverture de la feuille "Grille" sur la première cellule vide de la colonne B "colonne n° compte"
Sheets("Grille").Select
'Range("I7").End(xlDown).Offset(1, -7).Select
Range("I" & Rows.Count).End(xlUp).Offset(1, -7).Select

'Sheets("Grille").Select
' Range("FX" & .Range("FX" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = " "

' Protection automatique de toutes les feuilles du classeur

Application.Run "Protégertout"
End Sub

Pour éviter de voir le masquage final j'ai aussi ajouté une ligne

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Mise à jour automatique de la date de modification
    Sheets("Grille").[B4] = "MAJ " & Date
'Masquage des onglets
Application.ScreenUpdating = False

    Worksheets("Avertissement").Visible = True
    For Each feuille In Worksheets
        If feuille.Name <> "Avertissement" Then feuille.Visible = xlSheetVeryHidden
    Next
    Save
End Sub

 

[Comanche77]

Hello
J'ai créé Avertissement même résultat
Tous les onglets apparaissent avec les macros désactivés

Dur dur

 

[chris]

Re

As-tu au moins fermé une fois le classeur avec les macros actives car sinon le mise en place ne se fait pas...

Edit : Si je le fais sur ton fichier cela marche...

 

[Comanche77]

Bonjour
J'ai essayé tes modifications et je cale
Je te joins mon fichier , si tu pouvais y regarder , je t'en remercie
le code d'acces est ASPS pour modification
à te lire
Jean-rené