Force a user to enable macros in Powerpoint? Hide sheets until the "enable" button is clicked

I am in need of a technique to ensure the user has enabled macros. Possibly, a particular method that could hide all slides except a "welcome" sheet which tells the user to enable macros, and is enforced every time the workbook is saved. I do have code, but it's for Excel. Is there any way to do this in Powerpoint?

Code:

---

Option Explicit

 Const WelcomePage = "Macros"

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Turn off events to prevent unwanted loops
 Application.EnableEvents = False

 'Evaluate if workbook is saved and emulate default propmts
 With ThisWorkbook
 If Not .Saved Then
 Select Case MsgBox("Do you want to save the changes you made to '" & .Name & "'?", _
 vbYesNoCancel + vbExclamation)
 Case Is = vbYes
 'Call customized save routine
 Call CustomSave
 Case Is = vbNo
 'Do not save
 Case Is = vbCancel
 'Set up procedure to cancel close
 Cancel = True
 End Select
 End If

 'If Cancel was clicked, turn events back on and cancel close,
 'otherwise close the workbook without saving further changes
 If Not Cancel = True Then
 .Saved = True
 Application.EnableEvents = True
 .Close savechanges:=False
 Else
 Application.EnableEvents = True
 End If
 End With
 End Sub

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 'Turn off events to prevent unwanted loops
 Application.EnableEvents = False

 'Call customized save routine and set workbook's saved property to true
 '(To cancel regular saving)
 Call CustomSave(SaveAsUI)
 Cancel = True

 'Turn events back on an set saved property to true
 Application.EnableEvents = True
 ThisWorkbook.Saved = True
 End Sub

 Private Sub Workbook_Open()
 'Unhide all worksheets
 Application.ScreenUpdating = False
 Call ShowAllSheets
 Application.ScreenUpdating = True
 End Sub

 Private Sub CustomSave(Optional SaveAs As Boolean)
 Dim ws As Worksheet, aWs As Worksheet, newFname As String
 'Turn off screen flashing
 Application.ScreenUpdating = False

 'Record active worksheet
 Set aWs = ActiveSheet

 'Hide all sheets
 Call HideAllSheets

 'Save workbook directly or prompt for saveas filename
 If SaveAs = True Then
 newFname = Application.GetSaveAsFilename( _
 fileFilter:="Excel Files (*.xls), *.xls")
 If Not newFname = "False" Then ThisWorkbook.SaveAs newFname
 Else
 ThisWorkbook.Save
 End If

 'Restore file to where user was
 Call ShowAllSheets
 aWs.Activate

 'Restore screen updates
 Application.ScreenUpdating = True
 End Sub

 Private Sub HideAllSheets()
 'Hide all worksheets except the macro welcome page
 Dim ws As Worksheet

 Worksheets(WelcomePage).Visible = xlSheetVisible

 For Each ws In ThisWorkbook.Worksheets
 If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVeryHidden
 Next ws

 Worksheets(WelcomePage).Activate
 End Sub

 Private Sub ShowAllSheets()
 'Show all worksheets except the macro welcome page

 Dim ws As Worksheet

 For Each ws In ThisWorkbook.Worksheets
 If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVisible
 Next ws

 Worksheets(WelcomePage).Visible = xlSheetVeryHidden
 End Sub

---