Discussion :

[ZHNEE]

Bonjour

J'ai un classeur de 30 feuilles environ qui est mis à jour de temps en temps.
Je cherche un code VBA pour verrouiller l'ensemble des cellules non vides d'un classeur à sa fermeture.
Je ne sais pas très bien utiliser le VBA.

Merci pour votre aide précieuse

ZHNEE

[joe.levrai]

Bonjour,

coller ça dans le fenêtre de code de Thisworkbook, tester et dire si ok

- si une cellule est vide : se déverrouille
- sinon : se verrouille

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
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Dim Sh As Worksheet
    Dim Cell As Range
 
    For Each Sh In ThisWorkbook.Worksheets
        For Each Cell In Sh.UsedRange.Cells
            If Cell <> "" Then
 
                Cell.Locked = True
 
            Else
 
                Cell.Locked = False
 
            End If
        Next Cell
 
       'Sh.Protect "mot de passe"
    Next Sh
End Sub

Attention toutefois : le verrouillage d'une cellule n'est effectif QUE si la feuille est elle-même protégée
j'ai mis au cas où la ligne de code qui fait le verrouillage (il faut juste retirer l'apostrophe au début de la ligne)

[ZHNEE]

Bonsoir et merci pour votre message
J'ai un message erreur sur else Cell.Locked = False ,la macro ne s’exécute pas

[SfJ5Rpw8]

Bonjour,
Bonsoir et merci pour votre message d'erreur
J'ai un message erreur sur else Cell.Locked = False ,la macro ne s’exécute pas

Bonsoir ,

Et il dit quoi le message !!

[ZHNEE]

ERREUR 1004

[casefayere]

Bonsoir joe.levrai, ZHNEE
essayes comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
     Dim Sh As Worksheet
    Dim Cel As Range
 
   For Each Sh In ThisWorkbook.Worksheets
      For Each Cel In Sh.UsedRange.Cells
        If Cel <> "" And Cel.Locked = False Then Cel.Locked = True
      Next Cel
 
      'Sh.Protect "mot de passe"
    Next Sh

[ZHNEE]

Pas de message d'erreur , mais les cellules non verrouillées et non vides ne sont pas protégées.
Merci

[ZHNEE]

Bonjour

J'ai essayé le code mais j'ai un message d'erreur :
"1004" : Impossible de définir la propriété Locked de la classe Range

Merci encore de votre aide

[casefayere]

As-tu essayé ma proposition ?

[casefayere]

Bonjour,
Le problème vient que tu as des cellules fusionnées, enlève la fusion et retestes en tenant compte des remarques de bbil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   For Each Sh In ThisWorkbook.Worksheets
      Sh.Unprotect ("zz")'ici
      For Each Cel In Sh.UsedRange.Cells
        Cel.Locked = False
        If Cel <> "" Then Cel.Locked = True
      Next Cel
      Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'à toi de voir ce que tu protèges
      Sh.EnableSelection = xlUnlockedCells
 
      Sh.Protect "zz"
    Next Sh

comme le dit bbil, ajoutes

[ZHNEE]

Je ne peux pas enlever la fusion car mes calculs sont fait avec des valeurs dans des cellules fusionnée

[casefayere]

Normal, il faut protéger la feuille, joe.levrai te l'a suggéré

Code :

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

Sh.Protect "mot de passe"

[ZHNEE]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Sh As Worksheet
    Dim Cel As Range
 
   For Each Sh In ThisWorkbook.Worksheets
      For Each Cel In Sh.UsedRange.Cells
        If Cel <> "" And Cel.Locked = False Then Cel.Locked = True
      Next Cel
 
      Sh.Protect "ZZ"
    Next Sh

J'ai bien protégé en enlevant l'apostrophe et en mettant un mot de passe, mais les cellules déverrouillées différentes de vide ne se protègent pas automatiquement .

[casefayere]

Bonjour,
essayes cette procédure qui fonctionne chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Sh As Worksheet
Dim Cel As Range
 
   For Each Sh In ThisWorkbook.Worksheets
      For Each Cel In Sh.UsedRange.Cells
        Cel.Locked = False
        If Cel <> "" Then Cel.Locked = True
      Next Cel
      Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'à toi de voir ce que tu protège
      Sh.EnableSelection = xlUnlockedCells
 
      'Sh.Protect "mot de passe"
    Next Sh

[casefayere]

je suis étonné car je l'ai testé, donc là je ne vois plus ce que je peux faire

[ZHNEE]

Je vous joins mon fichier

[SfJ5Rpw8]

bonjour,

si ta feuille est protégée commence par la enlever la protection avant de verrouiller/dé-verrouiller tes cellules

[ZHNEE]

Toujours le même message après avoir ôté la protection de toutes les feuilles : Impossible de définir la propriété Locke de la classe Range .

[SfJ5Rpw8]

poste ton code ici ! svp .. soit le message d'erreur que tu poste est incomplet soit il y as une erreur bien visible dans ton code...

[ZHNEE]

J'ai mis le code de déprotection dans le module 1
voici en pj le fichier avec les feuilles déprotégées .

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
Dim Sh As Worksheet
Dim Cel As Range
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
   For Each Sh In ThisWorkbook.Worksheets
      For Each Cel In Sh.UsedRange.Cells
        Cel.Locked = False
        If Cel <> "" Then Cel.Locked = True
      Next Cel
      Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'à toi de voir ce que tu protège
      Sh.EnableSelection = xlUnlockedCells
 
      Sh.Protect "zz"
    Next Sh
 
End Sub