Re : Sécurité par mot de passe
bonsoir Gildas27,
Dans chaque procédure qui modifie les cellules.
voir un de vos procédures:
Sub Formeautomatique17_QuandClic()
'Sub Saisiemessage()
' Saisie du nom d'utilisateur
Dim réponse As String
activesheet.unprotect("MotDePass")
Ligne = ActiveCell.Row
réponse = InputBox("Nom de votre machine", "votre machine")
Range("m" & Ligne) = réponse
Range("k" & Ligne) = Date
Ligne = ActiveCell.Row
réponse = ""
Range("i" & Ligne) = réponse
activesheet.protect("MotDePass")
End Sub
Peut être utilisé sur Workbook ou worksheet.
Voir laide Excel très bien expliquée avec toutes les options possibles...
cdt
smotty