Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
drafty
Вашему чувству юмора можно позавидовать...😂
Я думаю что SHIFT срабатывает только в случае,когда убираем панель навигации с помощью меню файл-параметры,а вот если сделать как-то так(т.е. убрать посредством vba):
Private Sub form1_load()
Dim vrs As Double: vrs = Val(Application.Version)
If vrs >= 14 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'убираем верхнюю часть панели инструментов
End If
setnavpanel False 'убираем панель навигации
Me.ShortcutMenu = False 'отключение контекстного меню
End sub
Private Sub form1_Unload()
Dim vrs As Double: vrs = Val(Application.Version)
If vrs >= 14 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If
setnavpanel True
Me.ShortcutMenu = True
End sub
Public Function setnavpanel(visible As Boolean)
DoCmd.SelectObject acForm, , True
If Not visible Then
DoCmd.RunCommand acCmdWindowHide
End If
End Function
Тогда шрифт не должен сработать...🤔
ROI
пропущено...

А с "Шифтом" как , быть?

И все это несработает при нажатом "Шифте" (я выше был прав)Картинка с другого сайта.
19 авг 19, 09:19    [21952190]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
drafty,

Вы упорно не хотите пользоваться поиском и .....
19 авг 19, 09:23    [21952195]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
ROI,

https://www.sql.ru/forum/afsearch.aspx?s=?????? ?? ?????&submit=?????&bid=4
19 авг 19, 09:24    [21952198]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
ROI,

"Ёжики кололись, но продолжали грызть кактусы!"Картинка с другого сайта.
19 авг 19, 09:26    [21952199]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
drafty
Member

Откуда: Москва
Сообщений: 398
ROI,
Тут новая проблема вылезла... проблема в виде трёх пиктограмм в нижней правой части формы,а именно 1)пиктограмма Режим Формы 2)пиктограмма Режим Макета и 3)Пиктограмма режим Конструктора,прописываю код:
Dim CBAR as CommandBar
For I = 1 To CBAR.Controls.Count
If InStr(1, UCase(CBAR.Controls.Item(I).Caption), "КОНСТРУКТОР") > 0 Then
CBAR.Controls.Item(I).Enabled = False
End If
Next I
Next CBAR
Не помогает,все-равно у пользователя остаётся возможность войти в режим Конструктора ☹️☹️☹️
19 авг 19, 10:24    [21952233]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 6176
ROI
ROI,
"Ёжики кололись, но продолжали грызть кактусы!"Картинка с другого сайта.
+100500
19 авг 19, 10:36    [21952248]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
__Michelle
Member

Откуда:
Сообщений: 3092
drafty
Не помогает...

Вам ведь уже написали: 21950642.

Две просьбы:
1) пользуйтесь тегами для кода;
2) размещайте свой ответ после цитаты, а не наоборот.
19 авг 19, 10:42    [21952254]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
drafty,

Дык у расширения .accdr и .accde такого нет.
PS:"Интересно, кто первый сломается"Картинка с другого сайта.
19 авг 19, 10:56    [21952276]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
alecko
Member

Откуда: Башкирия
Сообщений: 548
drafty, можно отключить строку состояния, но проблему не решите - подключившись к этой базе из другой, юзер запросто отключит настройки, или уж в крайнем случае перекачает все в новую базу, изменит и заменит на свою форму, или что ещё хуже заменит данные.
Но основа защиты от дурака: пользователи должны работать в скомпилированной версии. всегда.
А для того чтобы более-менее защитить базу и данные необходимо сделать много вещей:
использование таблицы UsysRibbons, запрет шифта и других быстрых клавиш, программное отключение панелей(панель перехода например), ленты, и пр. кодирование, компилирование кода, закрытие паролем - базы таблиц, базы интерфейсов.
также не забудьте, что пароли у всех юзеров должны быть разные (есть такое понятие "соль") (особенно важно при предоставлении программы неопределенному кругу лиц-отсюда выходит привязка к оборудованию).
При этом часто прокатывает такой тривиальный вариант обхода защиты как открытие базы в более высокой версии, в которой включены дополнительные опции (типа Privacy Option), которые отсутствуют в вашей базе, и соответственно никаких действий не предпринято по препятствованию такому открытию.
19 авг 19, 11:01    [21952282]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 6176
Серьезную защиту "потянет" далеко не каждый (да и нужна ли она для Вашей БД) По-моему вполне достаточно того что Вам присоветовал alecko
(это вполне обеспечит "защиту от дурака". Надеюсь речь не идет о защитите авторских прав,в объеме программного кода)
19 авг 19, 12:03    [21952354]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
__Michelle
Member

Откуда:
Сообщений: 3092
drafty,

Ознакомьтесь с инструментарием рабочих групп в Access (mdw).
19 авг 19, 12:14    [21952367]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
drafty
Member

Откуда: Москва
Сообщений: 398
Достопочтенные собеседники.Вообщем удалось добиться полной изоляции юзера от возможности влияния на структуру базы(а также просмотра ее объектов) следующим кодом:
Private Sub Form_Load()
   DoCmd.GoToRecord , , acNewRec
   Me.Caption = "ВВОД ДАННЫХ"
   Dim vrs As Double: vrs = Val(Application.Version)
   If vrs >= 14 Then
       DoCmd.ShowToolbar "Ribbon", acToolbarNo 'отключили верхнюю панель
   End If
   setnavpanel False 'убрали панель навигации
   Me.ShortcutMenu = False 'отключили контекстное меню
   Application.SetOption "Show Status Bar", False
   SetBypassProperty (False)
   DoCmd.SetWarnings False
End Sub
Public Function setnavpanel(visible As Boolean)
    DoCmd.SelectObject acForm, , True
    If Not visible Then
        DoCmd.RunCommand acCmdWindowHide
    End If
End Function
Public Function SetBypassProperty(f As Boolean)
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, f
    ChangeProperty "AllowSpecialKeys", DB_Boolean, f
    ChangeProperty "StartUpShowDBWindow", DB_Boolean, f
End Function
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
Exit Function

(+ Надо ещё в параметрах запуска базы убрать галочку Специальные Клавиши Access)
Это на мой взгляд самый эффективный способ в данном случае.
Хочу отметить,что искал всё по кускам,не всё имеется в хэлпе(о чём-то говорится,а о чём-то умалчивается).Убил на это почти весь рабочий день.Если бы следовал советам тех,кто настаивал на том,что мне необходимо научиться пользоваться хэлпом-то убил бы на решение этой задачи-НЕДЕЛЮ!
19 авг 19, 15:23    [21952591]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
drafty,

Ну, а теперь, можно ваять нетленку типа "hello world"Картинка с другого сайта.
19 авг 19, 15:29    [21952598]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 1784
ROI,

Ну, а тегами пользоваться, это в хэлп лезти время убивать.
19 авг 19, 15:30    [21952602]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
__Michelle
Member

Откуда:
Сообщений: 3092
drafty,

Научитесь все же пользоваться тегами.
Пожалуйста.

Ведь нечитаемы эти простыни.
19 авг 19, 15:32    [21952603]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
__Michelle
Member

Откуда:
Сообщений: 3092
drafty
Вообщем удалось добиться полной изоляции юзера от возможности влияния на структуру базы(а также просмотра ее объектов)

Это Вам так кажется.
В теме уже говорилось об одном известном приеме, не буду повторять.
19 авг 19, 15:38    [21952609]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
__Michelle
Member

Откуда:
Сообщений: 3092
ROI
ROI,

Ну, а тегами пользоваться, это в хэлп лезти время убивать.

И то верно.)))
19 авг 19, 15:40    [21952611]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
drafty
Member

Откуда: Москва
Сообщений: 398
__Michelle
ROI
ROI,

Ну, а тегами пользоваться, это в хэлп лезти время убивать.

И то верно.)))


А вот с этим замечанием спорить не буду(как говорится "Платон мне-друг,но истина-дороже!")...🤝🤝🤝
19 авг 19, 16:23    [21952652]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
DarkMan
Member

Откуда:
Сообщений: 542
__Michelle
Научитесь все же пользоваться тегами.
Пожалуйста.
Правильнее было бы сказать - Научитесь уважать участников форума . :))
19 авг 19, 16:55    [21952688]     Ответить | Цитировать Сообщить модератору
 Re: Access 2010 как отключить панели при загрузке формы  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 6176
__Michelle
drafty
Вообщем удалось добиться полной изоляции юзера от возможности влияния на структуру базы(а также просмотра ее объектов)

Это Вам так кажется.
+100500
19 авг 19, 17:49    [21952739]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
Все форумы / Microsoft Access Ответить