Customize menu also has to be blocked.
Application.CommandBars.DisableCustomize=True
I can't help you with the other things.
--
Jim
| 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
| > | > | 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
| > | > | > | > | 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?
| > | >
[email protected]
| > | > | >
| > | > | > 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
| > | > | > > > | > | > | > > > | 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
| > | > | > > >
| > | > | > > >
| > | > | > > >
| > | >
| > | >
| > | >
| >
| >
| >
