- ベストアンサー
マクロについて教えて下さい。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
VBE画面でプロジェクトエクスプローラを確認します。 当該のブックのVBAProjectを右クリックしてプロパティを出し，保護のタブで表示用にロックをチェック，パスワードを２回入れてOK，ブックを保存して開き直します。
関連するQ&A
- エクセルのシート保護をマクロのボタンで
ご教示下さい。 エクセルでのシート保護の設定をボタン一つで出来るようにと思い、マクロの自動記録で作成してみましたが、設定したはずのパスワードが記録されていません。 シート保護の解除にパスワードの入力が必要なようにする、シート保護のマクロは出来るでしょうか？。 どなたか、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA マクロ保護
VBA マクロ保護 VBAProject 保護はツールにて保護パスワード設定しています！ 私が作ったもので、コマンドボタンをクリックしたら指定された フォルダにコピー（例；Sheet１のみコピー）できるようにしています！ そこのコピーのフォルダを開き、ブックを開いてみると シート保護はされていますが コードの表示にパスワード設定がなく、そのまま見えてしまいます。 そこで質問なのですが コードの表示を見れなくさせるために VBA記述でコピーするときにVBAProjectにパスワード設定させたいです。 ちなみにVBAProject本体には、パスワード設定しています。 どのようにすれば良いか？記述を教えてください！
- ベストアンサー
- オフィス系ソフト
- エクセル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 そこで、各ボタンのクリック時に、パスワードを聞いてきてくれるコードを書き加えたいのです。 わかる方がいらっしゃいましたら、是非教えてください！！ コードに関して素人ですので、できたら、全体を通してコードを教えて頂ければ助かります。 いろいろ探してみたのですが、ギブアップです。 宜しくお願い致します。
- 締切済み
- その他（プログラミング・開発）
- マクロでタイムレコーダーを作りたいのですが・・
マクロを使ってタイムレコーダーを作っています (マクロの勉強用です) ユーザーフォームで社員コードを入力し、出社をクリックすると エクセルシートに記録されるようにしたいのですが、どのように書けばいいか わかりません。 フォームにテキストボックスを作り、下に出社ボタンを作りました。 テキストボックスに数字を入力し、出社ボタンを押すというのが手順 なのですが、 社員コードから「どこに出社時刻を入力すればよいか」を判断させ、 ボタンを押した時刻を入力できるようにしたいです。 手順として、社員コードを入力し、出社ボタンを押すと、エクセルシートを 検索し、合致する社員コードを見つけ、見つかったらそこの列の今日の日付の 部分に時刻を入力・・となるのかな？と思うのですが。。 はっきりいってさっぱりです。。ご存知の方、ご教授ください。
- ベストアンサー
- Visual Basic
- マクロが実行できません
Excel97を使っています。 あるワークブックに4枚のシートがあります。 全てのシートはパスワード付きで保護しています。 VBAProjectのプロパティもパスワード付きで保護しています。 4枚の内の1枚のシートにコマンドボタンを配置して、そのコマンドボタン押下時に、次の動作をするコードを記述しています。 (1)YesNoの確認ダイアログを出す (2)Yesであれば現在のシートをテキスト区切りファイルとして保存する (3)Noであれば何も動作しない ところが、コマンドボタンを押して、確認ダイアログの“はい”ボタンを押すと、「実行時エラー'1004': 'SaveAs'メソッドは失敗しました:'_workbook'オブジェクト」というエラーが出てマクロがストップしてしまいます。 一旦VBAを開いて、VBAProjectのプロパティのパスワード付き保護を解除すれば、正常に動作します。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記録について
エクセル2007でマクロ１の記録を行い「更新」ボタンにマクロ１を設定しています。Sheet1からSheet12迄の入力データを「更新」ボタンクリックで 削除するように記録しています。 Sheet1からSheet12をシート保護した場合マクロ１は実行エラーになり 各シートを保護解除すると正常に実行します。 Sheetがまたがるマクロの記録はシート保護をするとだめなのでしょうか？ 各Sheet共入力セル以外をロックしたい為、シート保護をかけようと思います。
- ベストアンサー
- その他([技術者向] コンピューター)
- マクロでExcelパスワードを入力する方法
教えて頂きたいのですが、 今Excelのフォームボタンにマクロを使って、 別のExcelファイルを開けるように設定していますが、 そのファイルにパスワードを掛けており、フォームボタンを押すと、 まず、そのパスワード入力のダイアログが出ます。 それを、フォームボタンを押したときのマクロに組み込み、 パスワード入力のダイアログを出さずに開く事って可能でしょうか？ 現在のフォームボタンに登録しているマクロの記述は下記の通りです。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub Macro11() ' ' Macro11 Macro ' マクロ記録日 : 2008/9/25 ユーザー名 : ************ ' ' Range("I29").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー I29にハイパーリンクにてアドレスを入力しているだけのものです。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ コンボボックスリスト
sheet1の場所でボタンクリックでフォーム表示。その中でコンボボックスリストを作成。 sheet3にデーターをA列に作りました。 １）フォームの中のコンボボックスをクリックしてリスト表示させた い。マクロの記述を教えてください。 ２）コンボボックスリストに表示した文字をsheet2に記録するボタンを作ったがマクロの記述を教えてください。
- ベストアンサー
- オフィス系ソフト
- シート保護のパスワードは・・・
下の「シート保護」マクロは、パスワード「111」でシートを保護しなさい。 「シート保護解除」マクロは、パスワード「111」でシートの保護解除をしなさい。 という命令だと思うのですが・・・ Sub シート保護() ActiveSheet.Protect possword = "111" End Sub Sub シート保護解除() ActiveSheet.Unprotect possword = "111" End Sub パスワードを入力してシートの保護を解除しようとすると、 入力したパスワードは間違っています。 CapsLockキーがオフになっていることを確認し、 大文字と小文字が正しく使われていることを確認してください。 というメッセージが出るのですが・・・、 マクロで作成した保護は、マクロで解除しないとダメという意味なのですか？ シートで保護解除できるようにしたいのですが、できますか？
- ベストアンサー
- Visual Basic
- シート保護の解除方法
シート保護の解除方法 EXCEL2007を使っています。 自分で作ったワークシートに保護の設定をしました。 セルを一部修正するため、保護を解除したいのですが、 校閲タブの中の「シート保護の解除」ボタンが灰色になっていて、 クリックできません。 パスワードを設定していないことは間違いありません。 シート保護を解除する方法をお教えください。
- ベストアンサー
- その他MS Office製品
お礼
早速の回答有難うごさいます。 回答の方法で問題を解決できました。