[[20160212164357]]　『変更履歴を削除せずに保護を解除する方法』（れ）　ページの最後に飛ぶ

『変更履歴を削除せずに保護を解除する方法』（れ）

If Workbooks("aa.xlsx").Worksheets("Sheet1").AutoFilterMode Then

    If Workbooks("aa.xlsx").ReadOnly = True Then
        With ActiveSheet
            .Unprotect
            .AutoFilterMode = False
        End With
    End If
End If

aa.xlsxでは、シートの保護をしたあとにブックの共有をしています。
上記のコードだとUnprotectの行でエラーが起こってしまいます。
（実行時エラー1004　Worksheet クラスの Unprotect メソッドが失敗しました。）

エラーが起こる理由はブックの共有にあるんじゃないかと思ったんですが、
共有を解除すると変更履歴も消えてしまうそうで、履歴を残したまま解除することは可能ですか？

やりたいことは、保護・共有を解除、そのあとにやりたい処理を入れて、最後にフィルターをつけて保護・共有にする。です。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

察しのとおり、共有状態で保護の解除はできないそうです。
（「Excel 共有での制限」などで検索すると記事があります。）

＞共有を解除すると変更履歴も消えてしまうそうで、履歴を残したまま解除することは可能ですか？
共有状態でしか変更履歴は使えないようです。

残念ながら不可能でしょうね。
（なお、「新しいシートに変更箇所一覧を作成する」ことはできても、
　それを再度読み込んで変更履歴を復旧するのは難しいのでは？）

（γ） 2016/02/12(金) 22:24

コメント返信：

[ 一覧(最新更新順) ]

[[20160212164357]] 『変更履歴を削除せずに保護を解除する方法』（れ） ページの最後に飛ぶ

[[20160212164357]]　『変更履歴を削除せずに保護を解除する方法』（れ）　ページの最後に飛ぶ