Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    macro : verrouiller par un mot de passe un dossier spécifique d'outlook
    Bonjour,

    Je souhaiterais faire une macro pour dès que je clique sur un dossier spécifique d'outlook (2010) il me demande un mot de passe (je sais que je peux utiliser un fichier pst mais je préférerai une macro). Cela, est-il possible ? Je ne m'y connais pas du tout en macro et VBA.

    Merci d'avance

  2. #2
    Expert éminent
    Bonjour,
    La demande de mot de passe est possible, la protection du dossier pas vraiment ! Avec une recherche tous les messages apparaîtront.
    donc c'est sans effet

  3. #3
    Nouveau Candidat au Club
    Bonjour,

    Merci beaucoup pour votre retour.
    Je comprends je souhaite seulement garantir un accès limité, donc la demande de mot de passe peut me suffir.

    Savez-vous réaliser la macro en question ?

    Merci d'avance.

  4. #4

  5. #5
    Nouveau Candidat au Club
    Il s'agit d'une boîte perso

  6. #6
    Expert éminent
    Voici un exemple à copier dans ThisOutlookSession.
    cela ne marchera que si les MACRO sont bien activées, uniquement sur ce PC et donc ni sur le WEBMAIL ni sur un smartphone.

    cet exemple ne fonctionne que avec la fenêtre explorateur Outlook par defaut

    AAA est le nom de ton dossier et toto le mdp

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Option Explicit
     
    Public WithEvents actExpl As Outlook.Explorer
     
     
    Private Sub actExpl_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
        Dim pwd
        If StrComp(NewFolder, "AAA", vbTextCompare) = 0 Then
            pwd = InputBox("mdp?")
            If pwd <> "toto" Then Cancel = True
        End If
    End Sub
     
    Private Sub Application_Startup()
     
            Set actExpl = ActiveExplorer
     
    End Sub


    pour que la saisie du mdp ne soit pas visible :
    https://www.developpez.net/forums/d3...form-inputbox/

  7. #7
    Nouveau Candidat au Club
    Merci beaucoup ! Je vais essayer ça !
    Juste une dernière précision, pour la ligne InputBox("mdp?") je laisse bien « mdp »?

    J'ai juste à changer les infos AAA et toto ?

###raw>template_hook.ano_emploi###