HI PAUL
THANKS FOR YOUR QUICK REPLY
I DON'T WANT THE FILE TO BE SAVED (THATS NOT WITHIN SCOPE WHETHER USER SAVES
IT OR NOT)WITH MACROS
IN ORDER FOR THE EVENTS IN THE .XLSX TO BE RUN,IAM KEEPING THE MACROS IN
"This Workbook" OF THE .XLSX FILE
MACROS WONT GET COPIED WHEN PROTECTION IS ON (.XLSB IS PASSWORD PROTECTED).I
NEED TO UNLOCK THE XLSB COPY MACROS INTO .XLSX AND AGAIN LOCK THE .XLSB
AND ONE MORE THING THIS OPERATION OF COPYING IS TO BE DONE FROM THE LOCKED
XLSB.
AM KEEPING THE CODE IN Workbook_Open AND UPON CLICK OF THE USER COPYING HAS
TO BE DONE.
BUT HOW CAN I COPY FROM LOCKED XLSB FILE INTO XLSX FILE
=================================================================
On Mon, Oct 4, 2010 at 3:10 PM, sudheer <sudheer1...@gmail.com> wrote:
> Hi
>
> IAM IN URGENT NEED OF AN ADVISE THAT COULD HELP ME GET OUT OF THIS
> PROBLEM
> THE STEP BY STEP THAT NEEDS TO BE DONE ARE GIVEN .ONLY THING IS HOW TO
> DO IT??
>
> 1..Running a particular code from .XLSB file
> 2..This .XLSB file is locked and i know the password also.
> 3..Code which is in this locked .XLSB file runs satisfactorily.
> 4.. When it comes to copying some modules from this locked .XLSB to
> opened XLSX file.IT FAILS
>
> my understainding
>
> Since some code is running from locked .XLSB file, this copying code
> also needs to be run
> BUT THIS IS NOT HAPPENING WHY??
>
> I TRIED ALL THESE
>
> --------------------------------------------------------------------------------------------------------
>
> Dim argPWD As String
> argPWD = "tcs"
> Dim VBP As VBProject
> Set VBP = ActiveWorkbook.VBProject
> MsgBox CStr(VBP.Protection)
> If VBP.Protection <> vbext_pp_locked Then
> Exit Sub
> Else
> Application.ScreenUpdating = True
> SendKeys "%{F11}%TE" & argPWD & "~~%{F11}", True
> End If
>
>
>
> ---------------------------------------------------------------------------------------------------------------
>
> With Application.VBE.ActiveVBProject
>
> .SendKeys "lolla"
> .SendKeys "{ENTER}" '
>
>
> .VBE.CommandBars("Menu Bar").Controls("Tools") _
> .Controls("VBAProject Properties...").Execute
> .SendKeys "^{TAB}"
> .SendKeys "{TAB}" & "lolla"
> .SendKeys "{TAB}" & "lolla"
> .SendKeys "{TAB}"
> .SendKeys "{ENTER}"
>
> End With
>
>
> ----------------------------------------------------------------------------------------------------------------
>
> NONE OF THESE ARE WORKING
>
> PLEASE COMMUNITY MATES HELP ME
>
> --
>
> ----------------------------------------------------------------------------------
> 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/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
--
sudheer.L
--
----------------------------------------------------------------------------------
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/pages/discussexcelcom/160307843985936?v=wall&ref=ts
