Ficher en lecture seule avec possibilité de modifi
Fermé
angelinas35
Messages postés
54
Date d'inscription
mercredi 6 juin 2018
Statut
Membre
Dernière intervention
22 juin 2021
-
12 sept. 2018 à 15:40
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 - 18 sept. 2018 à 18:20
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 - 18 sept. 2018 à 18:20
A voir également:
- Ficher en lecture seule avec possibilité de modifi
- Confirmation de lecture whatsapp - Guide
- Accusé de lecture gmail - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? - Forum Word
- Accusé de lecture outlook - Guide
- Iptv erreur de lecture - Forum TV & Vidéo
2 réponses
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
12 sept. 2018 à 17:57
12 sept. 2018 à 17:57
Bonjour,
Pourquoi ne pas simplement proteger le classeur par un mot de passe que toi seule connais? les autres utilisateurs qui ne font que consulter pourront toujours utiliser la fonction recherche pour trouver leurs stats
Pourquoi ne pas simplement proteger le classeur par un mot de passe que toi seule connais? les autres utilisateurs qui ne font que consulter pourront toujours utiliser la fonction recherche pour trouver leurs stats
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
Modifié le 12 sept. 2018 à 20:44
Modifié le 12 sept. 2018 à 20:44
Bonjour,
Avec ce code, toute personne autre que vous ouvrira toujours le fichier en lecture seule
Le nom de votre profil est donné par la fonction : Environ("username"). C'est en principe votre nom d'utilisateur , mais si ce nom est trop long, il peut être tronqué.
Avec ce code, toute personne autre que vous ouvrira toujours le fichier en lecture seule
Private Sub Workbook_Open() Dim xl As Application If Environ("username") = "nom_de_votre_profil" Then Exit Sub If Not ThisWorkbook.ReadOnly Then Set xl = New Application xl.Workbooks.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name, ReadOnly:=True xl.Visible = True Application.Quit End If End Sub
Le nom de votre profil est donné par la fonction : Environ("username"). C'est en principe votre nom d'utilisateur , mais si ce nom est trop long, il peut être tronqué.
angelinas35
Messages postés
54
Date d'inscription
mercredi 6 juin 2018
Statut
Membre
Dernière intervention
22 juin 2021
18 sept. 2018 à 16:42
18 sept. 2018 à 16:42
Je ne comprends pas du tout ce que vous me dites..
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
18 sept. 2018 à 18:20
18 sept. 2018 à 18:20
Il s'agit d'un code VBA mais apparemment vous ne connaissez pas l'utilisation des macros sous Excel.
Ce que vous pouvez alors faire, c'est :
1- enregistrer votre fichier en lecture seule recommandée
2- mettre un mot de passe dans le cas où un utilisateur voudrait l'ouvrir en écriture.
Pour cela, il vous suffit de cliquer sur la petite flèche à côté du bouton enregistrer et de choisir : options générales.
Ce que vous pouvez alors faire, c'est :
1- enregistrer votre fichier en lecture seule recommandée
2- mettre un mot de passe dans le cas où un utilisateur voudrait l'ouvrir en écriture.
Pour cela, il vous suffit de cliquer sur la petite flèche à côté du bouton enregistrer et de choisir : options générales.
12 sept. 2018 à 19:05