導入：なぜ共有ブックの並べ替えでエラーが出るのか
実務の現場では、複数人で同時にひとつのExcelファイルを編集するために「ブックの共有」機能を利用することがあります。しかし、この機能を使っている最中に「並べ替え」を実行しようとして、予期せぬ制限にぶつかった経験はありませんか？
共有ブックでは、通常の操作とは異なる制約がいくつか存在します。特に並べ替えについては、選択した範囲だけを並べ替えるといった柔軟な操作が制限されているため、エラーや期待しない結果に悩まされることが少なくありません。本稿では、その仕様と、VBAを用いた実務的な回避策を解説します。
基礎知識：共有ブックの制約
Excelの「ブックの共有」機能は、複数人が同時に同じファイルを編集・保存できるようにする仕組みです。このモードが有効な場合、データ整合性を守るために、以下のような強い制限がかかります。
・列や行の一部のみを選択して並べ替えることができない（必ず行・列全体が対象になる）。
・テーブル機能（リスト機能）が利用できない。
・シートの保護が一部制限される。
つまり、共有ブックにおいては「選択範囲のみを並べ替える」という操作自体がメニューから無効化、あるいは制限される仕様になっています。
実装/解決策
共有ブックで並べ替えを実現するための最も確実な方法は、「並べ替えが必要なときだけ一時的に共有を解除する」という手順です。手動で行うと手間がかかりますが、VBAを使えばこの一連の作業を自動化し、ユーザーにストレスを感じさせずに並べ替えを実行できます。
以下の手順でロジックを組みます。
1. 現在の共有状態を確認する。
2. 共有状態であれば、一時的に保護と共有を解除する。
3. 指定した範囲を並べ替える。
4. 再度、元の設定で共有を有効にする。
サンプルプログラム
以下のコードは、共有ブックの状態を判定し、並べ替えを実行するVBAのサンプルです。
Sub SortInSharedWorkbook()
Dim wb As Workbook
Set wb = ThisWorkbook
‘ 共有ブックかどうかを確認
If wb.MultiUserEditing Then
‘ 共有を一時的に解除する（保存が必要なため注意）
wb.ExclusiveAccess
End If
‘ 並べ替えの実行
With wb.Worksheets(“Sheet1”).Sort
.SortFields.Clear
‘ A列を基準に並べ替え
.SortFields.Add Key:=Range(“A1”), Order:=xlAscending
.SetRange Range(“A1:C100”)
.Header = xlYes
.Apply
End With
‘ 再度共有モードに戻す（必要に応じて）
‘ ※共有解除後は、再度ユーザー設定を行い共有を有効にする必要があります
MsgBox “並べ替えが完了しました。”
End Sub
応用・注意点
実務で使用する際の注意点がいくつかあります。
・ExclusiveAccessメソッドの挙動：このメソッドを実行すると、ブックは排他的（自分のみが編集可能）な状態になります。他のユーザーが編集中の場合、保存されていない変更内容が失われる可能性があるため、必ず運用ルールとして「並べ替え時は全員がファイルを閉じる」などの取り決めを行ってください。
・共有設定の再適用：上記のコードは共有を解除するところまでをメインにしています。実務では、並べ替え終了後に再度「共有設定を有効にする」処理を追加する必要がありますが、共有設定は環境によって複雑なため、可能であれば「共有ブック機能」ではなく「OneDriveやSharePoint上の共同編集機能」への移行を検討することをお勧めします。現在のExcelでは、従来のブックの共有機能よりも、クラウドベースの共同編集の方がはるかに安定しており、並べ替えの制約も大幅に緩和されています。
レガシーな共有ブック機能を使い続ける必要がある場合、上記のようなVBAでの制御は強力な味方になります。ぜひ現場の運用に合わせて活用してください。
