Compile error hidden module: Thisworkbook

[Mohamedazees]

Dear Sir,

I am Using Excel 2019 32 Bit version when I am running the below Code I got the error " Compile error in hidden module"
Since my VBA project is protected" I Need the resolution for this problem, Thanks is advance for your valuable Support.

The VBA code is: ( In Thisworkbook)

Private Sub Workbook_Open()
If IsEmpty(Sheet1.Range("XAM1").Value) = True Then
Range("XAM1").Value = Date

Dim Edate As Date
Edate = DateValue(Range("XAM1")) + 2
If Date > Edate Then
MsgBox " You Must Purchase to Reactivate the File.", vbExclamation, "Contact @ md71076@gmail.com or Dial +91 8015970306"
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
Application.Quit

Else
MsgBox " You Can Use this Trail Version for " & Edate - Date & "Day(s)", vbInformation, "Thanks for your Support"
End If

End Sub

 

[Zot]

I think you just missed the End If for this line
If IsEmpty(Sheet1.Range("XAM1").Value) = True Then

 

[Fluff]

I would also strongly recommend you get rid of this line

Application.Quit

People will not be happy if they have unsaved workbooks & your file kills Excel.

 

[Mohamedazees]

I think you just missed the End If for this line
If IsEmpty(Sheet1.Range("XAM1").Value) = True Then

As per your advice I made those necessary changes in my code but still i goat an error Type Mismatch

 

[Zot]

As per your advice I made those necessary changes in my code but still i goat an error Type Mismatch

I tried on my Excel 2016 and it works, somehow, for whatever reason

I believe the problem is because DateValue is expecting string format but your Range("XAM1") is a date format.
Syntax for DateValue
DateValue(Date as String) or DateValue(“August 10, 2022”)

Try remove DateValue to be just like
Edate = Range("XAM1") + 2

 

[Mohamedazees]

Thanks of Lot its working perfect now

 

[Mohamedazees]

I tried on my Excel 2016 and it works, somehow, for whatever reason

I believe the problem is because DateValue is expecting string format but your Range("XAM1") is a date format.
Syntax for DateValue
DateValue(Date as String) or DateValue(“August 10, 2022”)

Try remove DateValue to be just like
Edate = Range("XAM1") + 2

Thanks now it is working perfectly