0
розстібати
Голосів
Я ціную ваш внесок і те, що ви даєте людям, але я застряг у чомусь про Excel.
Моя проблема виконується так:
Після завершення роботи я зберігаю її на своєму комп’ютері. І ось тут починається моя боротьба! Я хочу отримати доступ до цього файлу doc excel лише з ЦЬОГО комп’ютера. не копіюється чи не переміщується через USB чи будь-яким іншим способом.
Чи є вихід для такого?
Я думав замість цього поставити макрос. Я маю на увазі створення коду VBA, наприклад: якщо ім’я користувача — Моє ім’я (наприклад), то Відкрийте файл, якщо інакше — Закрийте.
Отже, якщо хтось інший скопіює файл і відкриє його з іншого комп’ютера, у момент, коли код VBA прочитає ім’я користувача, він не відкриє файл (оскільки це інше ім’я користувача).
Чи можете ви допомогти мені з кодом VBA?
Або якщо є інший спосіб не вкрасти, чи можете ви показати мені спосіб, що я можу зробити?
Заранее спасибо!
З повагою, Сем
З найкращими побажаннями!
Моя проблема виконується так:
Після завершення роботи я зберігаю її на своєму комп’ютері. І ось тут починається моя боротьба! Я хочу отримати доступ до цього файлу doc excel лише з ЦЬОГО комп’ютера. не копіюється чи не переміщується через USB чи будь-яким іншим способом.
Чи є вихід для такого?
Я думав замість цього поставити макрос. Я маю на увазі створення коду VBA, наприклад: якщо ім’я користувача — Моє ім’я (наприклад), то Відкрийте файл, якщо інакше — Закрийте.
Отже, якщо хтось інший скопіює файл і відкриє його з іншого комп’ютера, у момент, коли код VBA прочитає ім’я користувача, він не відкриє файл (оскільки це інше ім’я користувача).
Чи можете ви допомогти мені з кодом VBA?
Або якщо є інший спосіб не вкрасти, чи можете ви показати мені спосіб, що я можу зробити?
Заранее спасибо!
З повагою, Сем
З найкращими побажаннями!
0
розстібати
Голосів
Цей код дозволяє книгу зберігати лише як саму себе.
Цей код дозволить не зберігати будь-хто, крім тих, хто вміє (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True
MsgBox "Sorry, you can only save this workbook with its original name."
End If
End SubЦей код дозволить не зберігати будь-хто, крім тих, хто вміє (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox ("All File Save and File Save As commands in this sheet ONLY have been turned OFF. Pretty cool, huh??")
End Sub- Сторінки:
- 1
На цю посаду ще немає відповідей.