Sécurité par mot de passe

gildas27

XLDnaute Nouveau
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
 

Pièces jointes

  • No name_01.zip
    38 KB · Affichages: 27

smotty

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
11
Affichages
307

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
299 832
Messages
1 979 414
Membres
206 721
dernier inscrit
Sud catering