Fichier en lecture seule suivant utilisateur ou accès complet RW
2 réponses
ThierryK
Bonjour à toutes & à tous
je souhaiterai pouvoir ouvrir un fichier soit en lecture seule soit en accès
complet
suivant l'identification du poste depuis lequel le fichier est ouvert
à l'ouverture du fichier je recherche l'adresse IP du poste qui ouvre le
fichier (qui est stocké sur un serveur)
et en fonction de l'adresse (si elle figure dans ma liste) ouvre le fichier
en accès complet
ou en lecture seule si l'adresse IP ne figure pas dans ma liste
est il possible de faire cela (ouvrir en lecture seule)
sinon y a t il une solution alternative?
en vous remerciant d'avance pour votre aide et vos conseils
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
michdenis
Bonjour,
Essaie quelque chose comme :
Tu places dans un module standard : '----------------------------------------- Sub Auto_Open()
'Le code de ton test :
On Error Resume Next With ThisWorkbook If résultatTonText = "Ok" Then .ChangeFileAccess Mode:=xlReadWrite, notify:=True Else .ChangeFileAccess Mode:=xlReadOnly, notify:=True End If End If End Sub '-----------------------------------------
"ThierryK" a écrit dans le message de groupe de discussion : # Bonjour à toutes & à tous
je souhaiterai pouvoir ouvrir un fichier soit en lecture seule soit en accès complet suivant l'identification du poste depuis lequel le fichier est ouvert
à l'ouverture du fichier je recherche l'adresse IP du poste qui ouvre le fichier (qui est stocké sur un serveur) et en fonction de l'adresse (si elle figure dans ma liste) ouvre le fichier en accès complet ou en lecture seule si l'adresse IP ne figure pas dans ma liste
est il possible de faire cela (ouvrir en lecture seule)
sinon y a t il une solution alternative?
en vous remerciant d'avance pour votre aide et vos conseils
ThierryK
Windows XP Pro SP3 Office 2003
Bonjour,
Essaie quelque chose comme :
Tu places dans un module standard :
'-----------------------------------------
Sub Auto_Open()
'Le code de ton test :
On Error Resume Next
With ThisWorkbook
If résultatTonText = "Ok" Then
.ChangeFileAccess Mode:=xlReadWrite, notify:=True
Else
.ChangeFileAccess Mode:=xlReadOnly, notify:=True
End If
End If
End Sub
'-----------------------------------------
"ThierryK" <thierryx.kolby@zlaposzte.nxet> a écrit dans le message de groupe de discussion
: #068vjhvKHA.4552@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes & à tous
je souhaiterai pouvoir ouvrir un fichier soit en lecture seule soit en accès
complet
suivant l'identification du poste depuis lequel le fichier est ouvert
à l'ouverture du fichier je recherche l'adresse IP du poste qui ouvre le
fichier (qui est stocké sur un serveur)
et en fonction de l'adresse (si elle figure dans ma liste) ouvre le fichier
en accès complet
ou en lecture seule si l'adresse IP ne figure pas dans ma liste
est il possible de faire cela (ouvrir en lecture seule)
sinon y a t il une solution alternative?
en vous remerciant d'avance pour votre aide et vos conseils
Tu places dans un module standard : '----------------------------------------- Sub Auto_Open()
'Le code de ton test :
On Error Resume Next With ThisWorkbook If résultatTonText = "Ok" Then .ChangeFileAccess Mode:=xlReadWrite, notify:=True Else .ChangeFileAccess Mode:=xlReadOnly, notify:=True End If End If End Sub '-----------------------------------------
"ThierryK" a écrit dans le message de groupe de discussion : # Bonjour à toutes & à tous
je souhaiterai pouvoir ouvrir un fichier soit en lecture seule soit en accès complet suivant l'identification du poste depuis lequel le fichier est ouvert
à l'ouverture du fichier je recherche l'adresse IP du poste qui ouvre le fichier (qui est stocké sur un serveur) et en fonction de l'adresse (si elle figure dans ma liste) ouvre le fichier en accès complet ou en lecture seule si l'adresse IP ne figure pas dans ma liste
est il possible de faire cela (ouvrir en lecture seule)
sinon y a t il une solution alternative?
en vous remerciant d'avance pour votre aide et vos conseils
ThierryK
Windows XP Pro SP3 Office 2003
ThierryK
Bonsoir "michdenis" c'est avec beaucoup de retard (excuse moi mais en déplacement et pas d'accès internet) que je te remercie pour ton aide
j'ai pu adapter ton code
encore merci @+ ThierryK
Windows XP Pro SP3 Office 2003 & 2007
Bonsoir "michdenis"
c'est avec beaucoup de retard (excuse moi mais en déplacement et pas d'accès
internet)
que je te remercie pour ton aide