Bonjour,
J'ai plusieurs feuilles de calculs avec beaucoup de formules, je voudrai protéger les feuilles (je n'ai pas mis de mot de passe) mais lorsque je clique sur la case pour actualiser il ne se passe rien.
Je voudrai savoir s'il est possible dans la macro ci-dessous d'intéger une fonction qui enlève la protection (sans mot de passe) au début de la macro et qui la remette à la fin
Sub masquerlignes()
Dim cel As Range
Range("a36:a71").EntireRow.Hidden = False
For Each cel In Range("a36:a71")
If cel = "" Or cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End Sub
D'avance je vous remercie pour votre aide
Cdlt
Michel
J'ai plusieurs feuilles de calculs avec beaucoup de formules, je voudrai protéger les feuilles (je n'ai pas mis de mot de passe) mais lorsque je clique sur la case pour actualiser il ne se passe rien.
Je voudrai savoir s'il est possible dans la macro ci-dessous d'intéger une fonction qui enlève la protection (sans mot de passe) au début de la macro et qui la remette à la fin
Sub masquerlignes()
Dim cel As Range
Range("a36:a71").EntireRow.Hidden = False
For Each cel In Range("a36:a71")
If cel = "" Or cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End Sub
D'avance je vous remercie pour votre aide
Cdlt
Michel