Форма автоирзации в excel на VBA или помогите новичку. / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Форма автоирзации в excel на VBA или помогите новичку.

25 сообщений из 31, страница 1 из 2

все

Форма автоирзации в excel на VBA или помогите новичку.

#33546357

snchk

Гость

В общем задача стоящая передо мной я думаю не оригинальна, но способов ее решения я так и не нашел (в интеренете). Необходимо сделать такую форму. (я ее нарисовал и находиться она в приложении). Соответствено надо что б когда выбрано Просмотр базы поля имя пользователя и пароль становились не активными и активировались только тогда когда выбиралась точка редактировать базу.
Теперь про саму форму: Надо что б она появлялась при загрузке файла. И в соответствии с выбором пользователя позволяла только просматривать или редактировать базу. Помогите это сделать плз.

...

Рейтинг:

0 / 0

15.02.2006, 14:00:08

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33546788

Пользователь2

Гость

Посмотри.

...

Рейтинг:

0 / 0

15.02.2006, 15:30:36

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33546856

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub OptionButton1_Click()
    Select Case OptionButton1.Value
    Case True
        UserForm1.TextBox1.Enabled = False
        UserForm1.TextBox2.Enabled = False
        UserForm1.TextBox1.BackStyle =  0 
        UserForm1.TextBox2.BackStyle =  0 
    End Select
End Sub
Private Sub OptionButton2_Click()
    Select Case OptionButton2.Value
    Case True
        UserForm1.TextBox1.Enabled = True
        UserForm1.TextBox2.Enabled = True
        UserForm1.TextBox1.BackStyle =  1 
        UserForm1.TextBox2.BackStyle =  1 
    End Select
End Sub

Private Sub UserForm_Activate()
OptionButton1.Value = True
End Sub

...

Рейтинг:

0 / 0

15.02.2006, 15:48:12

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552321

snchk

Гость

Пользователь2Посмотри.

А почему когда я копирую твою форму в свой файл у меня появляется такая вот лажа- файл в аттаче.

...

Рейтинг:

0 / 0

17.02.2006, 14:48:57

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552330

snchk

Гость

...

Рейтинг:

0 / 0

17.02.2006, 14:50:38

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552346

snchk

Гость

Не мог бы ты совместить мой файл и свою форму- буду очень благодарен! кстати, там возможно будет косяк - там список должностей привязан к ячейке- в ячейке соотв 1 2 или 3 в зависимости от должности. И в зависимости от того что там стоит- запускается нужный макрос. Так вот мне кажется что когда будет стоять протект эта ячейка не сможет менятся...

...

Рейтинг:

0 / 0

17.02.2006, 14:53:08

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552351

snchk

Гость

...

Рейтинг:

0 / 0

17.02.2006, 14:53:57

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552370

Пользователь2

Гость

Импортируй к себе еще стандартный млдуль, где расположена процедура "Protect".

...

Рейтинг:

0 / 0

17.02.2006, 14:58:29

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552456

snchk

Гость

Ага, так понял, спасибо.
Но! Та проблема про которую я говорил как раз и появилась. -надо разрешить изменение одной ячейки- как это сделать?
Лист Запрос пользователя, ячейка A2

И еще
если надо будет добавить еще одного пользователя то как я понимаю его вставлять надо сюда

Код: plaintext

1.
2.

 If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Protect False

А как? Так ?

Код: plaintext

1.
2.

 If txtUserName.Value = "Admin","Админ" And _
          txtPassword = "123","345" Then
            Protect False

Тогда вопрос как связать имя пользователя и пароль?

...

Рейтинг:

0 / 0

17.02.2006, 15:17:10

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552489

Пользователь2

Гость

snchkНе мог бы ты совместить мой файл и свою форму- буду очень благодарен! кстати, там возможно будет косяк - там список должностей привязан к ячейке- в ячейке соотв 1 2 или 3 в зависимости от должности. И в зависимости от того что там стоит- запускается нужный макрос. Так вот мне кажется что когда будет стоять протект эта ячейка не сможет менятся...
Во-первых, эту ячейку можно сделать не защищенной, не проблема, все равно под списком не видно ячейки и двигать его нельзя.

Во-вторых, какой у тебя Excel? Если > 2000, то для метода Protect можно устанавливать большее количество параметров, например такие как: AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowFiltering.

...

Рейтинг:

0 / 0

17.02.2006, 15:22:57

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552552

snchk

Гость

Спасибо большое.
А не мог бы ты скопировать кусок кода, кот ты изменил, что б в ячейке 123 менялось?

И все еще актуален вопрос по добавлению пользователя .

Спасибо огромное!

...

Рейтинг:

0 / 0

17.02.2006, 15:34:41

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33552605

Пользователь2

Гость

snchkСпасибо большое.
А не мог бы ты скопировать кусок кода, кот ты изменил, что б в ячейке 123 менялось?
Я это ручками проделал. Выделил ячейку A2, формат ячейки -> защита -> снял галку.

snchkИ все еще актуален вопрос по добавлению пользователя.

Код: plaintext

1.
2.
3.

        If (txtUserName.Value = "Admin" And _
          txtPassword = "123") Or _
          (txtUserName.Value = "Вася" And _
          txtPassword = "abc") Then

...

Рейтинг:

0 / 0

17.02.2006, 15:49:28

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33560847

snchk

Гость

Помогите плз теперь со следующим вопросом:
Сделал форму, теперь ее надо продолжить.
Необходимо что б закладка Редактирование становилась активной только после ввода пароля нажатия продолжить. А так же необхоимо что б после переключения с точки редактирование бызы на точку Просмотр поля имя пользователя и пароль очищались.
Жду советов!

...

Рейтинг:

0 / 0

22.02.2006, 14:13:36

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33560848

snchk

Гость

...

Рейтинг:

0 / 0

22.02.2006, 14:13:51

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33560849

snchk

Гость

Кстати буду благодарен за оперативность- надо это сделать срочно!!!!!

...

Рейтинг:

0 / 0

22.02.2006, 14:14:15

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33560955

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

snchkКстати буду благодарен за оперативность- надо это сделать срочно!!!!!
чем будешь благодарен?

...

Рейтинг:

0 / 0

22.02.2006, 14:42:32

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33560987

snchk

Гость

=)) Чем попросишь =)

...

Рейтинг:

0 / 0

22.02.2006, 14:51:22

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561007

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

выложи что сделал.

...

Рейтинг:

0 / 0

22.02.2006, 14:58:58

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561046

snchk

Гость

webfile.ru/826258

...

Рейтинг:

0 / 0

22.02.2006, 15:09:33

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561129

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.

Private Sub UserForm_Initialize()
    optView.Value = True
    Me.MultiPage1.Pages( 1 ).Enabled = False
    EnableFields False, False
End Sub

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Protect False
            [color=red]'[/color]Me.Hide
        Else
            MsgBox ("Íåïðàâèëüíûå äàííûå!")
        End If
    End If
End Sub

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Sub EnableFields( _
  blnUserName As Boolean, _
  blnPassword As Boolean)

    txtUserName.Enabled = blnUserName
    txtPassword.Enabled = blnPassword
    If Not (blnUserName And blnPassword) Then
        txtUserName.BackColor = &H8000000F
        txtPassword.BackColor = &H8000000F
        
    Else
        txtUserName.BackColor = &H80000005
        txtPassword.BackColor = &H80000005
        Me.MultiPage1.Pages( 1 ).Enabled = False
        txtUserName.Text = ""
        txtPassword.Text = ""
    End If
End Sub

...

Рейтинг:

0 / 0

22.02.2006, 15:34:45

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561151

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Protect False
            'Me.Hide
        Else
            MsgBox ("Неправильные данные!")
        End If
    End If
End Sub

...

Рейтинг:

0 / 0

22.02.2006, 15:40:29

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561178

snchk

Гость

О! спасибо большое, только вот одна проблема- когда введен имя пользователя и пароль и при этом переключаешься на просмотр базы, имя пользователя и пароль остаются в полях (просто становятся неактивными! )а на до чтоб стирались!

...

Рейтинг:

0 / 0

22.02.2006, 15:46:01

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561213

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

блин промахнулся.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Sub EnableFields( _
  blnUserName As Boolean, _
  blnPassword As Boolean)

    txtUserName.Enabled = blnUserName
    txtPassword.Enabled = blnPassword
    If Not (blnUserName And blnPassword) Then
        txtUserName.BackColor = &H8000000F
        txtPassword.BackColor = &H8000000F
        Me.MultiPage1.Pages( 1 ).Enabled = False
        txtUserName.Text = ""
        txtPassword.Text = ""
    Else
        txtUserName.BackColor = &H80000005
        txtPassword.BackColor = &H80000005
    End If
End Sub

...

Рейтинг:

0 / 0

22.02.2006, 15:58:16

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561339

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

так лутше

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub cmdEnter_Click()

    If optView.Value = True Then
        Protect True
        Me.Hide
    Else
        If txtUserName.Value = "Admin" And _
          txtPassword = "123" Then
            Me.MultiPage1.Pages( 1 ).Enabled = True
            Me.MultiPage1.Value =  1 
            Protect False
            'Me.Hide
        Else
            MsgBox ("Неправильные данные!")
        End If
    End If
End Sub

...

Рейтинг:

0 / 0

22.02.2006, 16:27:21

| Ответить | Цитировать | Написать

Форма автоирзации в excel на VBA или помогите новичку.

#33561345

snchk

Гость

Слушай, и самы последний вопрос, нодо добавить то что б после нажатия продолжить в режиме редактирования он сразу перескакивал на закладку Редактировать.

Огромное Спасибо- очень приятно что есть такие люди, готовые помоч и поделиться своими знаниями.

...

Рейтинг:

0 / 0

22.02.2006, 16:28:58

| Ответить | Цитировать | Написать

25 сообщений из 31, страница 1 из 2

все

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Форма автоирзации в excel на VBA или помогите новичку.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2185214]:	0ms
get settings:	8ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	44ms
get topic data:	7ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	208ms

total:	321ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы