PB PROTECTION

[Paix]

Bonjour, j'ai un petit problème avec une macro

Je doit protéger des cellules contre la modification

et laisser d'autre pour la saisie, mais quand je lance ma macro

j'ai message d'erreur comme quoi mes cellules sont protégées

Comment utiliser ma macro avec des cellules protégés

Voi la le code

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 17/06/2004 par ..
'

Dim Msg, Style, Fichier, Reponse, MyString
Msg = 'Souhaitez-vous supprimer les lignes vides ?'
Style = vbYesNo + vbQuestion
Fichier = 'Fichier APPROBATION DE PRIX'
Reponse = MsgBox(Msg, Style, Fichier)
If Reponse = vbYes Then
Selection.AutoFilter Field:=6, Criteria1:='='
Selection.AutoFilter Field:=7, Criteria1:='='
Rows('17:1191').Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Else
End If
End Sub

 

[Marc_du_78]

Bonjour à toi et au Forum,

Ton prob vient que ta macro agit sur des cellules et/ou colonnes protégées.
Protège ta feuille par macro rotect et déprotège-la par Unprotect
bon courage

 

[Paix]

Marc_du_78 écrit:

Bonjour à toi et au Forum,

Ton prob vient que ta macro agit sur des cellules et/ou colonnes protégées.
Protège ta feuille par macro rotect et déprotège-la par Unprotect
bon courage

Se que je veux c'est que les utilisateurs puissent exécutes la macro avec le cellules protégées, le cellules doivent être ne protection

 

[Marc_du_78]

Re bonsoir Paix, le Forum,

Si tu insère le code DeProtectn en début de con code

Private Sub DeProtectn() 'déprotège la feuille sans mot de passe
Sheets('NomFeuille').Unprotect
End Sub

A insérer en fin de ton code

Private Sub Protectn() 'protège la feuille sans mot de passe
Sheets('NomFeuille').Protect
End Sub

Tu peut mettre que la ligne entre Sub et End Sub ou appeler au debut et à la fin par Call DeProtectn et Call Protectn

ainsi ta feuille est déprotégée pendant l'exécution et reprotégée à la fin.

Bon courage, car je ne pourrai t'aider davantage