1 Тема от Oki2

  • Oki2
  • Участник
  • Неактивен

Тема: VBS: блокировка ячеек Excel; список к ячейке

Добрый день уважаемые!
Подскажите пожалуйста как программно (vbs\vba):
- Заблокировать ячейку Excel (чтоб юзер ничего там поменять не мог)?
- Прикрутить выпадающий фиксированный список значений к ячейки?

Спасибо за любую помощь!

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: блокировка ячеек Excel; список к ячейке

-    Заблокировать ячейку Excel (чтоб юзер ничего там поменять не мог)?

+ открыть спойлер
Option Explicit

Dim objExcel

Set objExcel = WScript.CreateObject("Excel.Application")

With objExcel
    With .Workbooks.Add
        With .Worksheets.Item(1)
            With .Range("A1:D5")
                .Value = 1
                .Locked = True
            End With
            
            .Protect True
        End With
        
        '.SaveAs "C:\Sample.xls"
        '.Close
    End With
    
    .Visible = True
    
    'objExcel.Quit
End With

Set objExcel = Nothing

WScript.Quit 0

-    Прикрутить выпадающий фиксированный список значений к ячейки?

Это зависит от версии.

3 Ответ от Oki2

  • Oki2
  • Участник
  • Неактивен

Re: VBS: блокировка ячеек Excel; список к ячейке

Это зависит от версии.

Спасибо!

Сильно зависит? у меня 2013 Excel

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: блокировка ячеек Excel; список к ячейке

Сильно зависит? у меня 2013 Excel

Вроде как. Попробуйте посмотреть: vba excel dropdown list in cell - Поиск в Google.

5 Ответ от Oki2

  • Oki2
  • Участник
  • Неактивен

Re: VBS: блокировка ячеек Excel; список к ячейке

ок