マクロ、超初心者です。
どうにか、下記マクロを設定しました。
On Error Resume Next
With ActiveSheet.Range("d:e").SpecialCells(xlCellTypeConstants, 23)
.ClearContents
End With
シートの保護を行うと、上記マクロが機能しません。
ちなみに、セルの保護の状態は、
d列----「ロックなし」「表示する」
e列----「ロックなし」「表示しない」(数式が入っています)
お暑いところ・お忙しいところ申し訳ありませんが、
どなたか、ご教授ください。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
>sheet全てにプロテクトがかかってしまうという状況になり・・
意味がよく解りませんが・・・。
マクロでは保護の掛かったシートを変更することができないので、プログラムを組む場合はそのことを頭に置いて、保護の解除と保護を適切なところで行う必要があります。
基本的には、保護シートを操作するマクロの先頭に「保護の解除」、最後に「保護」のコードを記入すれば良いのですが・・・。
保護設定のオプションもエクセルのバージョンによって違うので書きませんでしたが、記録マクロを使って保護を設定すれば、保護オプションを含めたコードを取得できるので、書き換えれば良いでしょう。
マクロで何度も保護の解除と保護設定をしなくても済むようにする方法がありますが、エクセル起動時に一度だけ実行して置く必要があります。
ActiveSheet.Protect UserInterfaceOnly:=True
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
この回答への補足
お忙しいところご回答いただきありがとうございました。
マクロを組んでいる際は、シート保護をかけていないのですが、
マクロ1(ソート)
Sub test()
Range("A6:C111").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("D6").Select
End Sub
マクロ2(クリア)
On Error Resume Next
With ActiveSheet.Range("d:e").SpecialCells(xlCellTypeConstants, 23)
.ClearContents
End With
2つのマクロを設定した後、シート保護をかけた段階で、
ソートのマクロはうまく機能いくのですが、クリアのマクロが機能しません (;;)
的外れな、補足かもしれませんが・・・
ご助言いただけると、助かります。
No.1
- 回答日時:
マクロで、シート保護の解除と保護の設定を行うだけです。
sub test()
ActiveSheet.UnProtect
'処理
ActiveSheet.Protect
end sub
この回答への補足
早々にご回答ありがとうございます <(__)>。
ご回答いただいたマクロを利用すると、sheet全てにプロテクトがかかってしまうという状況になり・・・エラーになってしまいます。
実は、もう一つマクロ↓を入れておりまして、
Sub test()
Range("A6:C111").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("D6").Select
End Sub
このマクロを実行した後に、d列およびe列のセル内容表示をクリアし、
『d列は、再入力できる状態に、e列は結果を表示』
を繰り返し行えるようにしたいのですが・・・。
お力を貸して頂けると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:44
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
EXCEL シート保護するとマクロが正常動作しない
Excel(エクセル)
-
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
6
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
7
Excelシート上のマクロを登録したボタンの削除が出来ません
Excel(エクセル)
-
8
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
マクロをマクロを使ってコピーしたい
その他(Microsoft Office)
-
12
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
13
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excelのセル値に基づいて図形の...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
一つのTeratermのマクロで複数...
-
Excel マクロ VBA プロシー...
-
Excel マクロでShearePoint先の...
-
メッセージボックスのOKボタ...
-
TERA TERMを隠す方法
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
【EXCEL VBA】オートシェイプを...
-
VBAにて別ワークブック上の実行...
-
エクセル マクロ 指定日の指定...
-
マクロで空白セルを詰めて別シ...
-
【MFC】Version情報の取得
-
ピボットテーブルでの毎回可変...
-
【緊急】エクセルVBA(20...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報