Discussion :

[cobra38]

Bonjour à Tous ,

Un petit coup de main me serait très utile pour me permettre
de verrouiller l'écriture dans une série de cellules comportant entre autres des formules à protéger ou des données
j'ai vainement tenté cela mais malgré l'avertissement les cellules sont ecrites et je perds toute la dissuasion recherchée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim vligneder As Long
vligneder = [A65535].End(xlUp).Row
If Intersect(Target, Range("J7", "P" & vligneder)) Is Nothing Then Exit Sub
   For Each Cel In Intersect(Target, Range("J7", "P" & vligneder))
        MsgBox " On ne peut pas modifier le contenu !"
   Next Cel
End Sub

Il s'agit donc d'interdire l'ecriture dans une zone "J7" à "P.."

Merci par avance pour votre aide
A++

[Didier Gonard]

Bonjour,

La procédure normale est de dévérouiller en protection les cellules qu'on veut pouvoir écrire et de protéger la feuille ensuite...

il y a plein d'exemple sur le forum,

à voir...

cordialement,

didier

[cobra38]

Salut Ormonth

Justement mon problème est de passer par du VBA et non pas
un verrouillage classique de feuille car j'ai dans ma feuille , une ligne de filtre
et dès que je verouille mes cellules je perds la fonction de ma ligne de filtre
J'ai bien sûr recherché sur le forum le code et je n'ai pas trouver
mon bonheur

A++

[laetitia]

bonjour cobra38 Ormonth le forum tu peus tenter un truc dans ce genre ??

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("J7", "P" & [A65535].End(xlUp).Row)) Is Nothing Then
 Protect Password:="toto"
 Else
 Unprotect Password:="toto"
 End If
End Sub

[cobra38]

Bonjour à Toutes et Tous

laetitia
j'ai tenté effectivement et cela fonctionne
tant je ne veux pas ecrire dans la zone concernée
mais....
En fait, je passe par un USF qui me remplit les données dans la zone concernée et si je mets la protection là çà plante
il faut l'enlever avant mise à jour et ensuite la remettre ( cf Ormonth)
mais là où je ne pige pas c'est que je suis sous mon USF au moment de valider mes données alors que la protection elle s'effectue dans la feuille ( sheets )
comment déproteger lorsque je suis sous mon USF ?

A++

[laetitia]

re, il faut appliquer le meme principe. suppose un bouton pour valider dans ton user
un exemple simple 2 textbox copier dans la feuille

Code :

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

1
2
3
4
5
6
7
Private Sub valider_Click()
 Sheets(1).Unprotect Password:="toto"
 [j9] = TextBox1.Value
 [j10] = TextBox2.Value
 'ton code
 Sheets(1).Protect Password:="toto"
End Sub

[Didier Gonard]

Bonjour,

Euh Laetitia t'as donné la solution, il faut essayer de la décrypter et de l'adapter, il a 36 façons genre tu peux faire deux procédures et y faire appel quand il en est besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ProtectF()
Dim objFeuillP As Worksheet
 
Application.ScreenUpdating = False
For Each objFeuillP In ThisWorkbook.Worksheets
    objFeuillP.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=gvstrMotProtect
    objFeuillP.EnableSelection = xlNoSelection
Next
Application.ScreenUpdating = True
Set objFeuillP = Nothing
End Sub

Sub NoProtectF()
Dim objFeuillP As Worksheet

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = False
For Each objFeuillP In ThisWorkbook.Worksheets
    objFeuillP.Unprotect Password:=gvstrMotProtect
Next
Application.ScreenUpdating = True
Set objFeuillP = Nothing
End Sub

gvstrMotProtect est une variable contenant le mot de passe.

cordialement,

Didier