Discussion :

[Philippe608]

Bonsoir,

Avec ce code j'ajoute une ligne ou je la supprime dans une feuille cela fonctionne trés bien , or ma feuille est protégée avec un mot de passe "bidon"
et la ça ne fonctionne plus, il faudrait modifier ces codes pour que lorsque je clique sur le bouton de commande la feuille se déprotége et quelle se protége de nouveau à la fin de la procédure.

Codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub InsèreCopieLigne()
  ActiveCell.EntireRow.Insert
  Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
  On Error Resume Next
  Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub SupprimerLigneActive()
    Rows(ActiveCell.Row).Delete Shift:=xlUp
End Sub

Merci.
Philippe

[patbou]

bonjour,

dans l aide tu as la methode unprotect

Unprotect, méthode
cette méthode supprime la protection d'une feuille ou d'un classeur. Cette méthode est sans effet si la feuille ou le classeur n'est pas protégé.

expression.Unprotect(Password)
expression Obligatoire. Expression qui renvoie un objet Chart, Workbook ou Worksheet.

Password Argument de type Variant facultatif. Chaîne qui contient le mot de passe qui respecte la casse à utiliser pour supprimer la protection de la feuille ou du classeur. Si la feuille ou le classeur n'est pas protégé par un mot de passe, cet argument est ignoré. Si vous omettez cet argument pour une feuille protégée par un mot de passe, vous serez invité à saisir ce dernier. Si vous omettez cet argument pour un classeur protégé par un mot de passe, la méthode échoue.

Notes
Si vous oubliez le mot de passe, vous ne pourrez pas supprimer la protection de la feuille ou du classeur. Pensez à conserver en lieu sûr une liste de vos mots de passe et les noms des documents correspondants.

Exemple
Cet exemple montre comment supprimer la protection du classeur actif.

ActiveWorkbook.Unprotect

[Philippe608]

Merci beaucoup, mais je suis novice en vba et je ne sais pas comment modifier les codes pour que cela soit précis et fiable.

Merci encore.
Philippe.

[da991319]

Sinon rajoute l'argument UserInterfaceOnly en debut de code

comme ca seulement ton code deprotegera la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub Test()
 
sheets(1).protect password:="motdepasse" UserInterFaceOnly:=true
 
code
 
end sub

[Philippe608]

Merci, je fais des essais et je dis le résultat.

[cb_60]

Bonsoir
peut être de cette façon

[Philippe608]

Cela semble être parfait, merci beaucoup, je commence à comprendre vba, le code est dans le classeur si j'ai bien compris, alors que le code pour l'insertion
est dans la feuille active.

Bravo et encore merci à vous tous.

Bonne soirée.
Philippe.