protection avec condition

[nijseri]

Bonjour j'ai mis des protection sur certaines cellules d'un document ja'imerias que ces cellules ne soit accessible que si une valuer est valable

Ex si V2= 1 autorisation sur les cellules spécifiées dans la sécurité de la pages sinon pages sécurisée complètement

Est-ce possible

Merci d'avance

Eric

 

[nijseri]

Re : protection avec condition

pour être plus complet

Pour chaque pages j'ai mis la protection et j'ai créer une plage qui peux être modifiées

Maintenant je voudrais que cette plage ne soit modifiables uniquement si la cellule V2=1 dans tous les autres cas elle doitvent être protégée également

4 positions sont possibles pour V2 (1,2,3,4)

Merci d'avance

Eric

 

[noviceAG]

Re : protection avec condition

Bonjour nijseri, le Forum,
J'ai ceci dans mes notes, si cela peut te servir :

Sur feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Call AppliFormules
End If
End Sub

Où :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Call AppliFormules
End If
End Sub

Sub AppliFormules()
Application.EnableEvents = False
Range("E" & Range("e65536").End(xlUp).Row + 1).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1],RC[3])"
Range("E3").Select
Calculate
Application.EnableEvents = True
End Sub

Bonne fin de journée

 

[nijseri]

Re : protection avec condition

merci novice AG
mais je vois où dans ce code il fait référence à la valeur de la cellule V2

Merci

Eric