HI Kent
if u want to share ur workbook within the group write a mail to
excel-macros@googlegroups.com and attach ur wrkb
On Tue, Sep 20, 2011 at 6:34 PM, HarryP Knuckles <kent.bouc...@tbs-sct.gc.ca
> wrote:
> 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
>
--
*Regards*
* *
*Ashish Koul*
*http://www.excelvbamacros.com/*
P Before printing, think about the environment.
--
----------------------------------------------------------------------------------
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
