Discussion :

[lio33]

Bonjour,
Est-il possible d'ouvrir un explorateur de fichiers avec ces derniers en lecture seule ?

Problème : Mon application prévoit l'ouverture d'un explorateur de fichier sur des dossiers spécifiques. Je souhaiterai pouvoir rendre les fichiers de ces dossiers en "lecture seule" pour certains profils utilisateurs.

Actuellement je procède de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    '...
    'Chemin du dossier = Chemin de la base de données + nom du dossier de veille documentaire
    If Dir(strCheminDossier, vbDirectory) <> "" Then
        'Ouvrir explorateur
        Shell "explorer.exe " & strCheminDossier & """", vbNormalFocus
    End If
    '...

ou pour d'autres dossiers pour lesquels je ne souhaite pas que l'utilisateur puisse remonter dans l'arborescence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    'Ouvrir explorateur
    Shell "explorer.exe /n,/e,/root," & strCheminDossier & """", vbNormalFocus

Merci d'avance de vos retours.

[loufab]

Bonjour,

Les droits systèmes utilisateurs se gèrent du côté système pas applicatif.

Cordialement,

[lio33]

C'est bien ce que je pensais.
Merci pour ta réponse.

[lio33]

Par contre il doit être possible de faire un formulaire ACCESS "Explorateur".
Dans ce cas serait-il possible pour l'utilisateur d'ouvrir un fichier en lecture seule ?

[titi95]

Bonsoir

Une solution assez complète de Daniel MOREAU qui fonctionne bien et qui permet de paramétrer une boîte de dialogue pour ouvrir un fichier (si cela correspond à ton besoin) :
https://www.developpez.net/forums/d1...r-fichier-vba/

Tu peux rajouter les constantes que tu veux sur la ligne "flags" en les séparant avec un "+". Par exemple, dans ton cas pour la lecture seule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   .flags = OFN_HIDEREADONLY + OFN_READONLY 'Option de la boite de dialogue