Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12444 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10479】保護がかかっているシートかどうかの確認法 猫おじさん 04/1/28(水) 15:24 質問
【10481】Re:保護がかかっているシートかどうかの確... Asaki 04/1/28(水) 15:37 回答
【10482】Re:保護がかかっているシートかどうかの確... Jaka 04/1/28(水) 15:42 回答
【10483】あら、もろかぶり。 Jaka 04/1/28(水) 15:43 発言
【10484】Re:保護がかかっているシートかどうかの確... 猫おじさん 04/1/28(水) 16:40 お礼
【10479】保護がかかっているシートかどうかの確認...
質問  猫おじさん  - 04/1/28(水) 15:24 -
引用なし
パスワード
   　お世話になってます。猫おじさんです。
　保護がかかっているシートは、マクロによる作業を
したくないのですが、目的のシートに保護がかかっているか、
かかっていないか調べる方法はあるでしょうか？
　（もちろん、パスワードを調べるわけではありません。）

　保護がかかっているシートに、ActiveSheet.Unprotectを
行うと、パスワード入力画面が表示され、作業が止まってしまいます。
　パスワードがかかっているシートは、作業の必要がないので、
保護が、かかっているかどうかが分かれば、作業をしません。

　パスワード入力画面を表示させずに、わざとエラーを発生させ、
on error 処理をしようと思ったのですが、以下の方法では、
パスワード入力画面が表示されてしまいます。
　
　 Application.DisplayAlerts = False
　　ActiveSheet.Unprotect
　 Application.DisplayAlerts = True

　よろしくご教示ください。
　
【10481】Re:保護がかかっているシートかどうかの...
回答  Asaki  - 04/1/28(水) 15:37 -
引用なし
パスワード
   こんにちは。

そのものずばりはなさそうですので、
↓はデータの保護が掛かっているかどうかをチェックします。
MsgBox Worksheets("Sheet1").ProtectContents

ヘルプでご確認ください。
【10482】Re:保護がかかっているシートかどうかの...
回答  Jaka  - 04/1/28(水) 15:42 -
引用なし
パスワード
   If Sheets("Sheet2").ProtectContents Then
　 MsgBox "シート保護有り"
Else
　 MsgBox "シート保護無し"
End If

詳しくは、ヘルプで「ProtectContents」を調べてね。
【10483】あら、もろかぶり。
発言  Jaka  - 04/1/28(水) 15:43 -
引用なし
パスワード
   失礼しました。
【10484】Re:保護がかかっているシートかどうかの...
お礼  猫おじさん  - 04/1/28(水) 16:40 -
引用なし
パスワード
   　jakaさん　Asakiさん　ありがとうございました。
　早速やってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12444 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free