J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire cette
fonction.
Des suggestions??
Merci de votre aide
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? Merci de votre aide
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de news:
F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire cette
fonction.
Des suggestions??
Merci de votre aide
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? Merci de votre aide
claudy
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de news:
F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
claudy
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Re bonjour, en cherchant un peu...
Sub office_2000_uit()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
End Sub
Et pour rétablir:
Sub office_2000_aan()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = True
Next Ctrl
End Sub
Bonne journée
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a6bb$0$1136$ba620e4c@news.skynet.be...
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de
news: F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire
cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Papou
Bonjour Claudy
Tu va dans Workbook puis "sheet selection change" La tu n'a qu'a écrire par exemple si c'est la case A1 que tu veux interdire if cells(1,1) <>"" then cells(2,1).select Ma procédure est un peu plus complexe j'ai inséré un message box qui informe l'utilisateur que cette case est déja complété et que je le redirige vers la 1° case vide sous cette cellule. Évidemment tu peux utiliser cette procédure pour n'interdire que les cellules dans une collonne.
Bonne journée. En passant je ne peux pas bloqué la feuille au complet d'ou ma requête qui vise à annuler que la fonction supprimer
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Bonjour Claudy
Tu va dans Workbook puis "sheet selection change" La tu n'a qu'a écrire
par exemple si c'est la case A1 que tu veux interdire
if cells(1,1) <>"" then cells(2,1).select
Ma procédure est un peu plus complexe j'ai inséré un message box qui
informe l'utilisateur que cette case est déja complété et que je le redirige
vers la 1° case vide sous cette cellule. Évidemment tu peux utiliser cette
procédure pour n'interdire que les cellules dans une collonne.
Bonne journée.
En passant je ne peux pas bloqué la feuille au complet d'ou ma requête qui
vise à annuler que la fonction supprimer
Re bonjour, en cherchant un peu...
Sub office_2000_uit()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
End Sub
Et pour rétablir:
Sub office_2000_aan()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = True
Next Ctrl
End Sub
Bonne journée
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a6bb$0$1136$ba620e4c@news.skynet.be...
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de
news: F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire
cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
Tu va dans Workbook puis "sheet selection change" La tu n'a qu'a écrire par exemple si c'est la case A1 que tu veux interdire if cells(1,1) <>"" then cells(2,1).select Ma procédure est un peu plus complexe j'ai inséré un message box qui informe l'utilisateur que cette case est déja complété et que je le redirige vers la 1° case vide sous cette cellule. Évidemment tu peux utiliser cette procédure pour n'interdire que les cellules dans une collonne.
Bonne journée. En passant je ne peux pas bloqué la feuille au complet d'ou ma requête qui vise à annuler que la fonction supprimer
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Papou
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une suggestion sérieuse peut être
Des suggestions??
Protéger ta feuille
AV
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une
suggestion sérieuse peut être
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une suggestion sérieuse peut être
Des suggestions??
Protéger ta feuille
AV
Michel Pierron
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Bonjour claudy;
C'est sans compter avec le click droit ou Personnaliser / Rétablir !
MP
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549b29b$0$5519$ba620e4c@news.skynet.be...
Re bonjour, en cherchant un peu...
Sub office_2000_uit()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
End Sub
Et pour rétablir:
Sub office_2000_aan()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = True
Next Ctrl
End Sub
Bonne journée
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549a6bb$0$1136$ba620e4c@news.skynet.be...
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de
news: F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire
cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Gilles MOUGNOZ
Bonjour, Papou Il est vrai que, si la réponse d'AV n'est pas très développée, elle n'en est pas moins sérieuse. Va voir du côté du menu "Outils / Protection / Protéger la feuille...", tu devrais trouver des options intéressantes... -- Bonne continuation ------------------------------------------------------------------------------------------- "Papou" a écrit dans le message de news:
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une suggestion sérieuse peut être
Des suggestions??
Protéger ta feuille
AV
Bonjour, Papou
Il est vrai que, si la réponse d'AV n'est pas très développée, elle n'en est
pas moins sérieuse.
Va voir du côté du menu "Outils / Protection / Protéger la feuille...", tu
devrais trouver des options intéressantes...
--
Bonne continuation
-------------------------------------------------------------------------------------------
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de news:
E48D80B6-6821-45E7-9D92-C98F7CA0904E@microsoft.com...
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une
suggestion sérieuse peut être
Bonjour, Papou Il est vrai que, si la réponse d'AV n'est pas très développée, elle n'en est pas moins sérieuse. Va voir du côté du menu "Outils / Protection / Protéger la feuille...", tu devrais trouver des options intéressantes... -- Bonne continuation ------------------------------------------------------------------------------------------- "Papou" a écrit dans le message de news:
Très songé comme réponse ? Un gros merci. Maintenant qu'on a bien ri, une suggestion sérieuse peut être
Des suggestions??
Protéger ta feuille
AV
claudy
Ok, pour être complet: Sub Menu_Disable()
Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl Application.CommandBars.FindControl(ID:)2).Enabled = False Application.CommandBars.FindControl(ID:)3).Enabled = False Application.CommandBars.FindControl(ID:)4).Enabled = False 'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+ Claudy "Michel Pierron" a écrit dans le message de news: eZZr7ro$
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Ok, pour être complet:
Sub Menu_Disable()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
Application.CommandBars.FindControl(ID:)2).Enabled = False
Application.CommandBars.FindControl(ID:)3).Enabled = False
Application.CommandBars.FindControl(ID:)4).Enabled = False
'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+
Claudy
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
eZZr7ro$GHA.996@TK2MSFTNGP02.phx.gbl...
Bonjour claudy;
C'est sans compter avec le click droit ou Personnaliser / Rétablir !
MP
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549b29b$0$5519$ba620e4c@news.skynet.be...
Re bonjour, en cherchant un peu...
Sub office_2000_uit()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
End Sub
Et pour rétablir:
Sub office_2000_aan()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = True
Next Ctrl
End Sub
Bonne journée
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 4549a6bb$0$1136$ba620e4c@news.skynet.be...
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de
news: F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire
cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl Application.CommandBars.FindControl(ID:)2).Enabled = False Application.CommandBars.FindControl(ID:)3).Enabled = False Application.CommandBars.FindControl(ID:)4).Enabled = False 'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+ Claudy "Michel Pierron" a écrit dans le message de news: eZZr7ro$
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Papou
Merci Claudy pour la suggestion Malheureusement ça ne fonctionne pas peut être que je n'ai pas la bonne version ( Office 97 ). Mais je vais essayer de développer ton idée.
Pour la suggestion de bloquer la feuille ( qui vient d'autres réponses ) c'est bien évident que j'y ai pensé. Mais je ne peux utiliser cette option.
Merci encore
Ok, pour être complet: Sub Menu_Disable()
Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl Application.CommandBars.FindControl(ID:)2).Enabled = False Application.CommandBars.FindControl(ID:)3).Enabled = False Application.CommandBars.FindControl(ID:)4).Enabled = False 'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+ Claudy "Michel Pierron" a écrit dans le message de news: eZZr7ro$
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
Merci de votre aide
Merci Claudy pour la suggestion
Malheureusement ça ne fonctionne pas peut être que je n'ai pas la bonne
version ( Office 97 ). Mais je vais essayer de développer ton idée.
Pour la suggestion de bloquer la feuille ( qui vient d'autres réponses )
c'est bien évident que j'y ai pensé. Mais je ne peux utiliser cette option.
Merci encore
Ok, pour être complet:
Sub Menu_Disable()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
Application.CommandBars.FindControl(ID:)2).Enabled = False
Application.CommandBars.FindControl(ID:)3).Enabled = False
Application.CommandBars.FindControl(ID:)4).Enabled = False
'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+
Claudy
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
eZZr7ro$GHA.996@TK2MSFTNGP02.phx.gbl...
Bonjour claudy;
C'est sans compter avec le click droit ou Personnaliser / Rétablir !
MP
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 4549b29b$0$5519$ba620e4c@news.skynet.be...
Re bonjour, en cherchant un peu...
Sub office_2000_uit()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = False
Next Ctrl
End Sub
Et pour rétablir:
Sub office_2000_aan()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:G8)
Ctrl.Enabled = True
Next Ctrl
End Sub
Bonne journée
Claudy
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 4549a6bb$0$1136$ba620e4c@news.skynet.be...
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 4549a388$0$30037$ba620e4c@news.skynet.be...
"Papou" <Papou@discussions.microsoft.com> a écrit dans le message de
news: F5FD526A-7ACB-49BC-BB1B-4364A9E99D2D@microsoft.com...
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une
fois.
Bonjour, pourrais tu me dire comment tu fais?
Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça
fonctionne très bien mais voila que certaines personnes utilisent la
fonction
supprimer, décaler les cellules vers le haut. Je voudrais interdire
cette
fonction.
Des suggestions??
J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False
Mais assez bizzarement, ça ne marche pas chez moi!
A+
Merci Claudy pour la suggestion Malheureusement ça ne fonctionne pas peut être que je n'ai pas la bonne version ( Office 97 ). Mais je vais essayer de développer ton idée.
Pour la suggestion de bloquer la feuille ( qui vient d'autres réponses ) c'est bien évident que j'y ai pensé. Mais je ne peux utiliser cette option.
Merci encore
Ok, pour être complet: Sub Menu_Disable()
Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl Application.CommandBars.FindControl(ID:)2).Enabled = False Application.CommandBars.FindControl(ID:)3).Enabled = False Application.CommandBars.FindControl(ID:)4).Enabled = False 'Application.CommandBars.FindControl(ID:G8).Enabled = False
End Sub
A+ Claudy "Michel Pierron" a écrit dans le message de news: eZZr7ro$
Bonjour claudy; C'est sans compter avec le click droit ou Personnaliser / Rétablir ! MP
"claudy" a écrit dans le message de news: 4549b29b$0$5519$
Re bonjour, en cherchant un peu... Sub office_2000_uit() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = False Next Ctrl End Sub
Et pour rétablir: Sub office_2000_aan() Dim Ctrl As Office.CommandBarControl For Each Ctrl In Application.CommandBars.FindControls(ID:G8) Ctrl.Enabled = True Next Ctrl End Sub
Bonne journée Claudy
"claudy" a écrit dans le message de news: 4549a6bb$0$1136$
"claudy" a écrit dans le message de news: 4549a388$0$30037$
"Papou" a écrit dans le message de news:
Bonsoir a tous et toutes.
J'ai un classeur dans lequel on ne peut complêter une cellule qu'une fois.
Bonjour, pourrais tu me dire comment tu fais? Merci
Le but ? empêcher toute modification une fois la cellule complété. Ça fonctionne très bien mais voila que certaines personnes utilisent la fonction supprimer, décaler les cellules vers le haut. Je voudrais interdire cette fonction. Des suggestions?? J'avais pensé à ceci:
Application.CommandBars.FindControl(ID:G8).Enabled = False Mais assez bizzarement, ça ne marche pas chez moi! A+
