
こんにちは。
よく使うコピー&貼り付けを、マクロにして、ボタンの設定をしました。
他人に計算式をいじられたくないので、シート保護をかけています。
が、そのマクロを一度使うと、計算式が正常にコピーされません。
そこ自体の計算式は非常に単純なものなのですが・・・
例)
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
(マクロ)シートを保護してもマクロは利用できる?
Excel(エクセル)
-
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
エクセルの保護で、列の表示や非表示が加納にするには
Excel(エクセル)
-
-
4
ActiveSheet.Protect UserInterfaceOnly:=Trueの書き場所は
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
7
EXCEL(VBA)でシート保護がかかったシートにクリックボードから貼り付けしたい
Visual Basic(VBA)
-
8
マクロのクリア設定がシートの保護を行うと機能しません
Visual Basic(VBA)
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのアポストロフィを一...
-
エクセル:マクロ「Application...
-
エクセルで隣接していない複数...
-
メールソフト「サンダーバード...
-
エクセルで値だけコピーして背...
-
エクセルで、選択範囲の数値全...
-
エクセルで勝手に「折り返して...
-
エクセルでの行数・列数を指定...
-
エクセル 別シートへのコピー...
-
Excelに、ダブルクォーテーショ...
-
エクセルの2ページ目の作り方
-
Excel 行の連続データを列に参...
-
エクセル・数値が変化したらカ...
-
Excel)軽いデーターのはずなの...
-
【Excel】複数セルにまたがる文...
-
エクセルVBA/イベント発生でコ...
-
エクセル コピーしたデータを1...
-
エクセルで「コピーしたセルの...
-
MacBookのnumbersでの表作成に...
-
EXCEL2000:数式の途中から書式...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】オートフィルターの...
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルで隣接していない複数...
-
メールソフト「サンダーバード...
-
Excel 行の連続データを列に参...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
Excelに、ダブルクォーテーショ...
-
エクセル 別シートへのコピー...
-
「選択範囲を解除してアクティ...
-
エクセルで、選択範囲の数値全...
-
エクセルで値だけコピーして背...
-
エクセルでの行数・列数を指定...
-
Excelでコピーした行の挿入を繰...
-
エクセルオートフィルで書式を...
-
エクセル・数値が変化したらカ...
-
エクセル コピーしたデータを1...
-
EXCELのオートフィルの設定を変...
-
エクセルVBA/イベント発生でコ...
おすすめ情報