Excel VBA質問箱 IV

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

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


14287 / 76734 ←次へ | 前へ→

【67946】Re:結合セルの保護について
発言  Jaka  - 11/1/18(火) 14:51 -

引用なし
パスワード
   ▼しおん さん:
>入力可能な結合セルにパスワード付で保護したい
>※2重ロックされることになります。

いまいち2重ロックの意味が解っていませんが、
ワークシートのチェンジイベントで制御するような?
制御したいセルであったら、まずは書き込まれた物を変数に一時保存、
Undoで、元の状態に戻して、パスワードを要求。
パスワードがあっていれば、変数に一時保存したものをセルに書き込む。
ってな感じでしょうか。

B2が左上に当たる結合セルとして、おおざっぱだけど。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim 一時保持 As Variant
If Target.Cells(1).Address(0, 0) = "B2" Then
  Application.EnableEvents = False
  一時保持 = Target.Cells(1).Value
  Application.Undo
  ans = InputBox("パスワードを入力してください。")
  If ans = "123" Then
   Target.Cells(1).Value = 一時保持
  Else
   MsgBox "パスワードが違います。"
  End If
  Application.EnableEvents = True
End If
End Sub

3 hits

【67937】結合セルの保護について しおん 11/1/18(火) 10:21 質問
【67946】Re:結合セルの保護について Jaka 11/1/18(火) 14:51 発言
【67950】ちょっと改良 Jaka 11/1/18(火) 16:18 発言
【67979】Re:ちょっと改良 しおん 11/1/20(木) 14:36 質問
【67980】Re:ちょっと改良 Jaka 11/1/20(木) 15:30 発言
【67948】Re:結合セルの保護について ぴかる 11/1/18(火) 15:20 発言

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