Exel

[MAcK]

Я только начал работать с ексель и есть необходимость выделять ячейки жирными линиями и тому п. подскажите как это сделать программно

[pashulka]

With ThisWorkbook.Worksheets(1)
     'Укажите нужную рабочую книгу и лист
     If Not .ProtectContents Then
        With .Range("B2").Borders
             .Item(xlEdgeLeft).Weight = xlMedium
             .Item(xlEdgeTop).Weight = xlMedium
             .Item(xlEdgeBottom).Weight = xlMedium
             .Item(xlEdgeRight).Weight = xlMedium
        End With
     Else
        MsgBox "Пожалуйста, снимите защиту листа", vbCritical, ""
        'Возможность изменения параметров форматирования
        'в защищённом рабочем листе вышеуказанным способом
        'появилась только в MS Excel XP
     End If
End With

P.S. Ответы на подобные вопросы можно получить, если использовать макрорекордер (Сервис-Макрос-Начать запись-…действия…-Остановить запись)