Discussion :

[fmris]

Bonjour
J'ai un fichier excel contenant des userforms avec des textbox qui sont liées à des cellules. De ce fait, je souhaiterais interdire la fonction "enregistrer" de ce fichier ou la protéger par un code. Attention cette fonction doit permettre à l'utilisateur de travailler sous le nom de ce fichie mais de pas l'enregistrer.
La protection classique proposé par excel ne me convient pas.
Merci de votre aide

[choucks]

Voici une méthode de "bourrin" :

Elle empêche l'utilisateur d'accèder au menu fichier, à l'icone disquette et d'utiliser le raccourci clavier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub empecheEnr()
 
    With Application.CommandBars("Standard")
        .Controls("Enre&gistrer").Enabled = False
    End With
    With Application.CommandBars("Worksheet Menu Bar")
        .Controls("Fichier").Enabled = False
    End With
 
    'desactive le raccourci clavier Ctrl+S
    Application.OnKey "^s", ""
 
End Sub

[cwain]

Bonjour,
perso, j'utilise un fichier modèle (.xlt) mis à dispo sur le réseau. L'utilisateur peut créer un nouveau fichier, mais pas modifier le modèle qui est protégé par un mot de passe.

[choucks]

Pour info il y a aussi ça :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose()
    ' ferme le classeur modifié sans l'enregistrer et sans qu'un message vous propose de le faire.
    ThisWorkbook.Saved = True
End Sub

[ouskel'n'or]

Faire suivre ThisWorkbook.Saved = true de la ligne

Code :

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

    ThisWorkbook.close

[doringen]

Voici une méthode de "bourrin" :

Elle empêche l'utilisateur d'accèder au menu fichier, à l'icone disquette et d'utiliser le raccourci clavier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub empecheEnr()
 
    With Application.CommandBars("Standard")
        .Controls("Enre&gistrer").Enabled = False
    End With
    With Application.CommandBars("Worksheet Menu Bar")
        .Controls("Fichier").Enabled = False
    End With
 
    'desactive le raccourci clavier Ctrl+S
    Application.OnKey "^s", ""
 
End Sub

Je rebondis sur un sujet connexe et voudrais savoir si pour les contrôles de ce type, il existe un nom générique qui ne fasse pas intervenir le parler du cru.
Je m´explique: je bosse en Allemagne, sur un windows en langue de Goethe donc et chez moi, le ".Controls("Enregistrer")" est en fait ".Controls("Speichern")", et ca vaut pour toutes instructions de mon code où intervient la langue locale de l´appli.
Du coup, pour mes collègues de par le vaste monde qui recoivent mes fichiers, en termes de portabilité pour mes macros, c´est ... comment dire ...
donc, existe-t-il une typo globale (j´imagine par exemple un "Savecontrol" ou un "NewFileControl") sans intervention d´un language local ? Si oui, ou puis-je la trouver ?
D´avance merci

[ouskel'n'or]

Tu peux retrouver le nom avec le caption du bouton. Ex :

Code :

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

1
2
3
4
For Each ctrl In Application.CommandBars("Standard").Controls
i = i + 1
MsgBox "Controls(" & i & ")" & " => " & ctrl.Caption '& Application.CommandBars("Standard").Controls(i).Caption
Next

Just ça à modifier
A+

PS - Comment ça se dit "Standard" en allemand ? T'as intérêt à le savoir parce sinon, ça fonctionnera pas

[doringen]

juste ce dont j´avais besoin
merci

[klrblz]

Salut tout le monde

J'ai utilisé la méthode de "bourrin" pour empécher l'enregistrement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub empecheEnr()
 
    With Application.CommandBars("Standard")
        .Controls("Enre&gistrer").Enabled = False
    End With
    With Application.CommandBars("Worksheet Menu Bar")
        .Controls("Fichier").Enabled = False
    End With
 
    'desactive le raccourci clavier Ctrl+S
    Application.OnKey "^s", ""
 
End Sub

Mais "petit" problème, maitenant je n'ai plus accès au menu fichier sur n'importe quel doc...

Aidez-moi svp

[Pachee]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose()
 
    With Application.CommandBars("Standard")
        .Controls("Enre&gistrer").Enabled = True
    End With
    With Application.CommandBars("Worksheet Menu Bar")
        .Controls("Fichier").Enabled = True
    End With
 
End Sub

En rétablissant à la fermeture du fichier, ça refonctionne ?

[ouskel'n'or]

Salut tout le monde

J'ai utilisé la méthode de "bourrin" (de choucks) pour empécher l'enregistrement:

Mais "petit" problème, maitenant je n'ai plus accès au menu fichier sur n'importe quel doc...

Aidez-moi svp

C'est malin !
Quand tu modifies les barres d'outils ou que tu les masques, le modèle conserve les modifications.
Tape Alt + A pour afficher le menu affichage. Et là, tu as accès à "Barres d'outils", barre d'état et barre de formules

[StefBBR]

Je rebondis sur un sujet connexe et voudrais savoir si pour les contrôles de ce type, il existe un nom générique qui ne fasse pas intervenir le parler du cru.
Je m´explique: je bosse en Allemagne, sur un windows en langue de Goethe donc et chez moi, le ".Controls("Enregistrer")" est en fait ".Controls("Speichern")", et ca vaut pour toutes instructions de mon code où intervient la langue locale de l´appli.
Du coup, pour mes collègues de par le vaste monde qui recoivent mes fichiers, en termes de portabilité pour mes macros, c´est ... comment dire ...
donc, existe-t-il une typo globale (j´imagine par exemple un "Savecontrol" ou un "NewFileControl") sans intervention d´un language local ? Si oui, ou puis-je la trouver ?
D´avance merci

Hello, la question m'intéresse. Est-ce que tu as trouvé une réponse 11 ans plus tard?

[patricktoulon]

Bonjour
sert toi des index de bouton et non de leur capiton normalement c'est pareil pour toutes les langues

[StefBBR]

Merci, effectivement ça sera pas mal.

Cependant, je me pose la question d'une manière plus générale.... Dans ma boite certains ont leur PC en Français, d'autres en anglais. Ma Macro génère une formule Excel automatiquement en =IF(), en Français ça ne marchera pas... De la meme manière que certaines fonctions / noms etc. sont typées par langue.
Donc en gros la question serait : est-ce qu'il y a un moyen de dire à Excel / VBA "je code en anglais" ou en global, et qu'il fasse la traduction des parties "typées"?

[Menhir]

Hello, la question m'intéresse. Est-ce que tu as trouvé une réponse 11 ans plus tard?

Do It yourself.

Lance ce code et tu auras toutes les barres et tous les contrôles avec leurs indices et leur nom qui s'affichera dans la fenêtre d'exécution.
Ensuite, tu n'auras plus qu'à trouver les tiens et à utiliser leur index comme le conseille Patrick.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
Dim CB As Long, CT As Long
For CB = 1 To Application.CommandBars.Count
    Debug.Print "CommandBars " & CB & " : " & Application.CommandBars(CB).Name
    For CT = 1 To Application.CommandBars(CB).Controls.Count
        Debug.Print "    Control " & CB & "-" & CT & " : " & Application.CommandBars(CB).Controls(CT).Caption
    Next CT
Next CB
 
End Sub

Dans ma boite certains ont leur PC en Français, d'autres en anglais. Ma Macro génère une formule Excel automatiquement en =IF(), en Français ça ne marchera pas...

Je ne sais pas quelle instruction tu utilises pour inscrire les formules dans les cellules, mais avec Formula, tu peux (tu dois) écrire la formule en anglais, quelle que soit la langue de l'Excel concerné.
C'est FormulaLocal qui te permet d'écrire des formule dans la langue... locale.
https://msdn.microsoft.com/fr-fr/lib.../ff838835.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff838851.aspx