;"
> Exit Sub
> ElseIf Right(Password, 2) = "^^" Or Right(Password, 2) = "++" Then
> Password = ""
> Exit Sub
> Else
> SendKeys Password & "~~" & "{ESC}"
> Application.VBE.CommandBars(1).FindControl(ID:=2578,
> recu
f vbProj.Protection = 1 Then
SendKeys "%{F11}", True
End If
'Reset Password
Password = ""
Application.ScreenUpdating = True
Set vbProj = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Description, 64
End Sub
Don Guillett
Microsoft Excel Developer
SalesAid Software
dguille...
Gtalk]
>
>
> -Original Message-
> From: excel-...@googlegroups.com [mailto:
> excel-...@googlegroups.com ]
> On Behalf Of Kiran Kancharla
> Sent: 06 September 2012 7:37
> To: excel-...@googlegroups.com
> Subject: Re: $$Excel-Macros$$ Excel macro to add VBA
September 2012 7:37
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Excel macro to add VBA password
4. vba protecion password
On 9/6/12, Rajan_Verma wrote:
> Where you want to apply Password.
>
> 1) File Open ?
> 2) Worksheet Password ?
> 3) Workbook Password ?
> 4) VB
Original Message-
> From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> On Behalf Of Kiran Kancharla
> Sent: 06 September 2012 12:08
> To: excel-macros@googlegroups.com
> Subject: Re: $$Excel-Macros$$ Excel macro to add VBA password
>
> Hi,
>
>
Kancharla
Sent: 06 September 2012 12:08
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Excel macro to add VBA password
Hi,
thanks a lot your quick responce..
thanks,u
kiran
On 9/6/12, NOORAIN ANSARI wrote:
> Kiran,
>
> Before run macro, Pls check on Tools-Reference-
hi noorain,
yes i want to protect VBA
Thanks,
kiran
On 9/6/12, NOORAIN ANSARI wrote:
> Means, You want to protect VBA Coding instead of Opening File.
> Kindly confirm.
>
> On Thu, Sep 6, 2012 at 6:32 PM, Kiran Kancharla
> wrote:
>
>> Hi,
>>
>> with the above macro I am able to add pasword to o
Hi,
with the above macro I am able to add pasword to open the file.
In my case i need a maco to add pssword for VBA, not for opening the file.
plase help...
On 9/6/12, SAGAR KASANGOTTUWAR wrote:
> *Thanks a lot Noorain Bhai*
>
> **
> Have you any programme for protecting the same files in that
*Thanks a lot Noorain Bhai*
**
Have you any programme for protecting the same files in that folder...?
Thanks & Regards,
SAGAR
On Thu, Sep 6, 2012 at 2:41 PM, NOORAIN ANSARI wrote:
> Dear Sagar,
>
> Please use it.
>
> Change Folder path as per your need.
>
> Sub Protect_filesofFolder()
>
> D
Dear Sagar,
Please use it.
Change Folder path as per your need.
Sub Protect_filesofFolder()
Dim MyFile As File
Dim MyFolder As Folder
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Set MyFolder = fso.GetFolder("D:\VBA_Class\Extra\")
For Each MyFile In MyF
Wht error is showing, Please send screenshot.
On Thu, Sep 6, 2012 at 1:49 PM, SAGAR KASANGOTTUWAR <
sagarkasangottu...@gmail.com> wrote:
> Dear Noorain,
>
> I have the same but it is not working.
>
> Thanks & Regards,
>
> KSAGAR
>
>
> On Thu, Sep 6, 2012 at 1:33 PM, NOORAIN ANSARI
> wrote:
>
>>
Dear Noorain,
I have the same but it is not working.
Thanks & Regards,
KSAGAR
On Thu, Sep 6, 2012 at 1:33 PM, NOORAIN ANSARI wrote:
> Dear Sagar,
>
> First of all you have add library in VBE Area
>
> Step:- Tools-Reference-Microsoft Scrinpting Runtime.
>
> Brother check once again, if does',t
Dear Sagar,
First of all you have add library in VBE Area
Step:- Tools-Reference-Microsoft Scrinpting Runtime.
Brother check once again, if does',t work revert me.
On Thu, Sep 6, 2012 at 1:22 PM, SAGAR KASANGOTTUWAR <
sagarkasangottu...@gmail.com> wrote:
> Dear Noorain,
>
> I am not able to ru
Dear Noorain,
I am not able to run the programme and showing compile error (Method or
data not found) after running.
Thanks & Regards,
KSAGAR
On Thu, Sep 6, 2012 at 12:07 PM, Kiran Kancharla wrote:
> Hi,
>
> thanks a lot your quick responce..
>
> thanks,
> kiran
>
> On 9/6/12, NOORAIN ANSARI
Hi,
thanks a lot your quick responce..
thanks,
kiran
On 9/6/12, NOORAIN ANSARI wrote:
> Kiran,
>
> Before run macro, Pls check on Tools-Reference-Microsoft Scripting Runtime
> under VBE editor.
>
> On Thu, Sep 6, 2012 at 11:03 AM, NOORAIN ANSARI
> wrote:
>
>> Dear Kiran,
>>
>> Please try it..
>
Kiran,
Before run macro, Pls check on Tools-Reference-Microsoft Scripting Runtime
under VBE editor.
On Thu, Sep 6, 2012 at 11:03 AM, NOORAIN ANSARI wrote:
> Dear Kiran,
>
> Please try it..
>
>
> Sub ProtectFiles()
>
> Dim MyFile As File
>
> Dim MyFolder As Folder
>
> Dim fso As Scripting.File
Dear Kiran,
Please try it..
Sub ProtectFiles()
Dim MyFile As File
Dim MyFolder As Folder
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Set MyFolder = fso.GetFolder(YourFolderPath)
For Each MyFile In MyFolder.Files
MyFile.Password="abc"
Next
End Su
Hi,
Need help to create a macro to add VBA password to all the excel files
in a folder.
I am using excel 2003.
Request you help me on this.
--
Thanks & Regards,
Kiran
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BAN
18 matches
Mail list logo
