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