Taper le bon mot sinon fermer le classeur

[herve80]

Bonjour à tous,

Je remercie tous les bénévoles pour leur aide. Mais c'est pas fini ! 😱

Ceci est-il possible :

1 - A l'ouverture, affichage d'un message avec bouton ok (simple Msgbox donc)
2 - L'utilisateur doit taper un mot précis (ex: toto)
3 - Si pas ce mot, le classeur se ferme.

Si impossible, alors ceci :

Si dans les 5 secondes de l'ouverture du classeur, un mot précis (toto) n'est pas tapé en a1 de la feuille 1, alors ferme ce classeur.


Je serais très heureux d'avoir la solution !

Bonne journée

 

[mutzik]

Re : Taper le bon mot sinon fermer le classeur

bonjour hervé

le seul prob, si l'utilisateur n'actives pas les macros, il peut entrer sur ta feuille sans prob
la deuxieme solution est de:
- creer une page de démarrage
- cacher (xlsheetveryhidden) toutes les autres feuilles
- afficher un usf demandant un mot de passe
- afficher les feuilles si bon mot de passe sinon on ferme le classeur
- si le mot de passe est le bon, il faut à la fermeture du workbook :
* recacher toutes les feuilles
* afficher la feuille du mot de passe
* sauver le xls

tu vois donc que c'est pas évident, mais possible
Cependant, cette protection est 'crackable' par un bidouilleur averti

 

[Luki]

Re : Taper le bon mot sinon fermer le classeur

Bonjour hervé, salut Mutzik
Bertrand a raison, ça reste une protection légère....si les macros ne sont pas activées...

Mais pour l'exemple, tu peux essayer ceci, à coller dans le module "thisWorkbook"

Private Sub Workbook_Open()
Dim Reponse As String

Reponse = InputBox("Tapez le mot magique")
'attention à la casse!
If Reponse <> "TOTO" Then ThisWorkbook.Close

End Sub

bonne journée

 

[herve80]

Re : Taper le bon mot sinon fermer le classeur

Merci pour la rapidité de vos réponses, vous avez raison.

Je vais chercher autre chose.

 

[Temjeh]

Re : Taper le bon mot sinon fermer le classeur

Bonjour

J'avais déjà fait ceci avec pass 1234
Si ca peut te servir

A+

Temjeh
Comme Bertrand en supposant les macros activés