Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11082 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18266】シートを移動出来ないようにしたい！！ TOKU 04/9/20(月) 9:22 質問[未読]
【18268】Re:シートを移動出来ないようにしたい！！ Asaki 04/9/20(月) 9:34 回答[未読]
【18270】Re:シートを移動出来ないようにしたい！！ Asaki 04/9/20(月) 9:47 回答[未読]
【18273】Re:シートを移動出来ないようにしたい！！ TOKU 04/9/20(月) 10:22 お礼[未読]
【18274】Re:シートを移動出来ないようにしたい！！ Asaki 04/9/20(月) 10:29 発言[未読]
【18277】Re:シートを移動出来ないようにしたい！！ TOKU 04/9/20(月) 10:47 回答[未読]
【18279】Re:シートを移動出来ないようにしたい！！ Asaki 04/9/20(月) 11:37 回答[未読]
【18282】Re:シートを移動出来ないようにしたい！！ TOKU 04/9/20(月) 12:09 発言[未読]
【18283】Re:シートを移動出来ないようにしたい！！ IROC 04/9/20(月) 12:19 回答[未読]
【18287】Re:シートを移動出来ないようにしたい！！ Asaki 04/9/20(月) 16:04 発言[未読]
【18323】Re:シートを移動出来ないようにしたい！！ shousuke 04/9/21(火) 14:54 発言[未読]
【18266】シートを移動出来ないようにしたい！！
質問  TOKU  - 04/9/20(月) 9:22 -
引用なし
パスワード
   Ctrl+PageUp・Downでシートの移動が出来ますが、この操作を無効にする
マクロは無いでしょうか？？

誰か知っている方がいましたら、教えて下さい。
【18268】Re:シートを移動出来ないようにしたい！！
回答  Asaki  - 04/9/20(月) 9:34 -
引用なし
パスワード
   おはようございます。

シートの移動そのものはOKで、キー操作のみを無効にしたい、ということですか？
それとも、シートも移動できなくする、ということですか？

試してませんが、OnKey ではダメかなぁ。。。？
ちょっと、調べてみてください。
【18270】Re:シートを移動出来ないようにしたい！！
回答  Asaki  - 04/9/20(月) 9:47 -
引用なし
パスワード
   >シートの移動そのものはOKで、キー操作のみを無効にしたい、ということですか？
標準モジュールに
Sub KeyStart()
　　Application.OnKey "^{PGDN}", ""
　　Application.OnKey "^{PGUP}", ""
End Sub

Sub KeyStop()
　　Application.OnKey "^{PGDN}"
　　Application.OnKey "^{PGUP}"
End Sub

KeyStart でキー操作を無効、KeyStop で有効にします。

>それとも、シートも移動できなくする、ということですか？
もし、こちらなら、シートを非表示にするのではダメでしょうか？
【18273】Re:シートを移動出来ないようにしたい！！
お礼  TOKU  - 04/9/20(月) 10:22 -
引用なし
パスワード
   ▼Asaki さん：
ありがとうございます。
シートを非表示にしてたんですが、どうしてもシートをキー操作で移動させたく
ありませんでした。今回のマクロを使ったことでやりたいことができました。

また機会があればご指導の程、宜しくお願いします。ｍ（＿ ＿）ｍ
【18274】Re:シートを移動出来ないようにしたい！！
発言  Asaki  - 04/9/20(月) 10:29 -
引用なし
パスワード
   >シートを非表示にしてたんですが、どうしてもシートをキー操作で移動させたく
>ありませんでした。今回のマクロを使ったことでやりたいことができました。

やっぱりよく判らないんですが、マウスでシート見出しをクリックして
移動するのはOKなんですかね。。。？
見せる必要がなければ、非表示で良いように思うのですが。
【18277】Re:シートを移動出来ないようにしたい！！
回答  TOKU  - 04/9/20(月) 10:47 -
引用なし
パスワード
   ▼Asaki さん：
>>シートを非表示にしてたんですが、どうしてもシートをキー操作で移動させたく
>>ありませんでした。今回のマクロを使ったことでやりたいことができました。
>
>やっぱりよく判らないんですが、マウスでシート見出しをクリックして
>移動するのはOKなんですかね。。。？
>見せる必要がなければ、非表示で良いように思うのですが。

えー詳しく説明しますと．．．
Excelを開いた時にマクロで全画面表示設定にしています。
この時に既にシート見出しは非表示にしていますが、
キー操作でシートが移動出来てしまうので、
見せたくないシートが見られてしまいます。（一部の人にしか見せたくないので）
なので、今回このようなメールをしました。
【18279】Re:シートを移動出来ないようにしたい！！
回答  Asaki  - 04/9/20(月) 11:37 -
引用なし
パスワード
   シート見出しは、
メニューから ツール >> オプション >> 「表示」タブ の「シート見出し」にチェック
で、容易に再表示可能ですが、メニューも制限されているということでしょうか？

こちらが再三、「非表示」といっているのは、シートタブのことではなく、
シートそのもののことです。
シートは非表示にしておいて、シート表示用のボタンなどを設けて、
クリック時にパスワードなどで表示するかどうかを判定するなどでは？

。。。ちょっと大掛かりになってきましたが。
【18282】Re:シートを移動出来ないようにしたい！！
発言  TOKU  - 04/9/20(月) 12:09 -
引用なし
パスワード
   ▼Asaki さん：
>シート見出しは、
>メニューから ツール >> オプション >> 「表示」タブ の「シート見出し」にチェック
>で、容易に再表示可能ですが、メニューも制限されているということでしょうか？
>
>こちらが再三、「非表示」といっているのは、シートタブのことではなく、
>シートそのもののことです。
>シートは非表示にしておいて、シート表示用のボタンなどを設けて、
>クリック時にパスワードなどで表示するかどうかを判定するなどでは？
>
>。。。ちょっと大掛かりになってきましたが。

もちろんメニューも制限して、シート見出しを表示出来なくしています。
一部のシートは、ある一定の人にしか見せたくない部分がありまして
シート表示用のボタンを設けて、パスワード入力することで見れるようにしています。

ご理解頂けましたか？！
【18283】Re:シートを移動出来ないようにしたい！！
回答  IROC  - 04/9/20(月) 12:19 -
引用なし
パスワード
   Asakiさんのご質問は
「シートを非表示にしてますか？」
ですよ？


Worksheets("Sheet1").Visible = xlVeryHidden
【18287】Re:シートを移動出来ないようにしたい！！
発言  Asaki  - 04/9/20(月) 16:04 -
引用なし
パスワード
   >一部のシートは、ある一定の人にしか見せたくない部分がありまして
>シート表示用のボタンを設けて、パスワード入力することで見れるようにしています。
であれば、別にキー操作でのシート移動の制御は不要なのでは？
だって、見せてはダメな人には、シートが表示できないのでしょうから。
順番でないとダメとか、もっと別の仕掛けとの絡みですかね？

>ご理解頂けましたか？！
まあ、目的が達成されているようなので、良いのでしょうが、わたしはよく理解できません。。。
【18323】Re:シートを移動出来ないようにしたい！！
発言  shousuke WEB  - 04/9/21(火) 14:54 -
引用なし
パスワード
   参考までですが、ブックに保護をかけたらどうですか？
シートの構成を変更できなくする事も可能です。
見せたくないシートを非表示にし、その上でブックに保護をかけます。
確認できるシート上においたコマンドボタンのコードには
パスを判定するif文などで判定させては？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11082 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free