Bonjour,
J'ai créé un classeur qui à l'ouverture supprimme toutes les barres
d'outils, barre d'état et barre de formule, le problème c'est que les
personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en
appuyant sur Chift pour obtenir toutes les options et par la même occasion se
promener dans le code.
Ma question!
Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un
autre moyen pour que moi je puisse quand même entrer dans mon classeur pour
pouvoir apporter des modifications au code si il y a lieu.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour STEN83,
Essaie ceci :
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable Public BarreOutils As Boolean '-------------------------- Private Sub Workbook_Activate() If BarreOutils <> True Then Application.ScreenUpdating = False On Error Resume Next Workbook_Open End If End Sub '-------------------------- Private Sub Workbook_Open() BarreOutils = True 'CacherBarreOutils MsgBox "workbook_Open" End Sub '--------------------------
Salutations!
"STEN83" a écrit dans le message de news: Bonjour, J'ai créé un classeur qui à l'ouverture supprimme toutes les barres d'outils, barre d'état et barre de formule, le problème c'est que les personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en appuyant sur Chift pour obtenir toutes les options et par la même occasion se promener dans le code. Ma question! Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un autre moyen pour que moi je puisse quand même entrer dans mon classeur pour pouvoir apporter des modifications au code si il y a lieu.
Merci de vos suggetions!
Bonjour STEN83,
Essaie ceci :
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable
Public BarreOutils As Boolean
'--------------------------
Private Sub Workbook_Activate()
If BarreOutils <> True Then
Application.ScreenUpdating = False
On Error Resume Next
Workbook_Open
End If
End Sub
'--------------------------
Private Sub Workbook_Open()
BarreOutils = True
'CacherBarreOutils
MsgBox "workbook_Open"
End Sub
'--------------------------
Salutations!
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de
news:36E9AAD6-8860-4F40-B481-818E2FB08C35@microsoft.com...
Bonjour,
J'ai créé un classeur qui à l'ouverture supprimme toutes les barres
d'outils, barre d'état et barre de formule, le problème c'est que les
personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en
appuyant sur Chift pour obtenir toutes les options et par la même occasion se
promener dans le code.
Ma question!
Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un
autre moyen pour que moi je puisse quand même entrer dans mon classeur pour
pouvoir apporter des modifications au code si il y a lieu.
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable Public BarreOutils As Boolean '-------------------------- Private Sub Workbook_Activate() If BarreOutils <> True Then Application.ScreenUpdating = False On Error Resume Next Workbook_Open End If End Sub '-------------------------- Private Sub Workbook_Open() BarreOutils = True 'CacherBarreOutils MsgBox "workbook_Open" End Sub '--------------------------
Salutations!
"STEN83" a écrit dans le message de news: Bonjour, J'ai créé un classeur qui à l'ouverture supprimme toutes les barres d'outils, barre d'état et barre de formule, le problème c'est que les personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en appuyant sur Chift pour obtenir toutes les options et par la même occasion se promener dans le code. Ma question! Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un autre moyen pour que moi je puisse quand même entrer dans mon classeur pour pouvoir apporter des modifications au code si il y a lieu.
Merci de vos suggetions!
michdenis
Attention :
La procédure : CacherBarreOutils doit exister dans un module standard ... c'est elle qui module l'apparence de excel lorsque tu ouvres le fichier. De plus dans la procédure, elle est doit être activée.
Salutations!
Essaie ceci :
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable Public BarreOutils As Boolean '-------------------------- Private Sub Workbook_Activate() If BarreOutils <> True Then Application.ScreenUpdating = False On Error Resume Next Workbook_Open End If End Sub '-------------------------- Private Sub Workbook_Open() BarreOutils = True 'CacherBarreOutils MsgBox "workbook_Open" End Sub '--------------------------
Salutations!
"STEN83" a écrit dans le message de news: Bonjour, J'ai créé un classeur qui à l'ouverture supprimme toutes les barres d'outils, barre d'état et barre de formule, le problème c'est que les personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en appuyant sur Chift pour obtenir toutes les options et par la même occasion se promener dans le code. Ma question! Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un autre moyen pour que moi je puisse quand même entrer dans mon classeur pour pouvoir apporter des modifications au code si il y a lieu.
Merci de vos suggetions!
Attention :
La procédure : CacherBarreOutils doit exister dans un module standard ... c'est elle qui module l'apparence de excel lorsque
tu ouvres le fichier. De plus dans la procédure, elle est doit être activée.
Salutations!
Essaie ceci :
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable
Public BarreOutils As Boolean
'--------------------------
Private Sub Workbook_Activate()
If BarreOutils <> True Then
Application.ScreenUpdating = False
On Error Resume Next
Workbook_Open
End If
End Sub
'--------------------------
Private Sub Workbook_Open()
BarreOutils = True
'CacherBarreOutils
MsgBox "workbook_Open"
End Sub
'--------------------------
Salutations!
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de
news:36E9AAD6-8860-4F40-B481-818E2FB08C35@microsoft.com...
Bonjour,
J'ai créé un classeur qui à l'ouverture supprimme toutes les barres
d'outils, barre d'état et barre de formule, le problème c'est que les
personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en
appuyant sur Chift pour obtenir toutes les options et par la même occasion se
promener dans le code.
Ma question!
Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un
autre moyen pour que moi je puisse quand même entrer dans mon classeur pour
pouvoir apporter des modifications au code si il y a lieu.
La procédure : CacherBarreOutils doit exister dans un module standard ... c'est elle qui module l'apparence de excel lorsque tu ouvres le fichier. De plus dans la procédure, elle est doit être activée.
Salutations!
Essaie ceci :
Tout ce qui suit doit être mis dans le ThisWorkbook de ton classeur :
'Haut du ThisWorkbook :Déclaration de ta variable Public BarreOutils As Boolean '-------------------------- Private Sub Workbook_Activate() If BarreOutils <> True Then Application.ScreenUpdating = False On Error Resume Next Workbook_Open End If End Sub '-------------------------- Private Sub Workbook_Open() BarreOutils = True 'CacherBarreOutils MsgBox "workbook_Open" End Sub '--------------------------
Salutations!
"STEN83" a écrit dans le message de news: Bonjour, J'ai créé un classeur qui à l'ouverture supprimme toutes les barres d'outils, barre d'état et barre de formule, le problème c'est que les personnes qui connaissent Excel ont la possibilité d'ouvrir le classeur en appuyant sur Chift pour obtenir toutes les options et par la même occasion se promener dans le code. Ma question! Y a t-il un moyen de bloquer la commande du raccourci et aussi y a t-il un autre moyen pour que moi je puisse quand même entrer dans mon classeur pour pouvoir apporter des modifications au code si il y a lieu.
