protéger un fichier a l'exception ID dans une liste

Le
pellet15
Bonjour à tous

J'ai besoin de protéger un fichier contre l'écriture
mais seulement par ceux qui ne sont pas dans la liste
qui est dans :
Sheets("Donne").Select
Range("A2:A20").Select
ils ne doit pas pouvoir enregistré sur le même nom.

Je ne veut pas utiliser un mot de passe pour ouvrire ,
mais plus tôt utilise le user ID de windows
(qui est dans cette liste et qui est déja utiliser pour faire un rapport)=
.

Exemple de ce que j'ai présentement
Private Sub Workbook_Open()
Sheets("Donne").Activate
Sheets("Donne").Range("A1") = Application.UserName
ReplaceFenêtre

y inclure un message Box qui indique que le fichier est en lecture seul.
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24422061
Bonjour,
Private Sub Workbook_Open()
With Sheets("Donne")
.Range("A1") = Application.UserName
If Not IsNumeric(Application.Match(.[A1], .[A2:A20], 0)) Then
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
End If
End With
End Sub
Cordialement.
Daniel


Bonjour à tous

J'ai besoin de protéger un fichier contre l'écriture
mais seulement par ceux qui ne sont pas dans la liste
qui est dans :
Sheets("Donne").Select
Range("A2:A20").Select
ils ne doit pas pouvoir enregistré sur le même nom.

Je ne veut pas utiliser un mot de passe pour ouvrire ,
mais plus tôt utilise le user ID de windows
(qui est dans cette liste et qui est déja utiliser pour faire un rapport).

Exemple de ce que j'ai présentement......
Private Sub Workbook_Open()
Sheets("Donne").Activate
Sheets("Donne").Range("A1") = Application.UserName
ReplaceFenêtre

y inclure un message Box qui indique que le fichier est en lecture seul.
Merci
pellet15
Le #24422431
Le dimanche 22 avril 2012 05:02:15 UTC-4, DanielCo a écrit :
Bonjour,
Private Sub Workbook_Open()
With Sheets("Donne")
.Range("A1") = Application.UserName
If Not IsNumeric(Application.Match(.[A1], .[A2:A20], 0)) Then
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
End If
End With
End Sub
Cordialement.
Daniel


> Bonjour à tous
>
> J'ai besoin de protéger un fichier contre l'écriture
> mais seulement par ceux qui ne sont pas dans la liste
> qui est dans :
> Sheets("Donne").Select
> Range("A2:A20").Select
> ils ne doit pas pouvoir enregistré sur le même nom.
>
> Je ne veut pas utiliser un mot de passe pour ouvrire ,
> mais plus tôt utilise le user ID de windows
> (qui est dans cette liste et qui est déja utiliser pour faire un rapp ort).
>
> Exemple de ce que j'ai présentement......
> Private Sub Workbook_Open()
> Sheets("Donne").Activate
> Sheets("Donne").Range("A1") = Application.UserName
> ReplaceFenêtre
>
> y inclure un message Box qui indique que le fichier est en lecture seul .
> Merci



Cela fonctionne très bien pour moi
Gros Merci encore un pas en avant !!!
Publicité
Poster une réponse
Anonyme