ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обмен опытом. В копилку
5 сообщений из 5, страница 1 из 1
Обмен опытом. В копилку
    #33333768
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Часто вижу вопросы (и сам задавал) связанные с защитой каких нибудь данных на листе при использовании листа другими пользователями. Реализовал так ( уже скоро как месяц).
Например данные на лист1. В начале (один раз) копирую полностью лист1 в Лист2 (Создаю эталон). Скрываю Лист2. Лист3 - история изменений. Лист3 тоже скрыт (не виден)
При любых изменениях на лист1 в лист3 записывается измененная строка с лист1, на следующую строку Лист3 записывается строка-эталон с лист2, измененная строка с лист1 переписывается на Лист2. Никто об может не знать, а я предупредил "мне с верху видно все ты так и знай". К стати в историю записывается и дата и время всех изменений. Думаю еще доработать, чтоб история усекалась ( например в пределах пару месяцев) при открытии, или скидывалась в архив. Выделение ячеек пришлось программно запретить.
Чуть не забыл: цветом выделяются ячейки на лист3 не совпадающие в паре строк с лист1 и лист2, чтобы при просмотре легко видеть чего там творили. Защиту на лист1 НЕ СТАВЛЮ, т.к. все элементарно можно восстановить. Может какие предложения по модернизации, усовершенствованию, электрификации
...
Рейтинг: 0 / 0
19.10.2005, 17:56:34
| Ответить | Цитировать | Написать  
Обмен опытом. В копилку
    #33334321
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Когда в листе3 соберется много записей фаил станет тяжелым и противным
Я бы сздал Access.mdb базу.
а вот пример добавления записи в mdb имя которой "LM.mdb"
в ней одна таблица имеющая имя basa
с калонками Artikul, EAN, Naimenovanie, Edizm, massa, cena, data

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Private Sub vstavka()
' добавление записи
    Dim dbAccess As Database
    ' переменная типа набор записи
    Dim reRecordSet As Recordset
    ' сдесь будет SQL запрос
    Dim stSQL As String
    ' переменные
    Dim Artikul As String
    Dim EAN As String
    Dim Naimenovanie As String
    Dim Edizm As String
    Dim massa As String
    Dim cena As String
    Dim data As String

    Artikul = Cells( 2 ,  1 ).Value
    EAN = Cells( 2 ,  2 ).Value
    Naimenovanie = Cells( 2 ,  3 ).Value
    Edizm = Cells( 2 ,  4 ).Value
    massa = Cells( 2 ,  5 ).Value
    cena = Cells( 2 ,  6 ).Value
    data = Date
    stDBGetPath = "C:\LM.mdb" ' можно спрятать с глаз долой
    ' открытие базы данных
    Set dbAccess = OpenDatabase(stDBGetPath)
    ' формируем строку
    stSQL = "INSERT INTO basa ( Artikul, EAN, Naimenovanie, Edizm, massa, cena, data) VALUES ( '" & _
        Artikul & "', '" & EAN & "', '" & Naimenovanie & "', '" & Edizm & "', '" & _
        massa & "', '" & cena & "', '" & data & "')"
    ' выполняем
    dbAccess.Execute stSQL
    ' закрываем
    dbAccess.Close
End Sub
...
Рейтинг: 0 / 0
20.10.2005, 09:31:46
| Ответить | Цитировать | Написать  
Обмен опытом. В копилку
    #33335541
5631
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
5631
Участник
Короче, надо переходить на SQL server.
...
Рейтинг: 0 / 0
20.10.2005, 16:09:39
| Ответить | Цитировать | Написать  
Обмен опытом. В копилку
    #33336159
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
5631Короче, надо переходить на SQL server.
Тут идея совсем другая. Есть лист с данными и 2 скрытых листа в той же книге. История и возможность восстановления ! КОНТРОЛЬ за действиями пользователя примитивными средствами.
...
Рейтинг: 0 / 0
20.10.2005, 21:04:06
| Ответить | Цитировать | Написать  
Обмен опытом. В копилку
    #33336701
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Шпиономания какая-то.
Джеймц Бонд. :))
...
Рейтинг: 0 / 0
21.10.2005, 10:34:57
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Обмен опытом. В копилку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33335541&tid=2185629]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 196ms
total:  302ms
созд. / загр.: 302ms
x
x
Закрыть


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