Disable Edit > Fill

[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

 

[TEAM]

Any ideas on this one

 

[Bob Umlas]

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

Bob Umlas
Excel MVP

 

[TEAM]

Any Ideas?