Discussion :

[linkcr15]

Bonjour à toutes et à tous!

Voici mon problème :

J'ai créée un logiciel en VBA sous Excel. Dedans j'utilise des feuilles Excel pour les afficher dans des UserForm via des composants Spreadsheet.
J'aimerais vérouiller mes feuilles pour que les utilisateurs ne puissent pas changer ce qu'il y a dedans. Mon problème est que quand je vérouille les feuilles (j'ai éssayé via un mot de passe, en cachant mes feuilles avec l'attribut Visible des feuilles et via l'attribut EnableSelection), mon code VBA ne fonctionne pu car les restrictions que j'utilise s'appliquent aussi aux macros VBA.
Comment faire pour verrouiller les feuilles sans bloquer les macros VBA?

Merci d'avance pour vos réponses!

[CODYCO]

Tu as deux solutions soit ne pas vérouiller les feuilles mais simplement masqué la barre des onglets

Code :

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

1
2
 
ActiveWindow.DisplayWorkbookTabs = False

Soit avec vérouillage que tu désactive au début et réactive en fin de macro.

Code :

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

1
2
3
4
5
 
With ActiveSheet
    .Unprotect ("Ton mot de passe") 'deprotege
    .Protect Password:="Mot de passe" 'protege
End With

[linkcr15]

J'ai déjà essayé ta deuxième solution mais c'est trop fastidieux, surtout si je souhaites changer le mot de passe...

Je vais essayer de masquer la barre des onglets voir ce que ça donne, merci ^^

Edit : Cela ne règle pas mon problème car j'ai beaucoup de macros VBA qui m'active beaucoup de feuilles, donc l'utilisateur peut à tout moment fermer le UserForm pour faire apparaître les données et les changer comme il le souhaite.

[briceap]

Sinon, tu passes la feuille en veryhidden

Code :

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

1
2
3
4
Sub MasquerFortementOnglet(nom_onglet As String)
    Sheets(nom_onglet).Visible = xlVeryHidden
    ' L'onglet devient fortement caché et ne peut être ré-affiché uniquement uniquement via une macro
End Sub

Avec ça, tu peux même directement aller chercher les infos sans verrouiller quoi que ce soit !

J'ajoute que pour ré-afficher, il faut passer le champ .visibile à True

[linkcr15]

Non VeryHidden ne fonctionne pas, les macros ne s'effectuent toujours pas...
Je ne sais vraiment pas comment faire

[fring]

Bonjour,

Non VeryHidden ne fonctionne pas, les macros ne s'effectuent toujours pas...

Tu n'aurais pas des Machins.Select ou Trucs.Activate dans ta macro ?

[linkcr15]

Si partout!

[fring]

c'est là qu'est l'os

il n'est forcément pas possible de sélectionner une feuille ou une cellule de cette feuille lorsque celle-ci est masquée mais il est tout à fait possible de lire ou de modifier des données de cette feuille sans passer par les Select

Code :

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

1
2
3
4
5
6
7
8
9
'ne fonctionnera pas si la feuille est masquée
Sheets("feuil1").Select
Range("A1").Select
MsgBox ActiveCell.Value
 
 
'sans passer par des Select fonctionnera même si la feuille est masquée
'cela donne :
MsgBox Sheets("feuil1").Range("A1").Value

[nchal]

Bonjour

Je completerai le message de mon VDD en précisant que l'utilisation des "select" ralenti l'exécution du code et en plus c'est moche.

[linkcr15]

Bon et bien je vais reprogrammer tout mon code afin d'éviter les select, j'en ai pour plusieurs jours, je vous donnerais des nouvelles quand j'aurais fini.
Merci pour votre aide à tous en tout cas c'est sympa!