Good morning Ashish! Thanks you for taking the time to assist with my
issue – really appreciated!
All the workbooks are currently in *.xls format. My objective is to
create a template workbook that is will be used to CONTROL and change
(unprotect the workbook and worksheets) the *.xls files. I would like
to share with you a sample of the workbook but as I am kind of new at
posting messages and I can not see how to attach my workbook.
On Sep 19, 9:21 pm, ashish koul <koul.ash...@gmail.com> wrote:
> Hi Harry
>
> 1 are all the workbooks in xlsm or xls format is it possible for u to share
> a sample workbook
>
> On Tue, Sep 20, 2011 at 1:28 AM, HarryP Knuckles <kent.bouc...@tbs-sct.gc.ca
>
>
>
>
>
> > wrote:
> > Good afternoon,
>
> > I have 20,000 workbooks that are going to be returned to me shortly
> > and i need a template from which i can open the workbooks
> > (individually) and have a marco to perform three necessary functions
> > on all of these workbooks (each workbook will have a unique name). My
> > objective is to:
>
> > 1) Unprotect the workbooks.
> > 2) Unprotect the worksheets.
> > 3) Disable a macro that is in each of the original workbooks (20,000)
> > designed to prevent right click, cut, copy and paste.
>
> > I have included below the macro that is present in all 20,000
> > workbooks that i need to have diabled through the new template
> > workbook. Can you folks provide some guidance as to how i can
> > complete
> > this task using a template.
> > Your help is greatly appreciated!!!
>
> > ___________________________________________________________________________
> > ________________
>
> > Private Sub Workbook_Activate()
> > Application.CutCopyMode = False
> > Application.OnKey "^c", ""
> > Application.CellDragAndDrop = False
> > Application.CommandBars("Ply").Controls("View Code").Enabled = False
> > End Sub
>
> > Private Sub Workbook_Deactivate()
> > Application.CellDragAndDrop = True
> > Application.OnKey "^c"
> > Application.CutCopyMode = False
> > End Sub
>
> > Private Sub Workbook_WindowActivate(ByVal Wn As Window)
> > Application.CutCopyMode = False
> > Application.OnKey "^c", ""
> > Application.CellDragAndDrop = False
> > End Sub
>
> > Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
> > Application.CellDragAndDrop = True
> > Application.OnKey "^c"
> > Application.CutCopyMode = False
> > End Sub
>
> > Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
> > Target As Range, Cancel As Boolean)
> > Cancel = True
> > MsgBox "Right click menu deactivated." & vbCrLf & _
> > "Cannot copy or ''drag & drop''.", 16, "For this workbook:"
> > End Sub
>
> > Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
> > Target As Range)
> > Application.CutCopyMode = False
> > End Sub
>
> > Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> > Application.OnKey "^c", ""
> > Application.CellDragAndDrop = False
> > Application.CutCopyMode = False
> > End Sub
>
> > Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
> > Application.CutCopyMode = False
> > End Sub
>
> > --
>
> > ----------------------------------------------------------------------------------
> > Some important links for excel users:
> > 1. Follow us on TWITTER for tips tricks and links :
> >http://twitter.com/exceldailytip
> > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > To post to this group, send email to excel-macros@googlegroups.com
>
> > <><><><><><><><><><><><><><><><><><><><><><>
> > Like our page on facebook , Just follow below link
> >http://www.facebook.com/discussexcel
>
> --
> *Regards*
> * *
> *Ashish Koul*
> *http://www.excelvbamacros.com/*
>
> P Before printing, think about the environment.- Hide quoted text -
>
> - Show quoted text -
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
