Macのvbaで、デスクトップのフォルダへのアクセス権の取得をしたいです。

Question

前提・実現したいこと

実行環境　Excel 2016 for Mac

目標　エクセルのA列のセルを、上から順に図として保存する。

これを実現する為に下の五過程をDo While-loopで処理しようとしています。
①無地のグラフを作成
②セルA1を図としてコピーする。
③①に②を貼り付ける。
④②をpngファイルとして、この処理を行っているブックが保存されているフォルダに保存する。
⑤A2、A3‥について、①から再開

発生している問題・エラーメッセージ

現在、上記の③の過程で躓いています。③を実行しようとすると、上記の処理を行っているブックが保存されたフォルダ(以後、A)へのアクセス権が拒否されたとして、エラーになります。

該当のソースコード

Sub CellsToPng()

Dim y As Long　'図としてコピーするセルの特定に使用
Dim n, extension As String　'ファイル名に使用
Dim c As ChartObject
Dim co As Chart
Dim path As String

ActiveWindow.Zoom = 100

y = 1
'path = "/Users/usename/Desktop/A/CellToPng.xlsm"どちらのpathを使っても同じエラーになる。
path = ActiveWorkbook.FullName

'以下、先に示した①~④の実行

Do While Cells(y, 1).Value <> ""
'コピーしたセルの右隣のセルの値をファイル名として使う。
 n = Cells(y, 2).Value
'①の実行
 Set c = ActiveWorkbook.ActiveSheet.ChartObjects. _
  Add(Cells(1, 1).Width * 2, Range(Cells(1, 1), _
  Cells(y, 1)).Height - Cells(1.1).Height, Cells(y, 1).Width, Cells(y, 1).Height)
 Set co = c.Chart
'②の実行 
 Cells(y, 1).CopyPicture
'③の実行
 co.Parent.Select
 co.Paste
'④の実行
 co.Export (path & "\" & n & extension)
'⑤の実行
 y = y + 1
Loop

End Sub

試したこと

https://docs.microsoft.com/ja-jp/office/vba/office-mac/grantaccesstomultiplefiles#grantaccesstomultiplefiles-command
Microsoftの公式サイトによると、Excel 2106 for macの場合、初期状態では外部ファイルへのアクセス権が無いようで、アクセス権を要求するコマンドとしてGrantAccessToMultipleFilesが紹介されています。
このコマンドを用いて別のモジュールに、

Sub requestFileAccess()

Dim fileAccessGranted As Boolean
fileAccessGranted = GrantAccessToMultipleFiles(Array("/Users/username/Desktop/A/CellsToPng.xlms"))

End Sub

として実行しましたが、特に変化もなく、やはり③でアクセス権拒否によるエラーが起こります。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

手元の環境で試してみましたが、どうやらVBAでは、アクセス権取得のダイアログが表示されずにエラーにされてしまうようです。私のところでも GrantAccessToMultipleFiles ではダメでした。

以下、ご質問の回答にはなっていないのですが、保存可能な場所もあります。
path と extension の初期化を

path = "/Users/username/Library/Group Containers/UBF8T346G9.Office"
extension = ".png"

として、④の部分を

'④の実行
 co.Export (path & Application.PathSeparator & n & extension)

と変えれば、/Users/username/Library/Group Containers/UBF8T346G9.Office には書き出すことができます。

【参考】Mac ExcelVBAでPDF出力をする方法