Disable Edit > Fill

T

TEAM

I am using the current commands to prevent cut, copy, past, drag, drop,
etc. What command would I use to prevent the user from filling up,
down, right, etc??


Code:
--------------------
Private Sub Workbook_Activate()

Application.CellDragAndDrop = False
Application.CutCopyMode = False
Application.OnKey "^c", ("Dummy")
Application.OnKey "^v", ("Dummy")
Application.OnKey "+{DEL}", ("Dummy")
Application.OnKey "+{INSERT}", ("Dummy")
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
End Sub


Private Sub Workbook_Deactivate()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
Application.CellDragAndDrop = True
End Sub
 
B

Bob Umlas

commandbars("Worksheet menu
bar").Controls("Edit").controls("Fill").enabled=False

Bob Umlas
Excel MVP
 
T

TEAM

How would I put this in the Workbook open module? I tried as it is
written and I get an error...


THANKS!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Enable copying function 5
Disable Cut/Copy/Paste in Excel 2010 0
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) 4
Paste special function in macros fail if we disable application cellDrap Drop 2
Disable Cut and paste 2
RunWhen error 4
excel 2007 VBA disable CUT button 2
Prevent copy and paste in one column 3

Top