Discussion :

[Gorgonzola89]

Bonjour,

Je m'en remet à vous pour m'apporter votre connaissance et votre aide
Depuis quelques jours, j'ouvre les dossiers sur mon système et ils s'affichent comme si j'ouvrais une page internet (avec barre d'adresse etc.), je veux accéder à l'option des dossiers pour faire réapparaître les fichiers cachés mais le menu Outils affiche trois options "synchroniser" mais plus d'option du dossier.

Comment faire pour réinitialiser le menu ?

Merci pour votre attention.

[l_autodidacte]

Salut;
Pour rétablir "Options des dossiers" dans le menu "Outils", il suffit de chercher la valeur suivante et la supprimer:

Code :

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

 HKU\S-1-5-21-1409082233-1343024091-854245398-1003\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions

Supprime "NoFolderOptions" et confirme la suppression.

[cs_ntd]

...
Valeur qui se trouve dans le Registre windows, accessible en faisant :
Démarrer=>Executer=>regedit.exe

[Gorgonzola89]

Lorsque j'essaie d'ouvrir le registre un message d'erreur s'affiche
"La modification du registre a été désactivée par votre administrateur".
Je ne peux donc pas accéder à ça.

[l_autodidacte]

Tout d'abord, merci à cs_ntd pour la précision qu'il a ajoutée et que j'ai oublié de mentionner.

Ensuite, pour réactiver Regedit.exe, copie le code suivant dans un éditeur de texte(Notepad ou Wordpad) et enregistre-le sous un nom d'extension .vbs puis double-clique dessus. Si un antivirus le détecte comme code suspect, ne t'en fais pas, il n'en est rien.

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
19
20
21
22
23
24
25
26
27
28
Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Const sValue = "DisableRegistryTools"
Dim Obj, sData,Msg

       sData = InputBox("Choisir une valeur :" & vbNewLine _
       & "0 pour activer le registre" & vbNewLine _
       & "1 pour désactiver le registre" & vbNewLine _
       & "Quel est votre choix ?",, 0)
 
  If sData <> "" And (sData <= 1 and sData>=0) Then
   Set Obj = WScript.CreateObject("WScript.Shell")
    Obj.RegWrite Key & sValue, sData, "REG_DWORD"
  Else MsgBox "Une erreur s'est produite suite à une" _
              & VbNewLine & "valeur entrée non valide. Recommencer" _
              & VbNewLine & "en mettant soit 0 soit 1.",VbCritical,"Erreur..."
        Wscript.Quit 
  End if
    If Err Then
     MsgBox Err.Description, vbOKOnly + vbCritical, "Erreur d'enregistrement","Reg Error"
    Else: 
      If sData="0" then
             Msg="La modification du registre est activée"
      ElseIf sData="1" then
             Msg="La modification du registre est désactivée"
      end if
          MsgBox Msg, vbInformation,"RegWrite"
    End If
    Set Obj = Nothing

Essaie ensuite de lancer Regedit et fais la manipulation décrite dans mon premier post.

[Gorgonzola89]

Tout d'abord, merci à cs_ntd pour la précision qu'il a ajoutée et que j'ai oublié de mentionner.

Ensuite, pour réactiver Regedit.exe, copie le code suivant dans un éditeur de texte(Notepad ou Wordpad) et enregistre-le sous un nom d'extension .vbs puis double-clique dessus. Si un antivirus le détecte comme code suspect, ne t'en fais pas, il n'en est rien.

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
19
20
21
22
23
24
25
26
27
28
Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Const sValue = "DisableRegistryTools"
Dim Obj, sData,Msg

       sData = InputBox("Choisir une valeur :" & vbNewLine _
       & "0 pour activer le registre" & vbNewLine _
       & "1 pour désactiver le registre" & vbNewLine _
       & "Quel est votre choix ?",, 0)
 
  If sData <> "" And (sData <= 1 and sData>=0) Then
   Set Obj = WScript.CreateObject("WScript.Shell")
    Obj.RegWrite Key & sValue, sData, "REG_DWORD"
  Else MsgBox "Une erreur s'est produite suite à une" _
              & VbNewLine & "valeur entrée non valide. Recommencer" _
              & VbNewLine & "en mettant soit 0 soit 1.",VbCritical,"Erreur..."
        Wscript.Quit 
  End if
    If Err Then
     MsgBox Err.Description, vbOKOnly + vbCritical, "Erreur d'enregistrement","Reg Error"
    Else: 
      If sData="0" then
             Msg="La modification du registre est activée"
      ElseIf sData="1" then
             Msg="La modification du registre est désactivée"
      end if
          MsgBox Msg, vbInformation,"RegWrite"
    End If
    Set Obj = Nothing

Essaie ensuite de lancer Regedit et fais la manipulation décrite dans mon premier post.

Ouf ! déjà j'avance. J'arrive à ouvrir le registre.
J'ai cherché la valeur indiquée et l'ai supprimée, mais rien n'y fait. L'option des dossiers est toujours désactivée...

[l_autodidacte]

Ouf ! déjà j'avance. J'arrive à ouvrir le registre.
J'ai cherché la valeur indiquée et l'ai supprimée, mais rien n'y fait. L'option des dossiers est toujours désactivée...

Pour résoudre ce problème, il y a un utilitaire que tu peux télécharger ICI et que tu décompactes dans un dossier de ton choix.
Dans la fenêtre principale(sous Menu démarrer)de cet utilitaire, cherche "Hide folder options" puis coche-la et appuie sur le bouton "Appliquer" ensuite décoche-la et appuie sur le bouton "Appliquer".
Par la suite, ouvre un dossier et dans le menu "Outils" tu verras apparaître "Options des dossiers..."

[Gorgonzola89]

Merci beaucoup à l'autodidacte. J'ai réqctivé l'option des dossiers mais visiblement le problème est plus profond... je dois avoir un virus. En tout cas merci beaucoup pour ta serviabilité.