No.5
- 回答日時:
Static(静的変数)でコマンドボタンがクリックされたか否かを判定するというやり方が一般的です。
Private Sub CommandButton1_Click()
Static isClick As Boolean
If Not isClick Then
isClick = True
Debug.Print "Test!"
isClick = False
End If
End Sub
No.3
- 回答日時:
質問内容と意図が不明ですが・・・。
Worksheets("Sheet1")にCommandButton1が配置されているとします。
ブックをオープン時にパスワードを要求します。
一致しなければ、CommandButton1を無効化します。
1,コードを表示。
2,[挿入]-[標準モジュール]をクリック。
3,Module1に以下のコードを書く。
Option Explicit
Const conPassword = "abc"
Public Sub Auto_Open()
Dim strPassword As String
strPassword = InputBox("パスワードを入力して下さい!")
Worksheets("Sheet1").CommandButton1.Enabled = CBool(strPassword = conPassword)
End Sub
*難点は、オープン時のみに有効・無効を設定し途中で変更できないことです。
*コマンドボタンのクリックイベントに書けば良いかも知れません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) ユーザーフォームでのリストボックス連動(VBA) 3 2022/11/28 11:41
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
マクロボタンをある条件の時にだけ、表示させたいのですが・・・
その他(Microsoft Office)
-
VBAコマンドボタンを押すたびに、データ取得させたい。
Visual Basic(VBA)
-
別のユーザーフォームのコマンドボタンを押す
Visual Basic(VBA)
-
-
4
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
5
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
6
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
7
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
8
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
9
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
10
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
11
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
12
モジュールからフォームのボタンをクリックするには?
Access(アクセス)
-
13
VBAです。ユーザーフォームの表示させ、標準モジュールを読み込ませる方法について
Visual Basic(VBA)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
16
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
17
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
18
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
19
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel実行時エラー-2146959355?
-
パソコンに何かが勝手にダウン...
-
web上からシェルを走らせる方法
-
管理者として実行を毎回すると...
-
EXCEL-VBAでコマンド...
-
パソコンのスクリーンセーバー...
-
エクセルVBA、ステップモードと...
-
latexでのエラー
-
UWSCに詳しい方1クリックで複数...
-
起動したアプリケーションを最...
-
XPパソコンのレスポンスの遅さ
-
PC版のMinecraftが応答なしにな...
-
raspberry pi ,Linux でのプロ...
-
【急いでます!】pythonでキー...
-
VBA:Callステートメントでいつ...
-
Ruby 文字化け対策
-
ランタイム関数とは何ですか?
-
eclipseで、「ポート番号が使用...
-
ATOMは何の略ですか
-
ターミナルからemacsへのコピペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンに何かが勝手にダウン...
-
パソコンのスクリーンセーバー...
-
Excel実行時エラー-2146959355?
-
chatGPTで次々と質問をしていく...
-
PC版のMinecraftが応答なしにな...
-
VSコード
-
プログラミングについてです。...
-
latexでのエラー
-
VB.NETでボタンのクリックイベ...
-
管理者として実行を毎回すると...
-
エクセルVBA、ステップモードと...
-
Windows10 で青鬼を遊びたいの...
-
EXCEL-VBAでコマンド...
-
eclipseで、「ポート番号が使用...
-
プログラム実行中に強制停止さ...
-
VB.NETでDataTableにデータ追加...
-
pythonで他のアプリを操作する...
-
COBOLで集団項目から符号...
-
実行中のVBSをタスクバーに非表...
-
C言語再帰アルゴリズム
おすすめ情報