VBA et cellules protégé.

[Antho35]

Bonjour,

J'ai conçu un formulaire en VBA, ce forumulaire va ensuite alimenter un tableau excel, rien de bien compliquer jusque là. Cependant pour éviter que les utlisateur finaux, aillent modifier, ajouter, supprimer des choses directement dans le tableaux, j'ai protéger via mot de passe les cellules du tableau, sauf que VBA du coup ne va pas rentrer les données (logique)

Avez vous une solution

Merci

 

[Staple1600]

Re : VBA et cellules protégé.

Bonjour

Bonjour,
Avez vous une solution
Merci

Oui

1) Appuyer sur ALT+F11 puis F1
Dans l'onglet Index,saisir alors Protect (dans 1. Taper des mots clés )
puis dans l'onglet: 3. Sélectionner une rubrique
sélectionner : Protect, méthode

et voir du côté de UserInterfaceOnly

UserInterfaceOnly Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.

PS: pour des exemples illustratifs, utilisez également le moteur de recherche du forum

 

[Pierrot93]

Re : VBA et cellules protégé.

Bonjour Antho,

pour pouvoir utiliser vba sur feuille protégée, il faut protéger par le code en utilisant l'argument "userinterfaceonly"', code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

 

[Staple1600]

Re : VBA et cellules protégé.

Bonjour Pierrot93

Sur Excel 2000, voir mon précédent message pour voir ce que dit l'aide sur UserInterfaceOnly


Merci d'avoir fourni un exemple tout frais sorti du four pour Antho35

 

[Antho35]

Re : VBA et cellules protégé.

Bonjour Pierrot93

Sur Excel 2000, voir mon précédent message pour voir ce que dit l'aide sur UserInterfaceOnly


Merci d'avoir fourni un exemple tout frais sorti du four pour Antho35

Ce forum c'est du pain benit...

Merci

 

[Antho35]

Re : VBA et cellules protégé.

Cela ne semble pas fonctionner.

 

[Papou-net]

Re : VBA et cellules protégé.

Bonjour à tous,

RE Antho35,

Une autre solution, moins "élégante", mais qui fonctionne dans tous les cas :

Ajouter l'instruction 'Unprotect' (suivie du mot de passe le cas échéant) en début de la macro chargée d'écrire sur la feuille, et la terminer par 'Protect' en dernière ligne.

Ainsi, la protection est annulée uniquement lors le l'exécution de la macro, l'utilisateur n'ayant pas la main pendant son déroulement, il n'y a pas de risque d'erreur.

Espérant avoir aidé.

Cordialement.

 

[Antho35]

Re : VBA et cellules protégé.

Bonjour,

Même probléme avec cette solution, j'obtient toujours le message erreur d'éxcécution '1004' : La cellules ou le graphique est protégé en lecture seule.

 

[Papou-net]

Re : VBA et cellules protégé.

Ce n'est pas normal, il doit y avoir une anomalie cachée.

Peux-tu joindre une copie sans données confidentielles de ton fichier ?

A +

Cordialement.

 

[Antho35]

Re : VBA et cellules protégé.

Je ne demande qu'a joindre un bout du fichier, mais la bête fait 12mo donc trés au dessus des quotas du forum, je vais voir si je peux pas le mettre en lien ici.

 

[Antho35]

Re : VBA et cellules protégé.

Re,

voci ce que j'ai rentré

Private Sub Workbook_Open()
Sheets("MENU").Activate
SYNTHESE_AUTRES.Protect "4126093", userinterfaceonly:=True
End Sub

ni aurait il pas un probléme avec le

Sheets("MENU").Activate

Merci pour votre aide.

 

[Antho35]

Re : VBA et cellules protégé.

Re,

Je viens de tester queqlue chose et cela fonctionne correctement.

En dans l'uue des réponses que l'on m'a proposer, j'avais recopier le code et remplacer le feuil1 par son nom sous excel, or il ne faut pas tenir compte du nom excel mais du feuil? que l'on vois sur le coté de VBA.

Merci

 

[Pierrot93]

Re : VBA et cellules protégé.

Re,

Présenté comme ceci :

Feuil1.Protect

c'est le "codename" de la feuille qui est utilisé, pour utiliser le nom de la feuille, il faut codifier ainsi :

Sheets("Feuil1").Protect

@+