全シート保護(保護の解除)のコードなんですが、パスワードを求めない形にするには下記をどうすれば良いのですか?
Sub 全シート保護の設定()
Dim Sh As Worksheet
x = Application.InputBox("パスワードを入力して下さい", Type:=3)
For Each Sh In Worksheets
Sh.Protect (x)
Next Sh
End Sub
Sub 全シート保護の解除()
Dim Sh As Worksheet
On Error GoTo ErLine
Do
x = Application.InputBox("パスワードを入力して下さい", Type:=3)
Loop While x = "False"
For Each Sh In Worksheets
Sh.Unprotect Password:=x
Next Sh
Exit Sub
ErLine:
y% = MsgBox("パスワードが違います ! 終了します", 48)
End Sub
毎度すみませんがよろしくお願いします。
No.3
- 回答日時:
こんにちは。
パスワードが、"LINERS" だとして一案。
'----------------------------------------------
Sub 全シート保護の設定()
Dim Sh As Worksheet
Const X = "LINERS"
For Each Sh In Worksheets
Sh.Protect Password:=X
Next Sh
End Sub
'---------------------------------------------
Sub 全シート保護の解除()
Dim Sh As Worksheet
Const X = "LINERS"
For Each Sh In Worksheets
Sh.Unprotect Password:=X
Next Sh
End Sub
'----------------------------------------------
以上です。
この回答への補足
ご回答有難うございます。
いただいたコードに変えて実行してみましたら、
「実行時エラー'1004' 入力したパスワードは間違っています~でデバックを求められてしまいます。
No.4
- 回答日時:
再びこんにちは。
NO.3です。>いただいたコードに変えて実行してみましたら、
「実行時エラー'1004' 入力したパスワードは間違っています
それはメッセージどおりパスワードが間違っています。
解除・設定両方のパスワード用変数宣言の
Const X = "LINERS" の LINERS を
本物のパスワードに変えて実行してますか?
本物のパスワードと
エラーのでるコードをアップしてみて下さい。
いまちょっと暇なので出来るまでお付き合いしませう。(^^;;;
以上です。
この回答への補足
お付き合いいただきすみません。
質問文のコードが今あるものなのですが、ようは単純に全シート保護(解除)の際に、パスワードを聞いてこないようにしたいのです。
超初心者なのでたまにわけのわからないことを言うと思いますがよろしくお願いします。
No.5ベストアンサー
- 回答日時:
またまたこんにちは。
>質問文のコードが今あるものなのですが、ようは単純に全シート保護(解除)の際に、パスワードを聞いてこないようにしたいのです。
それはは十二分に分っていますが、VBAの場合はコードのちょっとした部分でも違うと全く違う動作をしてしまいますので、修正したコードをアップしてくださいと言っているのですが・・・。
それと、const x="LINERS" にセットするパスワードは
大文字小文字などちゃんと区別してセットしてますか?
それもアップしたコードで確認したいのです。
尚、言わずもがなのことですが、当方がアップしたコードは完全に動作するものです・・・よ。(^^;;;
以上です。
大変失礼しました。
問題なしです。先ほどの補足は私がおかしなことをしていたためです。
最初のコード(訂正なし)の段階でパスワードは設定していなかったのです。
なのにいただいたコードのほうに素直に"LINERS"と書いてました。すみません。
>尚、言わずもがなのことですが、当方がアップしたコードは完全に動作するものです・・・よ。(^^;;;
完全に動作してます。失礼致しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユニクロやGUのシフト管理アプ...
-
LINE TCBというところからLINE...
-
Excelのセルにユーザー名...
-
iPhoneのiCloudメールなよです...
-
インスタの捨て垢で友達のスト...
-
インスタの乗っ取り解除につい...
-
YouTubeが毎回ログインしないと...
-
メールアドレスを人に教えるの...
-
メールアドレスで上付きのハイフン
-
存在しないアドレスにメールを...
-
インスタのアカウントが削除さ...
-
カカオで退会せずに、アプリだ...
-
メールアドレスから個人を特定...
-
「@」(アットマーク)の無いメ...
-
解約済みの iPadについて 解約...
-
CSVファイルを添付するときにパ...
-
携帯電話を解約してもSMSの受信...
-
韓国人アドレスnaver.com
-
メールアドレスに自分の名前
-
メールアドレスからどこまで分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルにユーザー名...
-
YouTubeが毎回ログインしないと...
-
YahooIDをパスワード形式にした...
-
インスタの捨て垢で友達のスト...
-
iPhoneのiCloudメールなよです...
-
携帯電話を解約してもSMSの受信...
-
インスタの乗っ取り解除につい...
-
「@」(アットマーク)の無いメ...
-
メールを返信したら、英語のメ...
-
メールアドレスで上付きのハイフン
-
verify@twitter.comから、メー...
-
星の王子さまというアプリで、 ...
-
CSVファイルを添付するときにパ...
-
LINE TCBというところからLINE...
-
メールアドレス 上バーの入力...
-
ユニクロやGUのシフト管理アプ...
-
インスタのアイコンについてるN...
-
インスタのアカウントの消し方...
-
高一男子です 僕が絶対に悪いん...
-
メールをパスワードつきで送る方法
おすすめ情報