Sécurité par mot de passe

[gildas27]

Bonjour je voudrais sécurisé les cellules avec un mot de passe pour qu'il n'y ai que moi qui puisse les modifier et juste activé les macro relatif a mes boutons et a celle de recherche mais quand je protège la feuille cela me bloque tout.

je vous joint le fichiers

 

[smotty]

Re : Sécurité par mot de passe

Bonsoir,

en début de code: ActiveWorkbook.Unprotect([Password])
En fin de code: ActiveWorkbook.protect([Password])


cdt

smotty

 

[gildas27]

Re : Sécurité par mot de passe

Bonsoir,

en début de code: ActiveWorkbook.Unprotect([Password])
En fin de code: ActiveWorkbook.protect([Password])


cdt

smotty

désolé mais je vois pas trop ou je peut le mettre?

 

[smotty]

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