[[20141103175228]]　『ドラッグアンドドロップについて』（ちぃさん）　ページの最後に飛ぶ

『ドラッグアンドドロップについて』（ちぃさん）

お世話になります。
Boook1のsheet1のみドラッグアンドドロップを使えないようにしたいのですが可能のでしょうか？
例えばBook2を開いていてもBook3を開いていてもBook1のsheet1のみドラッグアンドドロップを使えないようにしたいです。

もし良ければご指導いただだけないでしょうか。

どうぞ宜しくお願い致します。

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

無理では？
（???） 2014/11/04(火) 08:57

（???）さん回答ありがとうございます。

無理なのですか。（泣）

了解いたしました。
ありがとうございました。
（ちぃさん） 2014/11/04(火) 17:18

 解答ではなく興味本位の質問ですが、
 ドラッグアンドドロップを制御して、何を禁止したかったんですか？
（稲葉） 2014/11/04(火) 17:28

（稲葉）さんお世話になります。
質問ありがとうございます。

今使っているシートで条件付き書式を使っているシートがあるのですが何故か条件付き書式で設定している内容が1行ズレて動作している事に気づきまして原因はハッキリしていないのですがシートを触った人の操作によるものと思いましてドラッグアンドドロップを制御いたしたく質問にまいりました。
他に原因があるのかもしれないのですが。（汗）

（ちぃさん） 2014/11/04(火) 18:21

 あー私も経験ありますが、原因はおそらく「切り取り」だと思います。

 制御したいブックのThisWorkBookモジュールに以下を全部貼り付けてください。
    Private Sub Workbook_Activate()
        'ブックがアクティブになったとき、特定のシートがアクティブならドラッグ禁止
        If ActiveSheet.Name <> "Sheet1" Then Exit Sub
        Application.CellDragAndDrop = False
    End Sub
    Private Sub Workbook_Deactivate()
        'ブックがアクティブじゃなくなったとき、ドラッグ許可
        Application.CellDragAndDrop = True
    End Sub
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        'このブックの特定のシートがアクティブになったとき、ドラッグ禁止、それ以外のとき許可
        If Sh.Name = "Sheet1" Then
            Application.CellDragAndDrop = False
        Else
            Application.CellDragAndDrop = True
        End If
    End Sub
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        'このブックの特定のシートで切り取りが行われ、別のセルを選択したとき、切り取り中止
        If Sh.Name <> "Sheet1" Then Exit Sub
        If Application.CutCopyMode = 2 Then
            Application.CutCopyMode = 0
        End If
    End Sub

 ある程度は防げますが、例えばマクロを無効で開かれていたりするということ聞きません。

（稲葉） 2014/11/04(火) 18:38

（稲葉）さん回答有難うございます。

今、手元にPCがございませんので後で試させていただきたいと思います。

有難うございます。
（ちぃさん） 2014/11/04(火) 19:35

おはようございます。

（稲葉）さんにご教授いただいたマクロで問題が解決できそうです。

本当にありがとうございました。
（ちぃさん） 2014/11/05(水) 10:51

コメント返信：

[ 一覧(最新更新順) ]

[[20141103175228]] 『ドラッグアンドドロップについて』（ちぃさん） ページの最後に飛ぶ

[[20141103175228]]　『ドラッグアンドドロップについて』（ちぃさん）　ページの最後に飛ぶ