Code ThisWorkbook

Bonjour,

Au secours, j'ai créé ce code dans ThisWorkbook

Sub Workbook_DeActivate()

Dim oCtrl As Office.CommandBarControl

For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

oCtrl.Enabled = False

Next oCtrl

For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

oCtrl.Enabled = False

Next oCtrl

Application.CellDragAndDrop = False

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

With Application

.CellDragAndDrop = False

.CutCopyMode = False 'Clear clipboard

End With

End Sub

Et depuis, je n'arrive pas a faire certaines manipulations de cellules quelque soit le fichier excel que j'ouvre. Comment supprimer cela dans mon ordi, je n'en veux plus svpppp, merci (je ne connais rien au code)

Bonjour ,

Relance ton code en passant a true les variables obj.ctrle

Enabled...

Bonjour,

Tu les supprimes !

Rétablis CellDragAndDrop à True (sinon tu peux aller recocher la case dans les options...)

Cordialement.

Bonjour et merci,

Je suis nouveau pour les codes;

Relance ou rétabli cela veut dire quoi? je repasse pas l'éditeur? apparemment, vos solutions sont différentes ou je comprends mal?

Un détail que j'ai oublié: j'ai supprimé le code mais cela est resté sans effet; pouvez vous me guider pas à pas svp?

Merci

j'ai supprimé le code mais cela est resté sans effet

C'est à dire ? Comment se traduit le "sans effet" ?

Ci-joint le fichier,

Si je veux modifier le contenu d'une cellule en cliquant bouton droit de la souris, le couper ou copier du menu contextuel est grisé

77bloquer.xlsm (7.73 Ko)

Salut,

Perso il est grisé que si l'option de modification n'est pas activée.

Cordialement,

A l'ouverture, je n'ai plus la barre horizontale pour activer ou opas

Pas pour moi !


Vérifie tes Paramètres de macro !

Pour info (c'est pour Excel 2013 mais il me semble que l'architecture du logiciel est similaire avec celle de 2010) : https://support.office.com/fr-fr/article/Qu-est-ce-que-le-mode-prot%C3%A9g%C3%A9-d6f09ac7-e6b9-4495-8e43-2bbcdbcb6653

A tester les différentes options.

Cordialement,

Bonjour,

J'ai remplacé False par True ; cela semble régler le problème!

Merciiiii

PIERRO1234 a écrit :

Bonjour,

J'ai remplacé False par True ; cela semble régler le problème!

Merciiiii

Bonsoir,

c'est bien ce que j'avais dis dés le premier message..

Bonjour Pierre et merci,

Mais je ne comprenais pas "Relance ton code en passant a true les variables obj.ctrle" car je suis novice,

Merci pour l'aide

Rechercher des sujets similaires à "code thisworkbook"