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
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
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
Cela fonctionne très bien pour moi
Gros Merci encore un pas en avant !!!