Application VisualBasic Script

Sub RestrictPermission()
    Dim myPermission As Office.Permission, wb As Workbook
    Set myPermission = ThisWorkbook.Permission
    myPermission.Enabled = True
End Sub