スキルアップ・問題解決なら、モーグにおまかせ！

VBAでピボットテーブルのデータの詳細を表示可能にできないようにしたいのですが、Web上いろいろ探しても該当するものが見つけられませんでした。
 
他の方に操作できなくするためにピボットテーブルのオプションではなく、VBAで表示不可にしたいと思っています。
何か方法はありますでしょうか？

＞何か方法はありますでしょうか？
 
ピボットテーブルのような結果を出すツールを
新たに開発したらいけますね。
 
ピボットテーブルの操作の制限は、サンプルを探すとこから
やらなくてはなので、時間がかかるかもです。
望みは薄いですがいい方法が見つかれば書きますし、
見つからなければ他の回答者に期待です。

(サンプルが結構簡単に手に入りました。）
 
＞ピボットテーブルのデータの詳細を表示可能にできないようにしたい
 
ちなみに、上記は、行フィールドに項目を2つ以上設定した場合の2つ目以降の項目を
「+」アイコンをクリックで展開させたくないということでしょうか？
 
ならば、状況に応じて、項目を削除したり追加したりしたらいいのではないでしょうか？

あ、連投すみません。
 
ピボットテーブルを置いておくシートは非表示にしておいて、
他の人に見せるときは、それをコピーして、
値貼り付けしたらよさそうです。
 
あとはアイデア勝負かと思います。

ピボットテーブルの値をダブルクリックするとピボットを構成しているデータが新しいシートに表示されてしまうので表示されないようにしたいのです。
  
ピボットのプロパティから詳細を表示可能にするのチェックを外すことになると思いますが、VBAで制御できるのだろうかと思った次第です。

あぁ。。。そっちですか。。。
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.PivotTables(1).TableRange1) Is Nothing Then Cancel = True
End Sub
 
ピボットテーブルのあるシートに上記コードで、
ピボットテーブル内のダブルクリックを無効にできます。
データ部分のみ制御するときは、
TableRange1　→　DataBodyRange
に変更です。
 
条件により分岐するといいかと思います。

あ、オプションを切り替えるなら、
マクロの記録をしたらわかります。
 

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.PivotTables("ピボットテーブル1").EnableDrilldown = False
    Range("B6").Select
End Sub

そのブックのすべてのpivot のプロパティを変更するには下記ですね。

Sub test()
    Dim ws As Worksheet
    Dim pt As PivotTable
    For Each ws In Worksheets
        For Each pt In ws.PivotTables
            pt.EnableDrilldown = False
        Next
    Next
End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    If Sh.ListObjects.Count = 1 Then
        Application.DisplayAlerts = False
        Sh.Delete
        Application.DisplayAlerts = True
    End If
End Sub

私が挙げた以外の方法として、ブックの保護（ワークシート構成を保護）を掛ければ
ワークシートの追加ができず、詳細表示を利用できなくすることができます。
 
後学のために教えて下さい。後先になり恐縮です。
詳細表示を禁じたい理由は何でしょうか。

ピボットテーブルを作るときにデータモデルに追加しておいて、
ピボットテーブル分析タブの OLAPツール 数式に変換 すると
CUBE関数をつかった式に変換してくれるので、データの接続の更新以外はなにも出来なくなります。
 
または、最新のEXCELでは PIVOTBY関数とかもあるので、
単純なものなら対応かのうかと

詳細表示を禁じたい理由をお尋ねした理由は以下のようなものです。
・もし、個々の数値を秘匿したいとい話なら、もっと別の観点からの対策(保護関連）が必要かも
　しれません。
・シートを増やしたままにする人がいて困っているので、ということなら、
  注意書きを含めた運用を検討をすべきで、詳細機能を使いたいひとには改悪になる可能性があります。
 
gombohoriさんのいくつかの提案のほか、使えなくする提案がされていますので、
質問をされた以上は、それに対する返事をお願いします。
 
もう興味はない、ということなら「解決済みにする」をチェックして閉じていただけませんか？