
No.7ベストアンサー
- 回答日時:
>マクロを有効にする方法を教えて下さい。
補足のメッセージからすると、Excel2000でしょうか。今、Excel2000がないので100%確かではないですが、
ツール→マクロ→セキュリティ→セキュリティレベル
のセキュリティレベルが『高』になっていませんか?
『中』にすればブックを開くと確認のダイアログボックスがでるので『はい(?もしかしたらYes)』でマクロを有効にします。
『低』にすれば無条件にマクロが有効になると思いますが、マクロウイルスが流行っていますし余りおすすめできません。
うまくいけばいいですが・・・では。
No.6
- 回答日時:
>例えば一色しか指定出来ないようにする方法はないでしょうか
'==================================最初の回答をアレンジ===
'シートの保護、非保護にかかわらず塗りつぶし可能にする
Public Sub PatternSet()
With ActiveSheet
If .ProtectContents Then
.Unprotect
PatternSetSub 'パターン色を指定する
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
PatternSetSub 'パターン色を指定する
End If
End With
End Sub
'パターン色を指定する(Sub)<赤=3のみ使える例>
'ColorIndexの意味はVBE画面のHELPで、ColorIndex→ColorIndexプロパティで分かるでしょう
Public Sub PatternSetSub()
Dim curPattern As Integer '現在のパターン色
With ActiveCell.Interior
curPattern = .ColorIndex '現在の色を待避
Application.Dialogs(xlDialogPatterns).Show '色を指定する
'指定色か色なし以外は再度入力する。
While Not (.ColorIndex = 3 Or .ColorIndex = xlNone)
MsgBox "赤しか使えません。", vbOKOnly + vbExclamation, "禁止の色"
.ColorIndex = curPattern '元の色に戻す
Application.Dialogs(xlDialogPatterns).Show '再度設定する
Wend
End With
End Sub
'==================================================別法===
'1色しか使えないならダイアログを出す必要はないかも
'下記は、赤色を塗るマクロと色を消すマクロ。セットで使います。
Public Sub 色を塗る()
With ActiveSheet
If .ProtectContents Then
.Unprotect
Selection.Interior.ColorIndex = 3
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveCell.Interior.ColorIndex = 3
End If
End With
End Sub
Public Sub 色を消す()
With ActiveSheet
If .ProtectContents Then
.Unprotect
Selection.Interior.ColorIndex = xlNone
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
End With
End Sub
>ツールバーにあるボタンの様なものを作ることは出来ないでしょうか
まず、新しいツールバーを作成します。
(1)表示→ツールバー→ユーザー設定。
(2)→新規作成ボタンを押して自分で名前を入力します。
これで小さなツールバーができます。
(3)ユーザー設定ダイアログでコマンドタブをクリック。
(4)分類の枠内でマクロをクリック。
(5)コマンド欄の『ユーザー設定ボタン』をクリックして、(2)のツールバーにドラッグ&ドロップ。
(6)ドロップしたアイコンを右クリックしてマクロの登録を選択。
ボタンイメージの変更もできます。
(7)マクロを選択してok。ユーザー設定ダイアログを閉じます。
(8)作ったツールバーを既存のツールバーが並んだ箇所の空いた所にドラッグ&ドロップ。
この作ったツールバーを表示したくない時は、表示→ツールバーでチェックをはずします。
この回答への補足
たびたびすみません。
上記の別法をコピーして使うことは出来たのですが、excelを閉じて再度このマクロ機能を使おうとすると次のエラーが出てしまいます。
”このプロジェクトのマクロは無効に設定されています。”というウィンドウが表示されてしまうのですが、マクロを有効にする方法を教えて下さい。
よろしくお願いいたします。
先日マクロのプログラムを作成していただきましたが、ユーザ設定のボタンを作った際にこのボタンが全てのファイルで有効になってしまうため、このファイルの場合だけ表示させるようにしたいのですが、どのようにしたらよいのでしょうか。
No.5
- 回答日時:
シートの保護・非保護に関係なく色を塗るマクロ例です。
パスワードは考慮していません。やっていることは単純ですのでコメントを見てもらえばと思います。ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。出てきたコードウインドウに下記マクロを貼り付けます。
頻繁に使う場合は、ツール→マクロ→マクロ でこのマクロを選択し、オプシュンからショートカットキーを割り当てておくと便利かと思います。
↓ここから
Public Sub PatternSet()
With ActiveSheet
If .ProtectContents Then
'/// シートが保護されている場合 ///
'保護を解除
.Unprotect
'パターンを設定するダイアログボックスを表示する
Application.Dialogs(xlDialogPatterns).Show
'再度保護する
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
'/// シートが保護されていない場合 ///
Application.Dialogs(xlDialogPatterns).Show
End If
End With
End Sub
この回答への補足
どうもありがとうございました。とっても助かりました。
VBのことが全く分からないので教えていただきたいのですが、例えば一色しか指定出来ないようにする方法はないでしょうか。
また、ショートカットキーを割り当てておくと便利と言うことですが、ツールバーにあるボタンの様なものを作ることは出来ないでしょうか?
No.4
- 回答日時:
そうですね。
私も今試してみたんですが、塗りつぶし機能は出来ませんでした。
もし加工したいなら、やはりNo.1の方の言うとおり、解除して加工してから再び保護設定するか、VBA設定するしかなさそうです。
#「オブジェクトの保護」を外せば出来たような記憶があったので、大変失礼しました(-_-;)
No.2
- 回答日時:
基本的なことを言うようですが、「シートの保護」設定は、「セルの書式設定」→「保護」タブの”ロック”にチェックされていてはじめて機能します。
ですから、シート保護を設定した後、一部のセルを加工したいのなら、そのセルの”ロック”を外せばいいんです。
試してみて下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelで、あるセルだけ入力させたい、オートフィルターも使わせたい際のシートの保護 2 2023/02/23 15:14
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) VBAで複数のExcelを1つのExcelにまとめる 1 2022/09/04 11:08
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Excel(エクセル) ExcelデータをWebページに保存した場合の名前定義 1 2023/08/01 15:38
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
エクセルのマクロ機能で前のシ...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
ワードからエクセルへ貼り付け...
-
Excelマクロでオプションボタン...
-
エクセル グラフの軸の最小値最...
-
Wordの画面を左右にスクロール...
-
Wordで「原稿用紙○枚」を換算す...
-
Excel2000 データの並べ替えで...
-
powerpointにwebページを挿入
-
マクロボタンを作ってのマクロ...
-
マクロ ブックをマクロなしでコ...
-
エクセル 自動で別シートへ並...
-
エクセル ピボットテーブルの...
-
複数ファイルにある特定のシー...
-
TeraTermのマクロについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
エクセル グラフの軸の最小値最...
-
エクセルのマクロ機能で前のシ...
-
ワードからエクセルへ貼り付け...
-
複数ファイルにある特定のシー...
-
Excelマクロでオプションボタン...
-
Wordの画面を左右にスクロール...
-
【Excel VBA】エラー番号400
-
Wordで「原稿用紙○枚」を換算す...
-
エクセルで複数のシートをまと...
-
モジュール内のマクロを全て実...
-
TeraTermのマクロについて
-
EXCEL2000 VBA マクロ実行中に...
-
開いているフォルダを全て閉じ...
-
マクロボタンをある条件の時に...
おすすめ情報