Code Dans Feuilles

[Pat5]

Bonjour

J'ai un classeur avec 30 feuilles numérotées de 1 à 30.(mois de juin par exemple).

Lorsque la cellule A4 de la feuille du jour est différente de rien (entrée date), la feuille qui précède est automatiquement protégée.



Sub ProtectionFeuillesPrecedentes()

Application.ScreenUpdating = False

Dim WS As Worksheet

On Error Resume Next

For Each WS In Sheets
If WS.Range("A4").Value <> "" Then

WS.Previous.Protect Password:="1"
End If

Next WS
End Sub



Ca marche mais je voudrais que ce soit automatique et non pas appuyer sur un bouton.

Donc je mets ce code dans la feuille, et au changement d'état de la cellule A4, je protège

la feuille précédente. Mais comment faire pour ne pas me taper toutes les feuilles du mois.

Y at-il un moyen de copier le code dans toutes les feuilles à la fois.

Comme vous le devinez, j'ai 12 mois donc 366 feuilles.


Remerciements.

Pat5

 

[sousou]

Re : Code Dans Feuilles

Bonjour Pat
Tu peux t'inspirer de cela a mettre dans le code du classeur et non de la feuille
à chaque fois que modifies a4 tu protège la feuille précédente


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row = 4 And Target.Column = 1 Then
MsgBox ThisWorkbook.Sheets(Sh.Index - 1).Name
ThisWorkbook.Sheets(Sh.Index - 1).Protect Password:="1"
End If
End Sub

 

[kjin]

Re : Code Dans Feuilles

Bonjour pat5
Dans le module du classeur
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
For i = 2 To Sheets.Count
If Sheets(i).Range("A4") <> "" Then
Sheets(i - 1).Protect
End If
Next
End Sub

Par contre j'ai qq doute sur le fonctionnement de ta macro. Quelle version?
A+
kjin

 

[kjin]

Re : Code Dans Feuilles

Re, bonjour sousou,
Désolé sousou, je n'ai pas raffraichi l'écran!
A+
kjin

 

[Pat5]

Re : Code Dans Feuilles

Bonsoir sousou et kjin

Merçi les gars. C'est au top. Avec " On Error Resume Next " pour la feuille N°1.

kjin, ma macro marche mais protège toutes les feuilles dont la cellule A4 est <> "".

Grand merçi à vous deux. A la prochaine.

Pat5