Discussion :

[babybell]

Bonjour

Je voudrais par macro protéger contre la lecture ou lécriture des macros dans une application.
C'est à dire que je fais un Saveas d'une appli, et j'aimerai qu'avant cette sauvegarde, une macro me verrouille toutes les macros de cette appli de manière à n'être plus accessible qu'avec un password.

Merci de votre aide

[ouskel'n'or]

Pour ça il te suffit de verrouiller les macros manuellement -> Editeur VBA -> Outils -> Propriétés de VBA-Project -> Protection.
Pour activer l'accès aux macro VB te demandera un mot de passe

[babybell]

Bonjour

Ca je sais le faire, ce que je voudrais, c'est qu'une macro le fasse automatiquement en sortant du fichier. Et ça je ne sais pas faire.

[babybell]

N'existe-t-il vraiment aucune solution à mon problème ?

Ce que je voudrais faire, c'est protéger mon document définitif que je sauvegarde par "SAve as" et non pas mon document de travail.

Ou alors, peut-on deleter les macros de mon document définitif ?

Merci amis développeurs de me répondre.

[drakkar_agfa]

Bonjour,

Pour supprimer toutes les macros (modules, feuilles, .... tout) du document ouvert voici une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Supprimer_toutes_macros()
'   ****************************************************
    Dim VBC As Object
 
    With ActiveWorkbook.VBProject
        For Each VBC In .VBComponents
            If VBC.Type = 100 Then
                With VBC.CodeModule
                    .DeleteLines 1, .CountOfLines
                    .CodePane.Window.Close
                End With
            Else
                .VBComponents.Remove VBC
            End If
        Next VBC
    End With
 
End Sub

Tu peux faire une recherche sur le forum, un sujet en parle. Comme par exemple supprimer une macro en particulier... et d'autre manipulations dans le genre.

P.S. Voici le lien de la discussion sur ce sujet
http://www.developpez.net/forums/d64...leme-vbprojet/

[babybell]

Un grand merci pout tous ces tuyaux