Customize menu also has to be blocked.
Application.CommandBars.DisableCustomize=True
I can't help you with the other things.
--
Jim
"Varne" wrote in message
...
| Hi Jim
|
| You are right.
|
| But there is an other problem.
|
| I can turn cuts on through an other Excel Workbook Codes.
|
| Therefore I coded so that my book would only remain open only if it is the
| only book open.
|
| However this will restrict me in opening the book through an other book to
| stop the user disabling macros.
|
| Do you have an alternate solution to stop users opening an other workbook
| after opening my workbook?
|
| Also I encountered an other problem in disabling options.
|
| I am able to insert a second options command through customize menu.
| Customize menu also has to be blocked.
|
| Also please tell me what DD (in your first reply).
|
| Thanks and Regards
| M Varnendra
|
|
|
| "Jim Rech" wrote:
|
| 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
| | |
| | |
| | |
| |
| |
| |
|
|
|