Страница 3 из 8 ПерваяПервая 1234567 ... ПоследняяПоследняя
Показано с 21 по 30 из 72

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

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

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

    Цитата Сообщение от Neutron
    Отличный макрос получился.
    Спасибо

    Давай теперь ты что-нибудь напиши
    Don't read the warnings, go straight and start to fly.

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

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

    Ок чуть отвлекают .. сейчас.

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

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

    Продолжаем:
    Создаем форму (UserForm) которая будет загружаться при удачной авторизации и выводить сообщение об авторизации:

    Private Sub UserForm_Initialize()
    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
    Load UserForm
    Else
    MsgBox ("Вы не были авторизованы в системе. Документ будет закрыт")
    ActiveDocument.Close
    End If

    End Sub

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

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

    Предлагаю дальше обратить внимание на форму: так как на ней должна быть кнопка выхода и ее надо выгрузить из памяти.

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

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

    Можно сделать поддержку нескольких пользователей.
    Сделать на форме Label, в который выводить имя авторизовавшегося пользователя.
    Don't read the warnings, go straight and start to fly.

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

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

    Цитата Сообщение от Sandro
    Можно сделать поддержку нескольких пользователей.
    Сделать на форме Label, в который выводить имя авторизовавшегося пользователя.
    Тогда эту авторизацию надо изменить:
    Private Sub UserForm_Initialize()
    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
    Load UserForm
    Else
    MsgBox ("Вы не были авторизованы в системе. Документ будет закрыт")
    ActiveDocument.Close
    End If

    End Sub

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

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

    Можно и так...
    Счас выложу вариант с формой и кнопкой...
    Don't read the warnings, go straight and start to fly.

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

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

    Вариант с Load UserForm1 у меня чота глючит...

    такой работает..

    Private Sub CommandButton1_Click()
    Unload UserForm1
    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

    Здесь CommandButton1 - кнопка, закрывающая форму. Caption - Выйти
    Don't read the warnings, go straight and start to fly.

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

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

    Только хотел написать. Вспомнил что функция load работает в VB а не VBA с помощью show грузить надо. Опередил ты (молодца.)

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

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

    Цитата Сообщение от Neutron
    Только хотел написать. Вспомнил что функция load работает в VB а не VBA с помощью show грузить надо. Опередил ты (молодца.)

    Дык я ж смотрю, что Load не пашет...
    Мессагбокс вылазит, а формы нет...
    Решил попробовать стандартным методом из С++..
    Только там Form->Show()...
    Don't read the warnings, go straight and start to fly.

Похожие темы

  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