Userlnterf aceOnly - допустими стойности: True (листа е защитена от промени от страна на потребителя, но не и VBA подпрограма) и False (листа е защитена от промени както от страна на потребителя и VBA съчетания). Стойността по подразбиране е False
Следващият пример е настроен пълна защита активен лист от всички промени от страна на потребителя:
Active Sheet .Предпазвайте
Парола: = "Секретно".
Съдържание: = True, сценарии. = True
Освобождаването на работния лист.
Парола - низ се използва като парола за защита на листа
Следващият пример депротектира с активен лист:
ActiveSheet. Защитете Парола: = "Секретно"
Преди - Книга лист, който се поставя в предната част на
След - лист, след което добавя
В възможно едновременно да се използва само един от аргументите.
В следващия пример активната работна книга Sheet1, копирано ListZ същата работна книга:
Работни ( "Sheet1") .Soru след: = таблици ( "ListZ '')
Преместването на работен лист на друго място в работната книга.
Move (преди, след)
Преди - лист в работната книга, която е поставена в предната част на
След - лист, който след се добавя
В възможно едновременно да се използва само един от аргументите.
Пример Sheet1 активната работна книга движи преди ListZ същата работна книга:
Работни листове ( "Sheet1") .Позиционирайте Преди. = Таблици ( "Sheet3")
Превръща експресия на обект или стойност. Използва се, когато въвеждате формули и клетки на диалоговите прозорци.
Под DlyaEvaluate например две () "
Cell = InputBox ( "Въвеждане на името на клетка") "
Стойност = Оценка (клетки) .Value "
"Сключването на прочетените стойности в диалогов прозорец
MsgBox CStr (Value) "
"Формула диалогов прозорец Първоначално, например, грях (1) 2 '
Функция = InputBox ( "Enter функция") "
"Изчислителните стойности, въведени формула"
Стойност = Оценка (Функция)
"Посочете стойността намерена в диалоговия прозорец"
MsgBox CStr (Value) End Sub
Свързани статии