mot de passe à l'ouverture

[Dessimoz]

bonjour,

j'aimerais mettre un mot de passe à l'ouverture d'un classeur excel. donc à l'ouverture du classeur, une petite box avec le mot de passe à rentrer...si il n'y a pas de mot de passe..le classeur ne s'ouvre pas (ou se referme tout de suite)
seulement il ne se ferme pas si le mot de passe est incorrecte..voici mon code

Private Sub Workbook_Open()
MotPass = InputBox("Taper un mot de passe", "mot de passe")
If Sheets("données pour calcul").Range("H4") = "" Then
If MotPass = Sheets("données pour calcul").Range("H4") Then
Sheets("situation personnelle").Activate
Else
Cancel = True 'je pense que c'est là que çA fonctionne pas ...mais je sais pas quoi écrire d'autre
End If
Else
Sheets("situation personnelle").Activate
End If
End Sub

pouvez-vous me dire où ça ne vas pas ? merci d'avance

salutations

 

[Mytå]

Re : mot de passe à l'ouverture

Salut le forum

un lien qui devrait t'aider Dessimoz

https://www.excel-downloads.com/threads/mot-de-passe-a-louverture-dun-classeur.29033/

Mytå

 

[Catrice]

Re : mot de passe à l'ouverture

Bonsoir,

Pourquoi ne pas aller simplement dans :
Fichier/Enregistrer sous/Outils/Options Générales
et saisir un mot de passe protegeant l'acces au classeur ?

 

[Catrice]

Re : mot de passe à l'ouverture

Re,

Avec une macro : Private Sub Workbook_Open()
Il suffit d'ouvrir le fichier en maintenant la touche SHIFT appuyée ou en répondant "désactiver les macros" à l'ouverture pour acceder au fichier.

D'où une relative efficacité du mot de passe ;-)

 

[Dessimoz]

Re : mot de passe à l'ouverture

merci beaucoup pour vos réponses.

je vais essayer vos différentes méthodes et voir laquelle est le plus adaptée pour moi.

salut.