AccessのVBAでエクセルシートの特定セル以外は編集不可設定に

やり方

参照設定に『Microsoft Excel 16.0 Object Library』追加。

サンプル

Dim excel_ As New Excel.Application
Dim excel_sheet_ As Excel.Worksheet

'バックグラウンドで起動
excel_.Visible = False
excel_.UserControl = False
'Accessファイルと同じフォルダーにあるtes.xlsxが対象
excel_.Workbooks.Open FileName:=CurrentProject.Path & "\tes.xlsx"

'一番左のシートのみを選択状態に
Set excel_sheet_ = excel_.Worksheets(1)
excel_sheet_.Select Replace:=True

'全セル編集不可。
excel_sheet_.Cells.Locked = True

'1行3列目（C1セル）のみ編集可に。
excel_sheet_.Cells(1, 3).Cells.Locked = False

'セルの編集不可にはシートの保護もセットで必要。
excel_sheet_.Protect Password:="abcd"

'Excelファイル保存してExcelアプリケーション終了。
excel_.Workbooks(1).Close SaveChanges:=True
excel_.Quit

編集不可セルに入力等をしようとすると下記。

参考サイトさん

バージョン

Windows 10 Pro 22H2 19045.3031
Microsoft Access for Microsoft 365 MSO (バージョン 2304 ビルド 16.0.16327.20200) 32 ビット
Microsoft Excel for Microsoft 365 MSO (バージョン 2304 ビルド 16.0.16327.20200) 32 ビット