Исходный текст

Option Explicit
Call SystemEraseAllObjects(ThisApplication.Desktop.Objects)


'==============================================================================
' Удалить все объекты рабочего стола, без проверки прав и вызова событий.
' Необходимы права администратора.
'==============================================================================
Sub EraseAllObjects(ObjCol)
        
        With ObjCol
        
        'Если нет информации об объектах, выйти из процедуры
            If .Count = 0 Then 
                    MsgBox "Объекты рабочего стола отсутствуют.", _
                            vbInformation, "Информация о текущей настройке"
                    Exit Sub
            End If
                
            'Удалить объекты
            .EraseAllSystem
            
        End With
End Sub 
'==============================================================================