Dear Mr. Golden Lance,
When i m copying the code and executing in the new workbook, the following
error is showing. Kindly help me.
*Compile error : syntax error*
Regards,
Saroj.
On Thu, May 5, 2011 at 10:17 PM, GoldenLance <[email protected]> wrote:
> Thanks for highlighting my mistake C.G.Kumar. My apologies.
>
> Please find the entire code sought by reader.
>
> Sub TPWD()
>
> Static lngWrongPasswordCounter As Long
> Const strPWD = "Password"
> Dim strUserPassedPassword As String
>
> strUserPassedPassword = InputBox("Please enter password")
>
> If strUserPassedPassword = "" Then Exit Sub
> lngWrongPasswordCounter = lngWrongPasswordCounter + Abs(strPWD <>
> strUserPassedPassword)
> If lngWrongPasswordCounter >= 3 Then
> With ThisWorkbook
> .ChangeFileAccess xlReadOnly
> Kill .FullName
> .Close 0
> End With
> End If
>
> End Sub
>
> On May 5, 12:03 pm, "C.G.Kumar" <[email protected]> wrote:
> > Hi Sam,
> >
> > The reader has sought for code to delete file if Password doesn't matches
> in
> > three attempts. You have provided code to delete file without prompting
> for
> > password match by oversight.
> >
> > Hope you will be amend the same.
> >
> > Regards,
> >
> > C.G.Kumar
> >
> >
> >
> > On Thu, May 5, 2011 at 1:58 AM, GoldenLance <[email protected]> wrote:
> > > With ThisWorkbook
> > > .ChangeFileAccess xlReadOnly
> > > Kill .FullName
> > > .Close 0
> > > End With
> >
> > > On May 4, 5:35 am, Bob <[email protected]> wrote:
> > > > Can someone help with the code to delete a workbook if password is
> not
> > > > entered within 3 tries. Thanks so much!
> >
> > > --
> >
> > >
> ----------------------------------------------------------------------------------
> > > 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 [email protected]
> >
> > > <><><><><><><><><><><><><><><><><><><><><><>
> > > Like our page on facebook , Just follow below link
> > >http://www.facebook.com/discussexcel- 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 [email protected]
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
----------------------------------------------------------------------------------
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 [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
