Entrée de données sur cellules verrouillées

[degap05]

Bonjour,

J'utilise ce code pour entrer des données dans une feuille protégée, sur les cellules de 4 colonnes au moyen d'un USF.

Private Sub CommandButton1_Click()
nbr = CDbl(TextBox5)
For i = 1 To nbr
derlign = [A65000].End(xlUp).Row + 1
For j = 1 To 4
Cells(derlign, j) = IIf(j = 2, Controls("textbox" & j), Controls("textbox" & j))
If j = 4 Then Cells(derlign, j) = Cells(derlign, j) * 1
Next j
Next i
Unload Me
End Sub

Tout fonctionne bien si les cellules sont déverrouillées, mais j'aimerais que les cellules soient verouillées par défaut.
J'ai essayé plusieurs manières pour déprotéger la feuille au moment de l'exécution: (ActiveSheet.Unprotect, ou Sheets("Nom de la feuille").Unprotect), mais je n'arrive pas au résultat que je souhaité.

A l'aide.................................🙂

 

[Cousinhub]

Re : Entrée de données sur cellules verrouillées

Bonjour,
comment protèges-tu ta feuille?
A la main, via macro?
Avec mot de passe?

 

[degap05]

Re : Entrée de données sur cellules verrouillées

Bonjour bhbh, au départ ma feuille est protégée à la main sans mot de passe et au fur et à mesure des actions, via macro sans mot de passe. Si tout fonctionne correctement, je n'ai donc plus à la protéger à la main, puisque toutes les actions se terminent par la protection de la feuille active.

Exemple:
'...
Application.ScreenUpdating = False
Lig = Target.Row
If Target.Count > 1 Then Exit Sub
'déprotège toute les feuilles
ActiveSheet.Unprotect
Sheets("W").Unprotect
Sheets("X").Unprotect
Sheets("Y").Unprotect
Sheets("Z").Unprotect
If Target.Value = "" Then GoTo suite
'...
Et reprotéger a la fin :
Code:
'...
Application.ScreenUpdating = True
Sheets("W").Protect
Sheets("X").Protect
Sheets("Y").Protect
Sheets("Z").Protect
ActiveSheet.Protect
End Sub

Merci🙂