Страница 4 из 8 ПерваяПервая 12345678 ПоследняяПоследняя
Показано с 31 по 40 из 72

Тема: Новая тема рекорцмен: Пишем макрос.

  1. #31
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Чуть поправил:
    Private Sub CommandButton1_Click()
    Unload UserForm
    End Sub

    Private Sub UserForm_Activate()
    MsgBox ("Вы были авторизованы в системе.")
    End Sub

    //----------------------------------

    Sub main()

    Const ValidUserName As String = "root"
    Const ValidPassword As String = "1234"
    Dim UserName As String
    Dim Password As String
    UserName = InputBox("Введите имя пользователя")
    Password = InputBox("Введите пароль")
    If UserName = ValidUserName And Password = ValidPassword Then
    UserForm.Show
    Else
    MsgBox ("Вы не были авторизованы в системе. Документ будет закрыт")
    ActiveDocument.Close
    End If

    End Sub

  2. #32
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Продолжу завтра!

  3. #33
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    Чуть поправил:
    Private Sub CommandButton1_Click()
    Unload UserForm
    End Sub
    А вот здесь ты неправ...
    Все-таки UserForm1
    Don't read the warnings, go straight and start to fly.

  4. #34
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    Продолжу завтра!
    Ну давай... До завтра
    Don't read the warnings, go straight and start to fly.

  5. #35
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    почему не прав?

  6. #36
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    почему не прав?
    с UserForm не работает..
    Насколько я понимаю здесь UserForm - имя класса, а UserForm1 - имя объекта.
    И мы выгружаем не класс, а объект.
    Don't read the warnings, go straight and start to fly.

  7. #37
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    И здесь:

    If UserName = ValidUserName And Password = ValidPassword Then
    UserForm1.Show
    Else
    Don't read the warnings, go straight and start to fly.

  8. #38
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Изначально грузили форму не UserForm1 а UserForm

  9. #39
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    Изначально грузили форму не UserForm1 а UserForm
    А... Понятно.. В общем, у нас разные имена форм...
    Тогда все нормально...
    Извини, если что...
    Ничего. давай определимся с названиями. Если "userform1" идет по умолчанию то пускай так и будет.
    Don't read the warnings, go straight and start to fly.

  10. #40
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Кстате в офиссе 2007 кнопка не жмется почему-то (у тя какой офисс?)

Похожие темы

  1. Тема
    от Владилена в разделе Культура и искусство
    Ответов: 16
    Последнее сообщение: 23.03.2008, 16:43
  2. Новая тема от Пепси - Стань звездой
    от ac2on в разделе Просто общение
    Ответов: 1
    Последнее сообщение: 12.03.2008, 20:06
  3. Тема))
    от Slast`ona в разделе Просто общение
    Ответов: 55
    Последнее сообщение: 06.01.2008, 21:37
  4. Тема про урелов
    от Tassadar в разделе Юмор
    Ответов: 0
    Последнее сообщение: 02.11.2007, 19:01
  5. -=Пузырьковая тема=-
    от Magnattt в разделе Просто общение
    Ответов: 17
    Последнее сообщение: 11.09.2007, 11:07

Рекомендуем

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  

SEO by vBSEO

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94