Force Users to Enable Macros in a Workbook

[ChristianPetersen]

I am sorry, if this already has a thread. It is the first time I am logged on to MREXCEL.com. I have previously found MREXCEL VERY useful. Now to my question (sorry for my poor English):

I would like to "Force Users to Enable Macros in a Workbook". I have seen solutions to this problem on many sites, including this one. However, it seems to me that to work the user must accept macros, otherwise how can the macro run that forces the user to accept macros. Put differently, if the user just ignore 'accept macros' and save the file in the usual XLSX format, he or she can use the spreadsheet without macros?

The reason why, I need users to enable macros is quite simply that the spreadsheet is only valid for a specific period of time, and then closes down. However, if the user disregard macros they can continue using the spreadsheet for ever (which is a long time ).

I appreciate any help on the issue.

Best regards
Christian

 

[ChristianPetersen]

One final question. It works except for the fact that the user should be able to save the file as an XLSM file and rename it, but not save it as an XLSX file.
Your help is highly appreciated. I learn a little every time .

 

[Fluff]

In that case, how about

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If SaveAsUI Then
        Cancel = True
    
        txtFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As XLSM file")
         If txtFileName = "False" Then
             MsgBox "Action Cancelled", vbOKOnly
             Cancel = True
             Exit Sub
         End If
    
         Application.EnableEvents = False
         ThisWorkbook.SaveAs Filename:=txtFileName, FileFormat:=52
         Application.EnableEvents = True
        
     End If

End Sub

 

[ChristianPetersen]

I will give it a try. Once again thank you for helping me out. I am probably going to ask more questions in the future, so maybe we will 'meet' again .
Roger over and out...