Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9846 / 13646 ツリー ←次へ | 前へ→

【25105】VBAの保護 えくせーる 05/5/20(金) 11:57 質問[未読]
【25108】Re:VBAの保護 m2m10 05/5/20(金) 12:51 発言[未読]
【25113】Re:VBAの保護 えくせーる 05/5/20(金) 14:26 質問[未読]
【25116】Re:VBAの保護 m2m10 05/5/20(金) 15:27 回答[未読]
【25118】Re:VBAの保護 m2m10 05/5/20(金) 15:41 回答[未読]
【25155】Re:VBAの保護 えくせーる 05/5/23(月) 9:34 質問[未読]

【25105】VBAの保護
質問  えくせーる  - 05/5/20(金) 11:57 -

引用なし
パスワード
   シートは保護はしないで、(コントロールも移動不可で)
VBA中身の閲覧・編集を禁止する方法を教えてください。

お願いします。

【25108】Re:VBAの保護
発言  m2m10  - 05/5/20(金) 12:51 -

引用なし
パスワード
   VBA で プロジェクトのパスワードの作成ですか。

【25113】Re:VBAの保護
質問  えくせーる  - 05/5/20(金) 14:26 -

引用なし
パスワード
   ▼m2m10 さん:
>VBA で プロジェクトのパスワードの作成ですか。

そうです。
コードを保護するためです。

どうやるんでしょうか?
お願いします。

【25116】Re:VBAの保護
回答  m2m10  - 05/5/20(金) 15:27 -

引用なし
パスワード
   通常のパスワードで無く マクロで付けるんですね。
SendKeys しか、しかできませんが。


Sub TEST()

  'パスワード登録する。
  With Application
   .Visible = False
 
   With .VBE.Windows(1)
     .SetFocus
     SendKeys "%TE^{TAB} {TAB}" & "PIKARU" & "{TAB}" & "aaa" & "{TAB}{ENTER}", True
   End With
   .VBE.MainWindow.Visible = False
   .Visible = True
  End With

End Sub

【25118】Re:VBAの保護
回答  m2m10  - 05/5/20(金) 15:41 -

引用なし
パスワード
   訂正

SendKeys "%TE^{TAB} {TAB}" & "aaa" & "{TAB}" & "aaa" & "{TAB}{ENTER}", True

【25155】Re:VBAの保護
質問  えくせーる  - 05/5/23(月) 9:34 -

引用なし
パスワード
   すいません。

通常のパスワード設定です。
シートを保護するような感じで…

9846 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free