Пара вопросов VBA Excel...
1. Как удалить лист из книги без подтверждения (программно)?
2. Как создать форму с вводом пароля...
2. Как создать форму с вводом пароля...
Цитата:
Originally posted by Lev_ru
1. Как удалить лист из книги без подтверждения (программно)?
Включение/отлючение сообщений:
Application.DisplayAlerts = True
Application.DisplayAlerts = False
Удаление листа:
Sheets(name).Delete
2. Как создать форму с вводом пароля...
1. Как удалить лист из книги без подтверждения (программно)?
Включение/отлючение сообщений:
Application.DisplayAlerts = True
Application.DisplayAlerts = False
Удаление листа:
Sheets(name).Delete
2. Как создать форму с вводом пароля...
Форма с успехом создается средствами ВБА :)
Цитата:
Originally posted by Lev_ru
1. Как удалить лист из книги без подтверждения (программно)?
2. Как создать форму с вводом пароля...
1. Как удалить лист из книги без подтверждения (программно)?
2. Как создать форму с вводом пароля...
По первому вопросу, как сделать так, чтобы не выводилось сообщение, я, к сожалению. не могу ответить.
По второму вопросу. В VB в свойствах текстбокса можно установить свойство PasswordChar - в этом случае вместо твоих символов будут выводиться те значки, которые укажешь в этом свойстве.
Можно так же повесить замену символов на событие KeyPress. Заменаяешь KeyAscii на код "шифровального" символа, перед этим запоминая введённый символ в переменную. И всё
отменна запросов
Application.DisplayAlerts = False
отменна отменны запросов
Application.DisplayAlerts = True
т.е. должно выглядеть так
Application.DisplayAlerts = False
'удаление листа
Application.DisplayAlerts = True
удачи
Application.DisplayAlerts = False
отменна отменны запросов
Application.DisplayAlerts = True
т.е. должно выглядеть так
Application.DisplayAlerts = False
'удаление листа
Application.DisplayAlerts = True
удачи
1. ThisWorksheet:
Private Sub Workbook_Open()
Application.Run "Enter_Password"
End Sub
____________________________________
2. Forms:
Option Explicit
Private Sub Yes_Click()
frmPassword.Hide
End Sub
Private Sub No_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub
____________________________________
3. Modules:
Sub Enter_Password()
frmPassword.Show
InputParol = frmPassword.Value_Password.Value
If InputParol = "admin" Then
MsgBox "Вы вошли в программу с правами администратора!"
ElseIf InputParol = "user" Then
MsgBox "Вы вошли в программу с правами пользователя!"
Else
MsgBox "Вы ввели неверный пароль!"
Application.Run "Enter_Password"
End If
End Sub
____________________________________
Каким должен быть код в макросе Enter_Password, если в форму ввести еще один InputBox?
То есть я хочу сделать еще и проверку имени (если имя=ххх и если пароль равен=ххх то...)?
Private Sub Workbook_Open()
Application.Run "Enter_Password"
End Sub
____________________________________
2. Forms:
Option Explicit
Private Sub Yes_Click()
frmPassword.Hide
End Sub
Private Sub No_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub
____________________________________
3. Modules:
Sub Enter_Password()
frmPassword.Show
InputParol = frmPassword.Value_Password.Value
If InputParol = "admin" Then
MsgBox "Вы вошли в программу с правами администратора!"
ElseIf InputParol = "user" Then
MsgBox "Вы вошли в программу с правами пользователя!"
Else
MsgBox "Вы ввели неверный пароль!"
Application.Run "Enter_Password"
End If
End Sub
____________________________________
Каким должен быть код в макросе Enter_Password, если в форму ввести еще один InputBox?
То есть я хочу сделать еще и проверку имени (если имя=ххх и если пароль равен=ххх то...)?