パスワードによるシートの保護＆解除方法

質問

エクセルのＶＢＡでパスワードを使ってシートの保護、解除を
したいのですが、参考書どおりに入力しても、うまくできません!!(ё_ё)
どなたかうまくできる方法教えてください。

回答No.4

hana-hana3 · ベストアンサー

＞ActiveSheet.Unprotect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, password:="abc"

最初のコードは「Unprotect」では無かったですよね。
Unprotect の場合、「password:="abc"」しか指定出来ません。

また、シートをアクティブにする必要が無いのなら、
WK1.Select
ActiveSheet.Unprotect
などというコードを書くのは止めましょう。
WK1.Unprotect
と書くのがスマートです。

WK1.Unprotect password:="abc"

解らない事があったら、ＶＢＡのヘルプも活用してください。
Unprotectの部分にカーソルを置いて、[F1]キーでヘルプが参照できます。

お礼

既にパスワードでシート保護がかかっているものに対しての処理なので
はじめに「unprotect」でシート保護解除のコードを入れています。
そして、処理終了直前に、「protect」してマクロ終了する…とゆう感じです。

unprotectの場合は、パスワードしか指定できないんですね。
なるほどー!!教えていただいたとおりにしたらきちんと動きました。
どうもありがとうございました。

今後は、ＶＢＡのヘルプも活用し、自分でうまくできるようにがんばります。

回答No.3

hana-hana3

＞「実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。」

いろいろな理由で表示されます。
この行の前後（出来れば全文）のコードも見て見たいのですが。

補足

一応前後のコードはこれです。

Sub データ移行()

Set WK1 = Worksheets("a")
Set WK3 = Worksheets("b")

Application.ScreenUpdating = False

WK1.Select
ActiveSheet.Unprotect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, password:="abc"

WK3.Select
ActiveSheet.Unprotect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, password:="abc"

Dim A As Integer
WK3.Select
A = Range("A2").CurrentRegion.Rows.Count
WK3.Range("A2:K" & A).ClearContents

回答No.2

hana-hana3

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, password:="abc"

"_" の前に、半角スペースを１個いれました。
それで問題なく出来てますよ。

何かエラーが出るのですか？

補足

んーー、ダメです(T-T)
「実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。」
と表示されます。
このプログラムを入力する前に何か設定しなきゃいけないんでしょうか??
なぜうまくいかないのかなぁ↓↓

回答No.1

hana-hana3

＞参考書どおりに入力しても、うまくできません!!(ё_ё)

どのように書いたのですか？
コードを見せてください。

補足

ActiveSheet.Protect DrawingObjects:=True,Contents:=True,_
Scenarios:=True,password:="*****"←*****にパスワードを英数字で入れました。