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