protection

[Anita]

Bonjour à tout le forum,
je tourne en rond sur un test.
Je cherche à obliger d'accepter le lancement des macros (sinon affichage feuille1, le reste caché)
si les macros sont acceptés, il y a un test sur le pc utilisé, s'il ne correspond pas alors message 'pas les droits' etfermeture du classeur. Ci après mes vaines élucubrations...

Private Sub Workbook_Open()
Application.ScreenUpdating = False
If Application.UserName = 'p Dupond' Then


For Each Sh In Sheets
Sh.Visible = True
Next Sh
Sheets(1).Visible = xlVeryHidden

Else
For Each Sh In Sheets
Sh.Visible = xlVeryHidden
Next Sh
Sheets(1).Visible = True
End If
End Sub

Ca ne fonctionne pas, hélas.

Un grand merci pour votre aide et agréable journée à vous

 

[Anita]

Oui en effet coco_lapin, j ai lu mais pas tout compris alors j ai imprimé le fil pour l'étudier à tête reposée....merci encore

 

[mutzik]

Re Anita, le fil

voili le fichier, tu verras c'est magique

dernière chose, tu mets un mot de passe sur ton code (que tu écris quelque part !!) quand ce sera la version finale

Sinon, en faisant ALT + F11, on peut accéder au VBA et lancer les macros manuellement (quand elles ne sont pas protégées par mdp) [file name=protection.zip size=10624]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/protection.zip[/file]

J'oubliais, merci à Creepy qui m'a donné cette solution il y a quelqes temps lol

Message édité par: mutzik, à: 09/01/2006 15:34

 

[Anita]

Le nominé est......................Mutzik :kiss:

Bravo, et avec classe!! ben moi, j'étais vraiment trop loin de la solution....
Vais étudier ca avec attention car y a des trucs dans la structure qui revienne.

Encore merci à toi et à Coco_lapin.