![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
こんにちは。
よく使うコピー&貼り付けを、マクロにして、ボタンの設定をしました。
他人に計算式をいじられたくないので、シート保護をかけています。
が、そのマクロを一度使うと、計算式が正常にコピーされません。
そこ自体の計算式は非常に単純なものなのですが・・・
例)
A1 B1+C1
A3 B3+C3
A5 B5+C5
(上下でセルを結合させています)
A20 B20C+C20
(A21とA22でセルを結合させています)
マクロ
1)「A1:A6」コピー&値貼り付け&コピー
2)A8:A13 貼り付け
※上記もそれぞれ上下2セルを結合しています。
3)「A20」コピー
4)「A1:A6」へ貼り付け
※消えた計算式を復活
これだけのことです。
ですが、シート保護を外すと何度も繰り返し使えますが、
保護した途端一度きりになってしまいます。
一体に何に問題があるのでしょうか?
No.1ベストアンサー
- 回答日時:
保護されているセルは、マクロでもそのまま貼り付けなどの「変更」はできません
コピー&ペーストを行う前に
ActiveSheet.Unprotect
で一旦シート保護を解除し、一連の処理が終わってから
ActiveSheet.Protect Contents:=True
で再度保護をかけ直す必要があります
この回答への補足
ありがとうございます。
ですが、この方法だと保護解除のパスワードを聞かれますよね?
他の人も使う可能性があり、パスワードは告知したくないのですが、
パスワード入力が不要になる方法はないものでしょうか?
「ActiveSheet.Protect UserInterfaceOnly:=True」を使えば良いみたいです。
無事できました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excelでシートを保護してもマクロが使えるようにしたい
Excel(エクセル)
-
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
エクセルのチェックボックスを保護対象から外すには
Windows Vista・XP
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
Excelのシートを保護してオプションボタンの選択のみ可能にしたい
Excel(エクセル)
-
6
Excelシートの保護時にデータの並び替え
その他(Microsoft Office)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
ActiveSheet.Protect UserInterfaceOnly:=Trueの書き場所は
Excel(エクセル)
-
10
シート保護を掛けたまま並べ替えやオートフィルタをするには
Excel(エクセル)
-
11
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
12
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
13
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
14
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
15
マクロのクリア設定がシートの保護を行うと機能しません
Visual Basic(VBA)
-
16
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
19
【エクセルVBA】「Protect UserInterfaceOnly」を2重にかけてはダメですか?
Visual Basic(VBA)
-
20
エクセル ボタンを押すとセルの色が変わるようにしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの2ページ目の作り方
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
メールソフト「サンダーバード...
-
EXCEL 複数セルをコピーして張...
-
Excel 行の連続データを列に参...
-
Excel コピーしたセルの範囲を...
-
Excelでコピーした行の挿入を繰...
-
エクセルで隣接していない複数...
-
Activeでないシートへのペースト
-
エクセルでの行数・列数を指定...
-
【Excel】【VBA】空白のセルに...
-
EXELで複数のとびとびのセルを...
-
エクセルで勝手に「折り返して...
-
EXCELシートをPowerPointにきれ...
-
OpenOffice 表計算で文字として...
-
Excel)軽いデーターのはずなの...
-
EXCEL シート保護するとマクロ...
-
「選択範囲を解除してアクティ...
-
エクセル 別シートへのコピー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excel 行の連続データを列に参...
-
EXCELシートをPowerPointにきれ...
-
EXCELのオートフィルの設定を変...
-
「選択範囲を解除してアクティ...
-
メールソフト「サンダーバード...
-
エクセルオートフィルで書式を...
-
Excelでコピーした行の挿入を繰...
-
Excelに、ダブルクォーテーショ...
-
エクセルでの行数・列数を指定...
-
エクセルで隣接していない複数...
-
Excel)軽いデーターのはずなの...
-
エクセルで値だけコピーして背...
-
EXELで複数のとびとびのセルを...
-
エクセル 別シートへのコピー...
-
エクセルで、選択範囲の数値全...
-
エクセル・数値が変化したらカ...
おすすめ情報