compile error wrong number of arguments or invalid property assignment.

[countryfan_nt]

Hello friends, hope all is well!

Please help me; I keep getting the error:

compile error wrong number of arguments or invalid property assignment.
the word Kill is highlighted in yellow.

thank you very much in advance!

Private Sub Workbook_Open()
 Dim sht As Object
   
 Dim Edate As Date
 Edate = Format("" & Sheets("Introduction.").Range("h28").Value&, "DD/MM/YYYY") ' Replace this with the date you want
 If Date > Edate + 2 Then

Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False

End If

 

[mrhstn]

Do you actually want to kill, i.e. delete the workbook? If so you probably want to set the saved property to True before actioning file-icide.

 

[countryfan_nt]

yes I do want to kill the file (even from the recycle bin); can you please edit my code? thanks a lot!

 

[Fluff]

You cannot Kill thisworkbook, because it's open.

 

[mrhstn]

OK

Private Sub Workbook_Open()
Dim sht As Object
  
Dim Edate As Date
Edate = Format("" & Sheets("Introduction.").Range("h28").Value&, "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then


Application.DisplayAlerts = False
With ThisWorkbook
    .ChangeFileAccess xlReadOnly
    .Saved = True
    Kill .FullName
    .Close False
End With
End If
End Sub

Thisworkbook will be gone without a trace, when it opens (subject to your if condition)

 

[mrhstn]

You cannot Kill thisworkbook, because it's open.

I initially thought that, so tested it. Seems you can

 

[Fluff]

@mrhstn
I see what you mean, it does work.

 

[countryfan_nt]

very cool! thank you very much!

 

[countryfan_nt]

May I ask for one more request, please.

I want to place a time limit instead of date limit. i.e. can you please help me edit the below line in, and give the user a 4 hour limit instead?

Thanks a lot again!

Dim Edate As Date
Edate = Format("" & Sheets("Introduction.").Range("h28").Value&, "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then