Vba

[saw06]

Bonjour,

J'ai besoin d'une aide suite à une erreur de macro sur Excel 02
Sur une feuille excel, j'ai une macro qui consiste à cacher certaine ligne quand on appuie dessus. Elle fonctionnait très bien.

Ensuite, j'ai voulu proteger certaine cellule de ma feuille excel où j'avais des formules. Le verrouillage fonctionne par contre les macros ne marche plus et j'ai le signal d'erreur suivant:

Erreur d'execution "1004"
Impossible de définir la propriété Hidden de la classe Range

Je ne comprends pas cette erreur. J'aimerais faire cohabiter une macro et le verrouillage de cellule.

Merci d'avance à ceux qui peuvent m'aider.

Je vous met ci-dessous la macro effectuée: PLEASE...

Dim LastLig As Long, i As Long
'
' Macro1 Macro
' Macro enregistrée le ... par ...'


With Sheets("Plan d'actions")



LastLig = .Cells(.Rows.Count, "J").End(xlUp).Row
For i = 5 To LastLig
If .Range("J" & i).Text <> "OUI" Then .Rows(i).Hidden = True
Next i

End With

End Sub

J'espére que quelqu'un aura la solution.

Merci beaucoup à tout le monde.

 

[Pierrot93]

Re : Vba

Bonjour,
pour ce faire il faut que la protection soit effectuée par le code en utilisant l'argument"userinterfaceonly", code ci-dessous à placer dans le module de "thisworkbook", se déclenche à l'ouverture du classeur :

Private Sub Workbook_Open()
Sheets("Feuil1").Protect "toto", userinterfaceonly:=True
End Sub

bon après midi
@+

 

[saw06]

Re : Vba

Merci pour votre réponse!

Je n'arrive pas à savoir où placer votre formule dans le module "thisworkbook" qui se décline de la façon suivante:

Private Sub Workbook_Open()
Sheets("Accueil").Select
Range("A1").Select

End Sub

Pouvez-vous me donner plus d'informations sur la manière de procéder.

Merci

 

[Pierrot93]

Re : Vba

Bonjour,

essaye ainsi :

Private Sub Workbook_Open()
Sheets("NomFeuille").Protect "toto", userinterfaceonly:=True
Sheets("Accueil").Select
Range("A1").Select
End Sub

bonne journée
@+