[CyberDaemon]

Установи защиту листа.
При попытке отредактировать/скопировать ячейку получат окошко "ячейка защищена от изменений".

[vai1019]

конечно же можно и так.
но первоначальные данные должны вводить сотрудники второго отдела, а сотрудники третьего отдела получают только результат

[a_axe]

vai1019
Выделяем нужные ячейки
Формат ячейки=>Защита. Галку защищаемая ячейка убираем, галку скрыть формулы ставим. Ставим защиту листа, выставляя все галки (разрешаем изменения по макс.)
Формулы при этом копировать не получится, на листе их не видно.


vai1019: "внаглую копируют формулы" - ??? ничего вроде криминального...

[CyberDaemon]

vai1019
Нужно сразу ставить полные условия задачи! Штатные телепаты нашего форума давно уже заработали мозговую эмболию...
a_axe
+1

[Greyman]

CyberDaemon

a_axe +1

Дык благодарности жесть на это...

[WChek]

Неожиданно перестали открываться книги Excell с кодом на VBA.
Сообщение: "В результате сбоя компонент перестал работать правильно.
Восстановить его?".
В пояснении вижу: "Ошибка инициализации библиотеки VBA (1004)".
Восстанавливаю, вроде открылся. При закрытии файла появляется стандартное сообщение об ошибке приложения. Повторное открытие файла повторяет ситуацию. Много раз переустанавливал офис с расширенным списком компонент, но никак!
Может кто подскажет, в чем дело?
офис 2003.
Заранее благодарен!

[Petya V4sechkin]

WChek
А другие офисные приложения что выдают при попытке запуска редактора Visual Basic (по Alt+F11)?

[begemotuk]

Привет...
Есть проблемка. С VBA знаком недавно, поетому не могу реализовать кое что. Кто чо может подсказать плз?
Проблема заключается в следующем:
Есть форма 1 в которой пользователь вводит число периодов. По нажатию кнопки, выводится форма 2, на которой находятся два поля для ввода и две кнопки (Ок и Close).
Нужно реализовать все так чтобы форма 2 не исчезала до тех пор пока пользователь не введет данные столько раз (нажатие на Ок), сколько он ввел периодов на форме 1.
Вот что пришло в голову:

Private Sub CommandButton1_Click()
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
For k = 0 To n - 1 Step 1
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
Next k
End Sub

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

[a_axe]

если я правильно понял, CommandButton1_Click() соответствует нажатию кнопки ок на userform2. (Если понял неправильно - извиняюсь!)
Тогда при каждом нажатии кнопки CommandButton1 программа будет записывать значения {datu(k) = CDate(UserForm2.TextBox1.Text) symu(k) = CDbl(UserForm2.TextBox2.Text)} n раз вместо 1 раза, т.к. цикл запускается при 1 нажатии и выполняется n раз (Все значения, кроме как при к=0 равны нулю). Решений на мой взгляд два - первое:

Код:

Private Sub CommandButton1_Click()
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
k=k+1
if k=n then UserForm2.hide
End Sub

Причем сдедующие строки кода:

Код:

 
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
а также k=0

- переносим в процедуру, соотв. нажатию кнопки на userform1 (которая выводит userform2).

Вариант 2:
при нажатии кнопки на userform1 процедура выводит userform2 не 1 раз, а n раз подряд:

Код:

 
Private Sub CommandButton0_Click()
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
For k = 0 To n - 1 Step 1
   userform2.show
next k
end sub

Код:

 
Private Sub CommandButton1_Click()
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
UserForm2.hide
End Sub

Код писал на коленке, может не совсем рабочии, но по мотивам написать что-то толковое можно...


PS Может тему следовало в программирование писать?
PPS с инетом сейчас проблемы, если долго не появлюсь - заранее извините...

[AlexSB]

Возникла такая трабла. При указании заливки цветом для любой из ячеек, цвета не отображаются. На просмотре документа заливка видна. В обычном виде - нет. Причем шрифты цвет меняют без проблем.