Справочная информация. Похоже, я не могу найти ответ на ошибку, в которой я оказался. Я работаю над своего рода информационной панелью для нашей организации, которая извлекает данные из разных рабочих книг в разных местах. Разные люди имеют разные разрешения в папках в нашей компании. Мы пытаемся предотвратить изменение прав доступа. Я также пытался максимально упростить работу сотрудников, переместив необходимые вспомогательные файлы, из которых извлекаю информацию, в свою папку, где находится панель инструментов, в которой находится папка с вспомогательными файлами. Поскольку эта папка не имеет ограниченного доступа, я добавил пароли ко всей книге каждого вспомогательного файла. Я создал рабочие книги в тех местах, где эти вспомогательные файлы использовались с надеждой, которая, как мы надеемся, позволила бы любому, у кого есть доступ в этой папке, использовать этот новый файл как своего рода бэкдор / ярлык. Цель состояла в том, чтобы хранить файлы людей там, где они хотели, и позволить им щелкнуть по ним, а затем перенести их в мой файл поддержки и ввести пароль для них. Что приводит меня к проблеме ...
Проблема: Когда я открываю файл "backdoor", все работает нормально, и открывается файл поддержки с привилегиями чтения и записи. Однако когда кто-то открывает файл бэкдора, файл поддержки открывается только для чтения. Хотя у меня еще нет кода, чтобы определить, есть ли кто-то в файле (я перейду эту дорогу, если моя проблема разрешима), я гарантировал, что никто не был в файле поддержки или бэкдора, когда другой пользователь пытался его использовать .
Sub Workbook_Open()
'I didn't have the next statement orginally. Added it in hopes it'd resolve the issue.
'Tried to move it under the workbooks.open command, too, but to no avail.
SetAttr "M:\Report Writing\Supporting Files\TMR 2017 - Team ABC's SF.xlsm", vbNormal
Workbooks.Open "M:\Report Writing\Supporting Files\TMR 2017 - Team ABC's SF.xlsm", , False, , "XXX"
Workbooks("TMR 2017 - Team ABC's.xlsm").Close
End Sub
У меня также изначально не было «False» в команде open.workbooks, но я пытался добавить его в надежде разрешить мою дилемму. Мы очень ценим любую надежду, поскольку вся моя приборная панель полагается на это, и мы должны были развернуть ее сегодня.