Private sName$ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing Then sName = Application.GetOpenFilename If sName = "False" Then Cells(Target.Row, "B").Value = "" Cells(Target.Row, "C").Value = "" Else Cells(Target.Row, "B").Value = sName ' путь до файла Cells(Target...
Sub PasteArray() Dim arr(0 To 10, 1 To 1) 'Объявили массив любой размерности 'Заполнили массив значениями arr(0, 1) = "Начало" arr(10, 1) = "Конец" 'Вывели массив на лист! Range(Cells(1, 1), Cells(UBound(arr, 1) - LBound(arr, 1) + 1, UBound(arr, 2) - LBound(arr, 2) + 1)) = arr 'Вывели транспонированный (перевернутый) массив на лист! Range(Cells(1, 1), Cells(UBound(arr, 2) - LBound(arr, 2) + 1, UBound(arr, 1) - LBound(arr, 1) + 1)) = Application...
В ряде случаев нам необходимо в Эксель защитить ячейки от случайного изменения пользователем. Но при этом макрос VBA должен уметь работать с листом, не снимая пароля с него. Во первых это безопасность, в самом макросе не придется прописывать пароль от листа, а во вторых это необходимость, если макрос работает с защищенным листом, а в третьих это более правильная защита листа макросом. Не придётся при запуске макроса выполнять лишнии действия! За доступность макросу изменения защищенного листа отвечает параметр - UserInterfaceOnly...
