Cellen niet verplaatsen - VBA

[Imod]

Hallo,

Ik heb een bestand met verschillende bladen die door anderen in gevuld moeten worden,
maar er mogen beslist geen cellen verplaatst worden - anders gaat het mis.
Invullen en kopieren moet wel kunnen.

Indien er verplaatst wordt dan een foutmelding - "niet verplaatsen"

Is hier een VBA code voor die ik in het blad kan zetten??

 

[Roncancio]

Application.CellDragAndDrop = False

Niet vergeten om bij het afsluiten Application.CellDragAndDrop op True te zetten!

Met vriendelijke groet,


Roncancio

 

[Imod]

Roncancio,

Ik ben niet zo bedreven in VBA,

Alt F11 en in dit scherm "Application.CellDragAndDrop = False" plaatsen??

"Niet vergeten om bij het afsluiten Application.CellDragAndDrop op True te zetten!" waar moet ik dit doen??

 

[Roncancio]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_Open()
Application.CellDragAndDrop = False
End Sub

Zet bovenstaande code in ThisWorkbook.
Bij het openen van het bestand wordt het verslepen uitgeschakeld en bij het sluiten van het bestand weer ingeschakeld.

Met vriendelijke groet,


Roncancio

 

[Imod]

Roncancio,

Dit werk prima,

Bedankt voor de moeite