Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la
feuille "Donné"
avec cela je voudrait que seulement les utilisateur que j'ai dans la liste
"User" (qui est dans =Donné!$AK$1:$AK$50 )
puisent ouvrir le fichier avec le droit de le modifier, les autre en
"Lecture seule".
Merci
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
bonjour Daniel,
Private Sub Workbook_Open()
Authorisation
End Sub
Sub Authorisation()
On Error Resume Next
Application.DisplayAlerts = False
If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Else
ThisWorkbook.ChangeFileAccess xlReadWrite
End If
Err.Clear
Application.DisplayAlerts = True
End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la
feuille "Donné"
avec cela je voudrait que seulement les utilisateur que j'ai dans la liste
"User" (qui est dans =Donné!$AK$1:$AK$50 )
puisent ouvrir le fichier avec le droit de le modifier, les autre en
"Lecture seule".
Merci
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
isabelle
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName Authorisation End Sub
isabelle
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Authorisation
End Sub
Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName Authorisation End Sub
isabelle
Daniel
Super cela répond exactement Gros Merci Isabelle
"isabelle" a écrit dans le message de news:
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
Super cela répond exactement
Gros Merci Isabelle
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
41609466.5F3CFDCC@videotron.ca...
bonjour Daniel,
Private Sub Workbook_Open()
Authorisation
End Sub
Sub Authorisation()
On Error Resume Next
Application.DisplayAlerts = False
If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Else
ThisWorkbook.ChangeFileAccess xlReadWrite
End If
Err.Clear
Application.DisplayAlerts = True
End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la
feuille "Donné"
avec cela je voudrait que seulement les utilisateur que j'ai dans la
liste
"User" (qui est dans =Donné!$AK$1:$AK$50 )
puisent ouvrir le fichier avec le droit de le modifier, les autre en
"Lecture seule".
Merci
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
isabelle
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open() Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le nom 'de l'onglet dans la formule "Evaluate" de la macro Authorisation 'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then Sheets("Donné").Range("AL1") = Application.UserName Authorisation End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open()
Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le nom
'de l'onglet dans la formule "Evaluate" de la macro Authorisation
'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then
Sheets("Donné").Range("AL1") = Application.UserName
Authorisation
End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open()
Authorisation
End Sub
Sub Authorisation()
On Error Resume Next
Application.DisplayAlerts = False
If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Else
ThisWorkbook.ChangeFileAccess xlReadWrite
End If
Err.Clear
Application.DisplayAlerts = True
End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la
feuille "Donné"
avec cela je voudrait que seulement les utilisateur que j'ai dans la liste
"User" (qui est dans =Donné!$AK$1:$AK$50 )
puisent ouvrir le fichier avec le droit de le modifier, les autre en
"Lecture seule".
Merci
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Private Sub Workbook_Open() Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le nom 'de l'onglet dans la formule "Evaluate" de la macro Authorisation 'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then Sheets("Donné").Range("AL1") = Application.UserName Authorisation End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
Daniel
OK J'ai corriger
Merci encore :-))) xxxxx
"isabelle" a écrit dans le message de news:
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open() Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le nom 'de l'onglet dans la formule "Evaluate" de la macro Authorisation 'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then Sheets("Donné").Range("AL1") = Application.UserName Authorisation End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName
OK J'ai corriger
Merci encore :-))) xxxxx
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
41609AA3.606B740A@videotron.ca...
oup's, correction pour le Workbook_Open
Private Sub Workbook_Open()
Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le
nom
'de l'onglet dans la formule "Evaluate" de la macro Authorisation
'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then
Sheets("Donné").Range("AL1") = Application.UserName
Authorisation
End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open()
Authorisation
End Sub
Sub Authorisation()
On Error Resume Next
Application.DisplayAlerts = False
If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Else
ThisWorkbook.ChangeFileAccess xlReadWrite
End If
Err.Clear
Application.DisplayAlerts = True
End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la
feuille "Donné"
avec cela je voudrait que seulement les utilisateur que j'ai dans la
liste
"User" (qui est dans =Donné!$AK$1:$AK$50 )
puisent ouvrir le fichier avec le droit de le modifier, les autre en
"Lecture seule".
Merci
Private Sub Workbook_Open()
Sheets("Donné").Range("al1") = Application.UserName
Private Sub Workbook_Open() Sheets("Donné").Activate ' si cette ligne est absente il faut spécifier le nom 'de l'onglet dans la formule "Evaluate" de la macro Authorisation 'If IsError(Evaluate("=MATCH(Donné!AL1,Donné!Ak1:Ak50,0)")) Then Sheets("Donné").Range("AL1") = Application.UserName Authorisation End Sub
isabelle
bonjour Daniel,
Private Sub Workbook_Open() Authorisation End Sub
Sub Authorisation() On Error Resume Next Application.DisplayAlerts = False If IsError(Evaluate("=MATCH(AL1,Ak1:Ak50,0)")) Then ThisWorkbook.ChangeFileAccess xlReadOnly Else ThisWorkbook.ChangeFileAccess xlReadWrite End If Err.Clear Application.DisplayAlerts = True End Sub
isabelle
Bonjour à tous
Quand j'ouvre mon fichier le nom de l'utilisateur s'inscri en AL1 de la feuille "Donné" avec cela je voudrait que seulement les utilisateur que j'ai dans la liste "User" (qui est dans =Donné!$AK$1:$AK$50 ) puisent ouvrir le fichier avec le droit de le modifier, les autre en "Lecture seule".
Merci Private Sub Workbook_Open() Sheets("Donné").Range("al1") = Application.UserName