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
 

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

Top