Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Форма автоирзации в excel на VBA или помогите новичку. / 25 сообщений из 31, страница 1 из 2
  1  все
15.02.2006, 14:00:08
    #33546357
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
В общем задача стоящая передо мной я думаю не оригинальна, но способов ее решения я так и не нашел (в интеренете). Необходимо сделать такую форму. (я ее нарисовал и находиться она в приложении). Соответствено надо что б когда выбрано Просмотр базы поля имя пользователя и пароль становились не активными и активировались только тогда когда выбиралась точка редактировать базу.
Теперь про саму форму: Надо что б она появлялась при загрузке файла. И в соответствии с выбором пользователя позволяла только просматривать или редактировать базу. Помогите это сделать плз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2006, 15:30:36
    #33546788
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Посмотри.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2006, 15:48:12
    #33546856
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Код: 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
| Ответить | Цитировать | Написать  
17.02.2006, 14:48:57
    #33552321
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Пользователь2Посмотри.

А почему когда я копирую твою форму в свой файл у меня появляется такая вот лажа- файл в аттаче.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 14:50:38
    #33552330
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 14:53:08
    #33552346
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Не мог бы ты совместить мой файл и свою форму- буду очень благодарен! кстати, там возможно будет косяк - там список должностей привязан к ячейке- в ячейке соотв 1 2 или 3 в зависимости от должности. И в зависимости от того что там стоит- запускается нужный макрос. Так вот мне кажется что когда будет стоять протект эта ячейка не сможет менятся...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 14:53:57
    #33552351
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 14:58:29
    #33552370
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Импортируй к себе еще стандартный млдуль, где расположена процедура "Protect".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 15:17:10
    #33552456
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Ага, так понял, спасибо.
Но! Та проблема про которую я говорил как раз и появилась. -надо разрешить изменение одной ячейки- как это сделать?
Лист Запрос пользователя, ячейка 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:22:57
    #33552489
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
snchkНе мог бы ты совместить мой файл и свою форму- буду очень благодарен! кстати, там возможно будет косяк - там список должностей привязан к ячейке- в ячейке соотв 1 2 или 3 в зависимости от должности. И в зависимости от того что там стоит- запускается нужный макрос. Так вот мне кажется что когда будет стоять протект эта ячейка не сможет менятся...
Во-первых, эту ячейку можно сделать не защищенной, не проблема, все равно под списком не видно ячейки и двигать его нельзя.

Во-вторых, какой у тебя Excel? Если > 2000, то для метода Protect можно устанавливать большее количество параметров, например такие как: AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowFiltering.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 15:34:41
    #33552552
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Спасибо большое.
А не мог бы ты скопировать кусок кода, кот ты изменил, что б в ячейке 123 менялось?

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

Спасибо огромное!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.02.2006, 15:49:28
    #33552605
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
snchkСпасибо большое.
А не мог бы ты скопировать кусок кода, кот ты изменил, что б в ячейке 123 менялось?
Я это ручками проделал. Выделил ячейку A2, формат ячейки -> защита -> снял галку.

snchkИ все еще актуален вопрос по добавлению пользователя.
Код: plaintext
1.
2.
3.
        If (txtUserName.Value = "Admin" And _
          txtPassword = "123") Or _
          (txtUserName.Value = "Вася" And _
          txtPassword = "abc") Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:13:36
    #33560847
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Помогите плз теперь со следующим вопросом:
Сделал форму, теперь ее надо продолжить.
Необходимо что б закладка Редактирование становилась активной только после ввода пароля нажатия продолжить. А так же необхоимо что б после переключения с точки редактирование бызы на точку Просмотр поля имя пользователя и пароль очищались.
Жду советов!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:13:51
    #33560848
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:14:15
    #33560849
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Кстати буду благодарен за оперативность- надо это сделать срочно!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:42:32
    #33560955
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
snchkКстати буду благодарен за оперативность- надо это сделать срочно!!!!!
чем будешь благодарен?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:51:22
    #33560987
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
=)) Чем попросишь =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 14:58:58
    #33561007
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
выложи что сделал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 15:09:33
    #33561046
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
webfile.ru/826258
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 15:34:45
    #33561129
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Код: 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:40:29
    #33561151
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Код: 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:46:01
    #33561178
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
О! спасибо большое, только вот одна проблема- когда введен имя пользователя и пароль и при этом переключаешься на просмотр базы, имя пользователя и пароль остаются в полях (просто становятся неактивными! )а на до чтоб стирались!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2006, 15:58:16
    #33561213
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
блин промахнулся.
Код: 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, 16:27:21
    #33561339
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
так лутше
Код: 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:28:58
    #33561345
snchk
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма автоирзации в excel на VBA или помогите новичку.
Слушай, и самы последний вопрос, нодо добавить то что б после нажатия продолжить в режиме редактирования он сразу перескакивал на закладку Редактировать.

Огромное Спасибо- очень приятно что есть такие люди, готовые помоч и поделиться своими знаниями.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Форма автоирзации в excel на VBA или помогите новичку. / 25 сообщений из 31, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 363ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185214]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 54ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 231ms
total:  363ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]