Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Conception
Conception Questions relatives à la conception d'un classeur Excel (structure, organisation, protection, sécurisation, ...)
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/02/2011, 17h08   #1
Invité de passage
 
Inscription : mars 2010
Messages : 9
Détails du profil
Informations forums :
Inscription : mars 2010
Messages : 9
Points : 1
Points : 1
Par défaut ReadOnly et mot de passe

Bonjour,

J'ai actuellement un fichier excel, consultable par plusieurs personnes (jamais en meme temps)
Je voudrais que certaines personnes puissent ouvrir le fichier en lecture seule et que d'autres puissent l'ouvrir normalement si elles possèdent un code.
Cela, en passant par un userform, qui s'ouvrirait à l'ouverture du fichier, avec un bouton "lecture seule" et un bouton "lecture ecriture".

Pour réaliser cette macro, j'ai deux problèmes.
La premiere en comment utiliser la foncition ReadOnly
La deuxieme est quelle code mettre pour demandé un mot de passe.

Si vous avez une des deux solutions (ou les deux!), je vous remerci d'avance de me les communiquer.

Simon
creunch est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/02/2011, 17h27   #2
Expert Confirmé
 
Avatar de patricktoulon
 
patrick
Inscription : avril 2009
Messages : 1 827
Détails du profil
Informations personnelles :
Nom : patrick
Âge : 42
Localisation : France, Var (Provence Alpes Côte d'Azur)

Informations professionnelles :
Secteur : Bâtiment

Informations forums :
Inscription : avril 2009
Messages : 1 827
Points : 2 853
Points : 2 853
Envoyer un message via MSN à patricktoulon
Par défaut heu!...

bonjour


je supose que les utilisateurs ayant la possibilité de lecture ecriture sont connu

si c'est le cas
tu n'a qua faire une simple condition a l'open

avec le "application.username"

Code :
1
2
3
4
5
6
7
private sub workbook.open
 
if application.username="nestor" then 
'ici tout ce que tu veux 
else 
then activeworbook.close
end sub
enfin c'est juste un exemple

au plaisir
__________________
mes fichiers dans les contributions:
mon formulaire mail avec CDO en vba et mon formulaire mail avec CDO en vbs dans un HTA
mon nouveau mouse in out pour les boutons dans un userform
mon addin pour prendre un cliché de selection de cellules

si ton problème est résolu n'oublie pas de pointer :résolu:ça peut servir aux autres
et n'oublie pas de voter
patricktoulon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/02/2011, 18h09   #3
Invité de passage
 
Inscription : mars 2010
Messages : 9
Détails du profil
Informations forums :
Inscription : mars 2010
Messages : 9
Points : 1
Points : 1
Merci pour ta réponse rapide, mais le probleme,dans mon cas,c'est qu'avec ta solution il faut que j'écrive dans le code de la macro tous les noms des utilisateurs.
En effet, la liste des utilisateurs est longue et peux varier, ce qui m'obligerais à modifier le code assez souvent
De plus,certains ordinateurs sont utilisés par deux personnes qui ont des droits accès différent (l'un en lecture seule et l'autre en ecriture)

Il serait plus simple pour moi de leurs donner un mot de passe pour qu'ils puissent avoir accès au mode ecriture.
Si tu as la solution ou une autre façon de procéder, je suis preneur.

merci d'avance
creunch est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/02/2011, 18h17   #4
Expert Confirmé
 
Avatar de patricktoulon
 
patrick
Inscription : avril 2009
Messages : 1 827
Détails du profil
Informations personnelles :
Nom : patrick
Âge : 42
Localisation : France, Var (Provence Alpes Côte d'Azur)

Informations professionnelles :
Secteur : Bâtiment

Informations forums :
Inscription : avril 2009
Messages : 1 827
Points : 2 853
Points : 2 853
Envoyer un message via MSN à patricktoulon
Par défaut re

bon alors une solution

serait de metre une application inputbox

qui demanderaisle nom d'utilisateur et un mot de passe

toujour a l'open boucler sur les nom d'utilisateur inscrit préalablement si le nom n'y est pas l'inputbox apparait

un fois le input box rempli enregistrement dans le sheets ou les noms s'enregistre
comme ca la prochaine fois que cet utilisateur se sert de ton application il n'aura pas a remplir la demande

il te reste ^plus qu'a donner le mot de passe soit oralement soit par email

si c'est trop fastidieux pour toi
autant oublié tout de suite cette idée car je ne vois pas plus simple surtout que la liste de nom est assez importante d'apres ce que tu me dis


je te fait un exemple et tu me dis ce que tu en pense


au plaisir
__________________
mes fichiers dans les contributions:
mon formulaire mail avec CDO en vba et mon formulaire mail avec CDO en vbs dans un HTA
mon nouveau mouse in out pour les boutons dans un userform
mon addin pour prendre un cliché de selection de cellules

si ton problème est résolu n'oublie pas de pointer :résolu:ça peut servir aux autres
et n'oublie pas de voter
patricktoulon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/02/2011, 18h23   #5
pgz
Expert Confirmé Sénior
 
Avatar de pgz
 
Homme Pierre GONZALEZ
Développeur Office VBA
Inscription : août 2005
Messages : 3 412
Détails du profil
Informations personnelles :
Nom : Homme Pierre GONZALEZ
Âge : 58
Localisation : France

Informations professionnelles :
Activité : Développeur Office VBA
Secteur : Conseil

Informations forums :
Inscription : août 2005
Messages : 3 412
Points : 5 934
Points : 5 934
Bonjour.

Petite variante :
Tu protèges ton classeur par un mot de passe (PwdSecret)
Tu crées une autre application juste pour lancer le classeur principal. Dans cet appli, tu protèges le projet VBA. Ce lanceur demande un mot de passe. Si l'opéarteur saisit Pwd1, tu ouvres en lecture, Pwd2 tu ouvres en modification.

Tu peux aussi, pour mieux protéger PwdSecret, utiliser un petit accde comme lanceur.

Tout cela, relève plutôt de la rubrique Conception.

Cordialement,

PGZ
__________________
pluritas non est ponenda sine necessitate - Le rasoir d'Okham
Ne jamais attribuer à la malignité ce que la stupidité peut expliquer -Le rasoir d'Hanlon
pgz est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h23.


 
 
 
 
Partenaires

Hébergement Web