- ベストアンサー
シート保護のパスワードと保護解除について
trytrytryの回答
- trytrytry
- ベストアンサー率37% (13/35)
どもです。 惜しいですね、ちょっとした記述ミスです。 オブジェクト(ActiveSheets)とメソッド(Protect)は合ってます。 でメソッドの引数がちょっとだけ間違ってます。 possword = "111" '元 password:="111" '修正後 これで試してみてください。 Unprotectも同じです。
関連するQ&A
- エクセル97 フォームシートの保護をする時に出る"パスワード"をコード化させたい
「表示－ツール－フォーム」でボタンを作りました。 そして、マクロの自動登録で「シートの保護」を選び「パスワード：password」を設定し、更に「password」で保護解除をし、マクロ記録終了。 そして、各コードを「シートの保護」：ボタン３、「シートの解除」：ボタン２、に設定しました。 それらを実行させてみたのですが、特に「パスワード：password」を聞かれることなく一連の作業が終了してしまいました。 コードは以下のとおりです。 Sub ボタン2_Click() ' ' ボタン2_Click Macro ' マクロ記録日 : 2004/2/9 ユーザー名 : **** ' ActiveSheet.Unprotect End Sub -------------------------- Sub ボタン3_Click() ' ' ボタン3_Click Macro ' マクロ記録日 : 2004/2/9 ユーザー名 : **** ' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub そこで、各ボタンのクリック時に、パスワードを聞いてきてくれるコードを書き加えたいのです。 わかる方がいらっしゃいましたら、是非教えてください！！ コードに関して素人ですので、できたら、全体を通してコードを教えて頂ければ助かります。 いろいろ探してみたのですが、ギブアップです。 宜しくお願い致します。
- 締切済み
- その他（プログラミング・開発）
- パスワードでシート保護したExcelへの画像貼り付けについて
Excel2000でロックしていないセルに画像を貼り付けようと思います。 パスワードでシート保護しています。 VBAで次のように処理したら画像は貼り付けられました。 しかしパスワード入力を求められ、入力すると画像の挿入後シートは保護されたのですが、パスワードは解除になっています。 パスワード解除にならずに画像挿入できる方法をご教示ください。 さらに挿入後のサイズ変更のVBAも併せて教えて頂ければ助かります。 当方VBAについては全くの初心者です。 Sub 画像挿入() With ActiveSheet 'シート保護解除 .Unprotect '画像挿入ダイアログ表示--＞画像を挿入 Application.Dialogs(xlDialogInsertPicture).Show '画像が挿入されたら、保護のロック対象外に設定 If TypeName(Selection) = "Picture" Then Selection.Locked = False End If 'シート保護 .Protect DrawingObjects:=False, Contents:=True End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルシート保護のパスワード【文字コード】
マクロを使って、シート保護を外そうとしています。 文字コードで詰まってしまいました。 たとえば、シートをパスワード『11』で保護したとします。 pass = "11" ActiveSheet.Unprotect Password:=pass もちろん上記で解除できます。 pass = Chr(49) & Chr(49) 上記に変更しても解除できます。（「1」の文字コードが49なのでこれはわかります。） pass = Chr(33) & Chr(57) ところが、上記でも解除が出来てしまいます。（つまり、「!9」で解除できます。） なぜなのでしょうか。。。。
- ベストアンサー
- その他MS Office製品
- 行ごとに保護するマクロにパスワードを付けたい
Excel2010を使用しております。 A列に「承認」という文字が入ると、その行が保護されるマクロがあります。 今の状態ですと、［校閲］-［シート保護の解除］を押すと解除されてしまいますので 保護を解除する際にパスワードを設定したいのですが上手く行きません。 どうかお助け下さい。宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r, rng As Range Set rng = Intersect(Target, Columns(1)) If Not rng Is Nothing Then If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect End If For Each r In rng If r.Value = "承認" Then r.EntireRow.Locked = True Else r.EntireRow.Locked = False End If Next r ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFormattingCells:=True End If End Sub
- ベストアンサー
- その他MS Office製品
- シートの保護について
特定のセル("C3:I3")を編集不可にしたいのですが、 下記プログラムにするとすべてのセル（シート）が保護されてしまいます。 どこがおかしいのでしょうか。 Private Sub CommandButton1_Click() ActiveSheet.Unprotect ・・・・・・・・・・ Range("C3:I3").Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
- 締切済み
- Visual Basic
- 一括保護のマクロにパスワードをかける方法
エクセル作った表、20シートを一括保護・解除をマクロを使い（どなたかの回答をコピーして）作成しました。保護・解除はできたのですが、このマクロにパスワードをかけ、保護の解除が他の人に出来ないようにしたいのですが、どのようにすれば良いのでしょうか？ つかったマクロは・・・ 『保護』 Sub シートの保護() 'Dim～として変数を宣言する Dim myWS As Worksheet 'myWSを「ワークシート」として宣言 'ブック中のシート全部を1枚ずつ以下の作業を繰り返す For Each myWS In Worksheets With myWS 'myWSで .EnableSelection = xlUnlockedCells 'ロックしていないセルを選択出来るように .Protect '保護する End With 'With myWSに対する締め Next myWS 'Forに対応するもの End Sub 『解除』 Sub シートの保護解除() Dim myWS As Worksheet Application.ScreenUpdating = False For Each myWS In Worksheets myWS.Unprotect Next myWS Application.ScreenUpdating = True MsgBox "シート保護解除しました。" End Sub 『Workbook』 Private Sub Workbook_Open() Dim myWS As Worksheet For Each myWS In Worksheets With myWS .EnableSelection = xlUnlockedCells .Protect End With Next myWS End Sub この3つです。VBA初心者で、わかりにくい説明ですが、よろしくお願いいたします。
- ベストアンサー
- Windows XP
- 保護の解除・設定
いつもありがとうございます。 現在シートの保護がパスワード入りでかかっています。 マクロで保護を解除するときに、 パスワードを入力不要で解除できませんか？ また、引続きシートを保護するときに、 パスワードを入力しないで、元の、パスワードで、 保護が出来るでしょうか？ 現在は、下記のようになっています。 （マクロの記録でしか作れませんので・・、） ActiveSheet.Unprotect ActiveWindow.SmallScroll Down:=24 Range("B50:X69").Select Selection.Copy ActiveWindow.LargeScroll Down:=-2 ActiveWindow.LargeScroll ToRight:=-3 ActiveWindow.SmallScroll Down:=-9 Range("B1").Select ActiveSheet.Paste Range("B2").Select Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 以上、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- エクセル マクロ コピー→シート保護解除→貼付
いつもお世話になっております。 マクロ勉強中の者です。 ２つの別ブックのシート（互いに任意）を同時に開いている前提での作業です。 (1)あるブックのシート（任意）は，シート保護が施されています。このシートのシート保護の解除をします。 (2)(1)で示したブックとは別のブックのシート（任意）に，次のようなマクロを設定してあり，指定した範囲のコピーを行います。 Sub コピー() コピー Macro Range("E6:AI73").Select Selection.copy End Sub (3)次に，(1)で示したブックのシート（任意）に次のようなマクロを設定してあり，先ほどコピーした内容を貼り付けます。 Sub 貼り付け() Range("E6").Select ActiveSheet.Paste ActiveSheet.Protect End Sub (4)(1)で示したシートには，(2)で行ったコピーの内容を貼り付け，シート保護された状態で作業が終わります。 この一連の作業の中で，(1)の作業を省けないかと考えています。つまり， 別ブックのシートを２枚開いている状態で， ◎あるブックのシートの内容をコピー（範囲指定あり） →◎別のブックのシートに，シート保護解除して(2)でコピーした内容を貼り付け，（セル指定あり）シート保護して終了 (3)で示したマクロに ActiveSheet.Unprotect を付け加えて実行してみたのですが，うまくいきません。エクセルの性格上，「貼り付け」の前にシート保護解除の動作が入ることで，コピーした内容が失われ？て貼り付けることができないのかな？と感じているのですが，どなたかご教授いただけると嬉しいです。 エクセルのバージョンは，２０１６になります。
- ベストアンサー
- Visual Basic
- エクセルシート保護のパスワードが違う!?
エクセルでシートに保護をかけて、パスワードをつけました。パスワードは忘れないように書き留めておきましたが、保護を解除したくてパスワードを入れたのに「入力したパスワードは間違っています。Caps Lockキーがオフになっていることを確認し大文字と小文字が正しく使われていることを確認してください」と出てしまいます。 パスは間違っていないと思いますが、パス設定のときに入力ミスがあったのかもしれません。（設定時、確認したと思うのですが…）これって、もう、保護を解除する方法はないのでしょうか？大変困っています。
- ベストアンサー
- オフィス系ソフト
- シート保護解除のエラーで苦戦しています
シート保護解除のマクロを作成して(コピペですが）使用していました。 （順調でした・・・）事情があり、マクロの編集からパスワードを変更し、上書きし、いざ使用してみよう!!と思ったら・・・ 【実行時エラー 1004：入力したパスワードが間違っているかCapslockキーがオフになっていることを確認し、大文字小文字が正しく使われているか確認・・・】とエラーメッセージが出ました(T_T) 以前のパスワードを消し、新たなパスワードを入れたのですが、これではダメなのでしょうか? 説明がうまくできないのですが、わかる方ご回答お願いいたします<(_ _)>
- ベストアンサー
- オフィス系ソフト
お礼
掲示板上でも記述ミス・・・ passwordと入っていました。 「：」がなかったみたいです・・・。 「：」はどのような役目を果たしているのですか？ 機会がありましたら、また教えてください。 ありがとうございました。