Excel VBA質問箱 IV

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

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


11071 / 13644 ツリー ←次へ | 前へ→

【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 さん:
ありがとうございます。
シートを非表示にしてたんですが、どうしてもシートをキー操作で移動させたく
ありませんでした。今回のマクロを使ったことでやりたいことができました。

また機会があればご指導の程、宜しくお願いします。m(_ _)m

【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文などで判定させては?

11071 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free