Standard Tool Bar "Scissors" for cut ---remained

Not here. It is disabled for me with my code just as I posted it. ALL Cuts
are disabled regardless of the toolbar they appear on. I don't know why it
didn't work for you as long as you didn't modify the code. You should use
FindControls by the way because you cannot be sure you got them all
otherwise as users can add them manually to their toolbars.

Good luck.

--
Jim
"Varne" wrote in message
...
| Hi Jim
|
| Key Board Ctrl+c OK
| Key Board Ctrl+x OK
|
| Edit Menu Copy ---- remained
| Edit Menu Cut ---- remained
|
| Standard Tool Bar "two page" for copy--- remained
| Standard Tool Bar "Scissors" for cut ---remained
|
| Please Answer.
|
| Kind Regards
| M Varnendra
|
| "Jim Rech" wrote:
|
| The macro as written disables all Cuts as far as I know. What do you
mean
| by "icon bar"?
|
| --
| Jim
| "Varne" wrote in message
| ...
| | Sorry Jim
| |
| | Still the user can cut using the icon bar. Is it possible to stop
them? I
| | have to submit an application tomorrow. If you do not mind please
answer
| this
| | question.
| |
| | Thanks
| |
| | Kind Regards
| | M Varnendar
| |
| | "Varne" wrote:
| |
| | Hi
| |
| | Stopping Copying is also OK.
| |
| | If you do not mind I would like to receive professional service from
| you.
| | Could you please send a mail to the following address?
|
| |
| | Thanks again.
| |
| | Kind Regards
| | M Varnendra
| |
| | "Varne" wrote:
| |
| | Hi
| |
| | That is brilliant.
| |
| | I am trying on stoppying copying .
| |
| | Many thanks.
| | M Varnendra
| |
| | "Jim Rech" wrote:
| |
| | This is a way to disable Cuts (and Drag & Drop, which is the
same
| thing).
| | You would have to enhance it yourself for copying.
| |
| | Sub CutsOff()
| | AllowCuts False
| | End Sub
| |
| | Sub CutsOn()
| | AllowCuts True
| | End Sub
| |
| | Sub AllowCuts(bEnable As Boolean)
| | Dim oCtls As CommandBarControls, oCtl As CommandBarControl
| | Set oCtls = CommandBars.FindControls(ID:=21) ''Cut
| | If Not oCtls Is Nothing Then
| | For Each oCtl In oCtls
| | oCtl.Enabled = bEnable
| | Next
| | End If
| | ''Disable Tools, Options so D&D cannot be restored
| | Set oCtls = CommandBars.FindControls(ID:=522)
| | If Not oCtls Is Nothing Then
| | For Each oCtl In oCtls
| | oCtl.Enabled = bEnable
| | Next
| | End If
| | With Application
| | .CellDragAndDrop = bEnable
| | If bEnable Then
| | .OnKey "^x"
| | .OnKey "+{Del}"
| | Else
| | .OnKey "^x", ""
| | .OnKey "+{Del}", ""
| | End If
| | End With
| | End Sub
| |
| |
| | --
| | Jim
| | "Varne" wrote in message
| | ...
| | | Hi
| | |
| | | Is it possible to disable cut and copy functions in Excel
through
| VBA
| | codes?
| | |
| | | If yes could somebody show the codes please?
| | |
| | | Thank You.
| | |
| | | M Varnendra
| |
| |
| |
|
|
|