Disable Edit > Fill

  • Thread starter Thread starter TEAM
  • Start date Start date
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
 
commandbars("Worksheet menu
bar").Controls("Edit").controls("Fill").enabled=False

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


THANKS!!
 
Back
Top