With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close 0
End With
On May 4, 5:35 am, Bob wrote:
> Can someone help with the code to delete a workbook if password is not
> entered within 3 tries. Thanks so much!
--
---
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 wrot
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")
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 wrote:
> Thanks for highlighting my mistake C.G.Kuma
Could you please attach the file or highlight which line you are
facing the error.
On May 6, 11:33 am, "Kabir:-)" 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 err
