protection par VBA

B

BobStriker

Guest

• 28 Octobre 2004

• #2

Bjr Philboy, Bjr au Forum,
je ne suis pas un pro ,mais à la lecture de ton code , tu demandes d'appliquer "enabled" à toute l'application ( for each in application ),donc ça se fait pour tout.
tu dois écrire un truc qui ne s'applique qu'au fichier ou dossier actif.
je pense.....
bon courage.

 

Vote positif 0 Vote négatif

E

evelynetfrancois

Guest

• 28 Octobre 2004

• #3

bonsoir philboy

Il faut peut etre refaire l'inverse dans

Private Sub workbook_close()

pour remettre Excel en "ordre"a sa sortie

a plus
EetF

 

Vote positif 0 Vote négatif

P

philboy

Guest

• 28 Octobre 2004

• #4

daccord evelynetfrancois, je vais essayer ta technique,on vera bien, je vous tiens o courant

 

Vote positif 0 Vote négatif

P

philboy

Guest

• 28 Octobre 2004

• #5

bon, super l'idee de evelynetfrancois marche tre bien pour completer mon code, si certain sont interesse : (desactivation de toutes les barres d'outil, menus et clic sroit) :

Private Sub workbook_Open()

Application.CommandBars(1).Enabled = False
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB

End Sub
--------------------------------

Private Sub workbook_close()
Application.Caption = "APPLICATION NEDAC 2004"
ActiveWindow.Caption = ""

Application.CommandBars(1).Enabled = True
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB

End Sub

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 28 Octobre 2004

• #6

bonsoir à tous
ATTENTION je viens plus par curiosité que par nécessité de tester le code de " philboy"
je n'ai effectivement plus de (barres d'outil, menus et clic droit) mais ce qui veux dire plus du tout
je pense qu'il faut utiliser ce genre de code avec prudence je vais donc maintenant tente de retrouver ma configuration initiale
si vous avez une methode simple et rapide je suis preneur
A+++
Jean Marie

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 28 Octobre 2004

• #7

bon c'est bon
merci Thierry@ pour ton appli "XLD_Utilitaire-CommandBars" qui m'a remis tout en ordre
A++++
Jean Marie

 

Vote positif 0 Vote négatif

C

ChristianS

Guest

• 29 Octobre 2004

• #8

Salut à tous,
Ne vaudrait-il pas mieux de mettre le code dans la procedure Activate du Workbook et son contraire dans DeActivate ?
De cette façon SEUL le fichier en question est affecté par la procédure.
Dites moi si je me trompe.
A+
ChS

 

Vote positif 0 Vote négatif

B

BobStriker

Guest

• 29 Octobre 2004

• #9

Bsoir Philboy,bonsoir au forum,
Philboy,même si mon intervention ne t'a pas aidé,un pti tour sur la charte du forum t'apprendra que tout intervenant peut être remercié,ça prend pas beaucoup de place,et ça ne coûte rien.
au plaisir sur ce forum qui doit rester tel que ses concepteurs l'ont mis en place.
bonsoir.

 

Vote positif 0 Vote négatif