Запрос доступа к нескольким файлам

Область применения: Excel для Mac | PowerPoint для Mac | Word для Mac | Office 2016 для Mac

Используйте команду GrantAccessToMultipleFiles, чтобы запросить доступ к нескольким файлам одновременно в решении Office 2016 для Mac.

В отличие от макросов VBA в Office для Mac 2011, макросы VBA в Office 2016 для Mac по умолчанию не имеют доступа к внешним файлам. Так как приложения Office 2016 для Mac являются изолированными, у них нет разрешения на доступ к внешним файлам.

Существующие команды файла макроса запрашивают у пользователя разрешение на доступ к файлу, если у приложения нет доступа к нему. Это означает, что макросы, обращаюющиеся к внешним файлам, не могут выполняться автоматически. Пользователь должен утвердить доступ к файлу при первой ссылке на каждый файл. Используйте команду GrantAccessToMultipleFiles , чтобы свести к минимуму количество запросов, чтобы улучшить взаимодействие с пользователем.

Команда GrantAccessToMultipleFiles

Используйте команду GrantAccessToMultipleFiles , чтобы ввести массив путей к файлам и запросить у пользователя разрешение на доступ к ним.

Boolean  GrantAccessToMultipleFiles(fileArray) 

Параметр	Описание
fileArray	Массив путей к файлам POSIX

Команда возвращает, предоставил ли пользователь разрешение.

Возвращаемое значение	Описание
Верно	Пользователь предоставляет разрешение на доступ к файлам.
Неверно	Пользователь запрещает разрешение на доступ к файлам.

Примечание.

После того как пользователь предоставит разрешения, разрешения сохраняются в приложении. Пользователю не нужно повторно предоставлять разрешение на доступ к файлу.

Пример

Sub requestFileAccess()  

    'Declare Variables  
    Dim fileAccessGranted As Boolean  
    Dim filePermissionCandidates 

    'Create an array with file paths for the permissions that are needed.  
    filePermissionCandidates = Array("/Users//Desktop/test1.txt", "/Users//Desktop/test2.txt") 

    'Request access from user.  
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates) 
    'Returns true if access is granted; otherwise, false. 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.