verrouller l enregistrementRésolu

Question

bonjour je developpe un outils sous excel2003 et je cherche a verrouiller l enregistrement a l aide d un mot de passe est ce que quelqu un a une idee a ce sujet!!!
merci d avance 

tom

tomy7 · Accepted Answer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Password = InputBox("Enter the password:", "Private access")If Password "niania" Then Cancel False _
Else cancel = true
msg = " You don't have the right!"
ans = MsgBox(msg, vbOK)
End Sub

voici la solution et je la dois a "patbou".

tomy7 · Answer

j ai trouve le code mais j ai un souci au niveau de la inputbox:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel =  True
Password = InputBox("Enter the password:", "Private access")If Password "niania" Then Cancel False

"  ici je ne sais pas comment ecrire If password = " quelque chose d autre" then 

msg  = " You don't have the right!"
ans = MsgBox(msg, vbOK)
End Sub

merci

cs_MPi · Answer

Tu pourrais simplifier un peu en utilisant <> au lieu de = Password = InputBox("Enter the password:", "Private access") If Password <> "niania" Then Cancel = true MsgBox(" You don't have the right!", vbOK) End If MPi² Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Verrouller l enregistrement

3 réponses

Votre réponse

Discussions similaires