人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルでマクロを作り登録しています。
シートの保護を設定するとマクロが作動しません。
色んなマクロに単にコピー&貼り付けをすれば、シートの保護を設定してもマクロが作動するコードをどなたか教えていただけませんでしょうか?
既に登録しているマクロのコードのココに貼り付けたらできますよ〜みたいな簡単にできるようお願いします。
友人に作ってもらったマクロなので、色を付けたり並べ替えたりする色んなマクロがあるんです・・・

簡単にできましたらポイントは必ず弾みます!よろしくお願い致します。

●質問者: go4649
●カテゴリ:コンピュータ 生活
✍キーワード:エクセル コピー コード ポイント マクロ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● 和食器屋koba
●100ポイント

http://www.yahoo.co.jp/

Yahoo! JAPAN

URLはダミー


マクロ開始時にシートの保護を解除し、

終了時に再度保護をするようにしてはどうでしょうか。


シート保護解除:

ActiveSheet.Unprotect Password:=”pass”


間に必要なマクロを入れる


再度シート保護:

ActiveSheet.Protect Password:=”pass”, DrawingObjects:=True, _

contents:=True, UserInterfaceOnly:=True

http://www.moug.net/

?X?L???A?b?v?E????????????[?O?????????I?@?????R?~???j?e?B?T?C?g?@???[?O

またこのサイトでVBAなどの機能を詳しく調べることができます。

◎質問者からの返答

ばっちりです!

本当に本当にありがとうございました!

すっごく助かりました!

またよろしく宜しくお願いします!


2 ● yuki_n
●100ポイント

http://www.hatena.ne.jp/

はてな

URLはダミーです。


質問内容から、ある程度は操作できる前提で。。


ブックを開いて、VBエディターを開いたら、

ThisWorkbook がツリーの中にあると思いますが、

それを選択していただいて、


下記をコピペ


Private Sub Workbook_Open()

For Each wSheet In Worksheets

wSheet.Protect UserInterFaceOnly:=True

Next wSheet

End Sub


内容を説明いたしますと。

ブックを開いたときに、ブック内の全シートを保護しています。

但し、『ユーザーインターフェースのみ』をです。

マクロに関しては自由自在に編集できます。


基本的には下記の部分で処理を行っているので、

wSheet.Protect UserInterFaceOnly:=True

wSheetの部分を

Sheets(”シート名”) という風にすれば、

好きなシートのみを保護することが可能でしょう。

パスワードを設定したいときは、


wSheet.Protect Password:=”任意のパスワード”, UserInterFaceOnly:=True


という感じで出来ると思います。


ちなみに、ブックを開いたときにしなければいけないわけでは無いですが、

一度ブックを閉じると、上記属性はなくなってしまい、また全ての保護がかかってしまうらしいです。

なので、ブックを開くたびに設定するように仕込んでおくと後々面倒が無くて便利だと思われます。


こんな感じでよろしかったでしょうか。。

先の方と被ってしまっているかなぁ。。

◎質問者からの返答

ありがとうございます!

1番の方で解決しましたが、きちんと

お礼させていただきます!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ