Discussion :

[26alain]

Bonjour à tous.
J'ai créer des fichiers Word en publipostage et, à chaque fois que je les ouvre, j'ai la mise en garde suivante :
Pièce jointe 291614
Les données viennent de fichiers Excell de mon ordinateur.

Cet avertissement me gène car j'ouvre beaucoup de ces fichiers (une centaine), plusieurs fois par mois, juste pour qu'il se mettent à jour et je les referme directement. Ils sont en partage via ma Dropbox : ce sont des fichiers d'évaluations de mes élèves pour les parents. Si je ne le fais pas, les parents ne voyent pas les évaluations à jour. Du coup, ça fait beaucoup de clic à faire alors que l'ouverture pourrait être rapide.

Est-il possible de paramétrer WORD pour plus qu'il m'avertisse ?

De même, peut-on faire en sorte qu'il ne demande plus si on veut enregistrer les modifications à la fermeture et qu'il le fasse automatiquement ?

Merci pour votre aide.
Alain M

[Souriane]

Bonjour,

Il faut passer par l'éditeur du Regsitre.

Si tu es à l'aise avec le registre, HKEY_CURRENT_USER\Software\Microsoft\Office\X.x\Word\Options

Clé à ajouter : « SQLSecurityCheck » = DWORD: 00000000

Si tu n'es pas à l'aise avec le registre, n'y touche surtout pas! Cette macro fera le même travail :

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
Sub ToggleSQLSecurity()
    Dim WSHShell, RegKey, rKeyWord, wVer
    Set WSHShell = CreateObject("WScript.Shell")
    wVer = Application.Version
    If wVer < 10 Then 'The security issue relates to
'Word versions greater than 10.0 (Word 2002)
        MsgBox "This macro is for Word 2002 and later!", vbOKOnly, "Wrong Word Version"
        Exit Sub
    End If
Start:
    RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & wVer & "\Word\Options\"
    On Error Resume Next 'The registry key does not exist
    rKeyWord = WSHShell.RegRead(RegKey & "SQLSecurityCheck")
    If rKeyWord = "" Then
        WSHShell.regwrite RegKey & "SQLSecurityCheck", 1, "REG_DWORD" 'set it at zero
        GoTo Start: 'and read it again
    End If
    If rKeyWord = 1 Then
        WSHShell.regwrite RegKey & "SQLSecurityCheck", 0, "REG_DWORD"
        MsgBox "SQL Security checking is switched off", vbInformation, "SQL Check"
 
    Else
        WSHShell.regwrite RegKey & "SQLSecurityCheck", 1, "REG_DWORD"
        MsgBox "SQL Security checking is switched on", vbInformation, "SQL Check"
    End If
End Sub

Bye!

Souriane

[26alain]

Je n'ai pas touché au registre, je ne sais même pas ce que c'est !
Par contre la Macro marche trés bien, c'est génial.
MERCI BEAUCOUP ! Je vais gagner un temps fou !