запуск МАКРОСА В Excel по условию из ячейки

Тема в разделе "Visual Basic", создана пользователем SAMpicasso, 17 дек 2008.

  1. SAMpicasso

    SAMpicasso Гость

    доброго времени суток
    большая потребность в запуске мкроса по условию из ячейки

    задача
    при написании пароля
    на листе 4 возобновляются ячейки
    +скрыть лист4(без макроса)
    тк файл не загрузить перескажу чего сделал
    лист 1 проверка =ЕСЛИ(Лист4!A1=1;"ВСЕ КРУТО";"плохо")
    на листе 4 столбец a1:A17(состоит из единиц)
    при открытии книги
    Private Sub Workbook_Open()
    MsgBox "Доброго времени суток", , "Сообщение!"
    Sheets("Лист4").Select
    Selection.Delete Shift:=xlUp
    Sheets("Лист1").Select
    Range("A3:H11").Select
    ActiveCell.FormulaR1C1 = "=IF(Лист4!R[-2]C=1,""ВСЕ КРУТО"",""плохо"")"
    Range("A12:H13").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(Лист4!R[-11]C=1,COUNT(Лист4!R[-11]C:R[-17]C),"" "")"
    ActiveWorkbook.Save
    End Sub
    некий изврат удаляет строчку
    удалив все домножу все важные числа на тект, тем самым не давая работать дальше

    было бы не плохо введя некий пароль в ячейку
    а) возобновить столбец А на листе4
    б) введя другой пароль остановить макрос в принципе
    заранее благодарен SAM
     
  2. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Можно использовать процедуру:
    Private Sub Worksheet_Change(ByVal Target As Range)

    Здесь вписать код проверки адреса ячейки
    если да - проверка содержимого
    если = паролю
    макрос
    если не правильно, можно добавть публичную константу и наращивать. Допустим просле трёх непрвильны - запретить запуск макроса


    End Sub
     
Загрузка...

Поделиться этой страницей