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 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
