Excel VBA質問箱 IV

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

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


22782 / 76738 ←次へ | 前へ→

【59333】Re:シート保護のパスワードを利用して
回答  arajin  - 08/12/6(土) 20:37 -

引用なし
パスワード
   ▼プリ さん:
>arajin さんありがとうございます。
>見事に出来ました。
>ActiveCell.Value = 12 は、2回記述されてますが、1回にすることは出来ますか?

そんなのは、自分で工夫して欲しいところでっせ。

そういうのは、もうコーディング者の好みだと思いますけどね。

Private Sub CommandButton1_Click()
Dim ret As Variant
Dim f As Boolean
With ActiveSheet
  f = .ProtectContents
  If f Then
    ret = Application.InputBox("パスワードをどうぞ", Title:="パスワード入力", Type:=2)
    If VarType(ret) = vbBoolean Then Exit Sub
    On Error GoTo ErrHndl
    .Unprotect ret
    On Error GoTo 0
  End If
  ActiveCell.Value = 12
  If f Then .Protect ret
End With
Exit Sub
ErrHndl:
  MsgBox Err.Description, vbExclamation
End Sub

とかですかね〜。

まあ、ご自分の好みにあう方法を探ってみて下さいよ。
1 hits

【58968】シート保護のパスワードを利用して プリ 08/11/20(木) 19:29 質問
【58969】Re:シート保護のパスワードを利用して ponpon 08/11/20(木) 21:31 発言
【58988】Re:シート保護のパスワードを利用して プリ 08/11/21(金) 18:18 お礼
【58989】Re:シート保護のパスワードを利用して ponpon 08/11/21(金) 19:55 発言
【58990】Re:シート保護のパスワードを利用して プリ 08/11/21(金) 21:07 お礼
【58991】Re:シート保護のパスワードを利用して ponpon 08/11/21(金) 22:10 発言
【59330】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 17:54 発言
【59331】Re:シート保護のパスワードを利用して arajin 08/12/6(土) 18:47 回答
【59332】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 19:33 お礼
【59333】Re:シート保護のパスワードを利用して arajin 08/12/6(土) 20:37 回答
【59336】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 23:59 お礼

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