Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Например, функция:
Private Sub ShowComBars(Dev As Boolean, Adm As Boolean) On Error Resume Next CommandBars("Customs").Controls("Администратор").Visible = Adm CommandBars("Customs").Controls("Developer").Visible = Dev End Sub
ShowComBars False, False
ShowComBars True, True
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.