Could you please attach the file or highlight which line you are
facing the error.
On May 6, 11:33 am, "Kabir....:-)" <saroj.32...@gmail.com> wrote:
> 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 <samde...@gmail.com> 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" <kumar.bemlmum...@gmail.com> 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 <samde...@gmail.com> wrote:
> > > > With ThisWorkbook
> > > > .ChangeFileAccess xlReadOnly
> > > > Kill .FullName
> > > > .Close 0
> > > > End With
>
> > > > On May 4, 5:35 am, Bob <bobandrich...@comcast.net> 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 excel-macros@googlegroups.com
>
> > > > <><><><><><><><><><><><><><><><><><><><><><>
> > > > 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 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- 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
