Remove Permissions
Sub RemovePermissions() Dim myPermission As Office.Permission Set myPermission = ThisWorkbook.Permission myPermission.Enabled = False End Sub