sur un fichier je voudrai limiter l'accès a certaines commandes comme par
exemple dans insertion / la commande cellule ou édition/ supprimer que dois
je faire comme code VBA un delete mais bon????
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
PMO
Bonjour.
Une piste en utilisant les évènements Workbook_Activate et Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook '********** Private Sub Workbook_Activate() Call AccesBouton(False) End Sub
Private Sub Workbook_Deactivate() Call AccesBouton(True) End Sub
Private Sub AccesBouton(Bascule As Boolean) Dim C As CommandBarControl '---- Barre de menu ---- Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition") C.Controls(11).Enabled = Bascule Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion") C.Controls(1).Enabled = Bascule '---- Menu contextuel des cellules, des lignes, des colonnes ---- With Application.CommandBars("Cell") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Row") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Column") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With End Sub '**********
Cordialement.
-- PMO Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par exemple dans insertion / la commande cellule ou édition/ supprimer que dois je faire comme code VBA un delete mais bon????
merci de votre aide
manu
Bonjour.
Une piste en utilisant les évènements Workbook_Activate et
Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS
QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook
'**********
Private Sub Workbook_Activate()
Call AccesBouton(False)
End Sub
Private Sub Workbook_Deactivate()
Call AccesBouton(True)
End Sub
Private Sub AccesBouton(Bascule As Boolean)
Dim C As CommandBarControl
'---- Barre de menu ----
Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition")
C.Controls(11).Enabled = Bascule
Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion")
C.Controls(1).Enabled = Bascule
'---- Menu contextuel des cellules, des lignes, des colonnes ----
With Application.CommandBars("Cell")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
With Application.CommandBars("Row")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
With Application.CommandBars("Column")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par
exemple dans insertion / la commande cellule ou édition/ supprimer que dois
je faire comme code VBA un delete mais bon????
Une piste en utilisant les évènements Workbook_Activate et Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook '********** Private Sub Workbook_Activate() Call AccesBouton(False) End Sub
Private Sub Workbook_Deactivate() Call AccesBouton(True) End Sub
Private Sub AccesBouton(Bascule As Boolean) Dim C As CommandBarControl '---- Barre de menu ---- Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition") C.Controls(11).Enabled = Bascule Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion") C.Controls(1).Enabled = Bascule '---- Menu contextuel des cellules, des lignes, des colonnes ---- With Application.CommandBars("Cell") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Row") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Column") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With End Sub '**********
Cordialement.
-- PMO Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par exemple dans insertion / la commande cellule ou édition/ supprimer que dois je faire comme code VBA un delete mais bon????
merci de votre aide
manu
manu51
merci PMO
Bonjour.
Une piste en utilisant les évènements Workbook_Activate et Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook '********** Private Sub Workbook_Activate() Call AccesBouton(False) End Sub
Private Sub Workbook_Deactivate() Call AccesBouton(True) End Sub
Private Sub AccesBouton(Bascule As Boolean) Dim C As CommandBarControl '---- Barre de menu ---- Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition") C.Controls(11).Enabled = Bascule Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion") C.Controls(1).Enabled = Bascule '---- Menu contextuel des cellules, des lignes, des colonnes ---- With Application.CommandBars("Cell") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Row") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Column") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With End Sub '**********
Cordialement.
-- PMO Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par exemple dans insertion / la commande cellule ou édition/ supprimer que dois je faire comme code VBA un delete mais bon????
merci de votre aide
manu
merci PMO
Bonjour.
Une piste en utilisant les évènements Workbook_Activate et
Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS
QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook
'**********
Private Sub Workbook_Activate()
Call AccesBouton(False)
End Sub
Private Sub Workbook_Deactivate()
Call AccesBouton(True)
End Sub
Private Sub AccesBouton(Bascule As Boolean)
Dim C As CommandBarControl
'---- Barre de menu ----
Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition")
C.Controls(11).Enabled = Bascule
Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion")
C.Controls(1).Enabled = Bascule
'---- Menu contextuel des cellules, des lignes, des colonnes ----
With Application.CommandBars("Cell")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
With Application.CommandBars("Row")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
With Application.CommandBars("Column")
.Controls(5).Enabled = Bascule
.Controls(6).Enabled = Bascule
End With
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par
exemple dans insertion / la commande cellule ou édition/ supprimer que dois
je faire comme code VBA un delete mais bon????
Une piste en utilisant les évènements Workbook_Activate et Workbook_Deactivate.
FAITES BIEN ATTENTION A REACTIVER LES BOUTONS QUE VOUS DESACTIVEZ
Copiez le code suivant dans ThisWorbook '********** Private Sub Workbook_Activate() Call AccesBouton(False) End Sub
Private Sub Workbook_Deactivate() Call AccesBouton(True) End Sub
Private Sub AccesBouton(Bascule As Boolean) Dim C As CommandBarControl '---- Barre de menu ---- Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Edition") C.Controls(11).Enabled = Bascule Set C = Application.CommandBars("Worksheet Menu Bar").Controls("Insertion") C.Controls(1).Enabled = Bascule '---- Menu contextuel des cellules, des lignes, des colonnes ---- With Application.CommandBars("Cell") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Row") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With With Application.CommandBars("Column") .Controls(5).Enabled = Bascule .Controls(6).Enabled = Bascule End With End Sub '**********
Cordialement.
-- PMO Patrick Morange
bonsoir à tous
sur un fichier je voudrai limiter l'accès a certaines commandes comme par exemple dans insertion / la commande cellule ou édition/ supprimer que dois je faire comme code VBA un delete mais bon????
