| |
▼夜勤担当 さん：
>こんにちは
>
> 以下のVBAを実施するときに、あるPasswordを知らないと、実施できないように
>したいですが、対応方法は分からなくて、ご指導してください。
>よろしくお願いします。
>分からないことは、
>1.コード内にあるPasswordを仕込む方法
>2.step_005を実施すると、パスワード入力要求の処理が分からない
>3.入力されたパスワードと仕込んだpasswordと比較して、
> Trueの場合は、実施
> falseの場合は、終了
>
>Sub step_005()
>Dim sheet1 As Worksheet
>Set sheet1 = Worksheets("Sheet1")
>sheet1.Protect Password:="password", _
>AllowFormattingCells:=True
>End Sub
inputboxでパスワードを要求する方法です。
Sub step_005()
Dim sheet1 As Worksheet
Dim res As String
Set sheet1 = Worksheets("Sheet1")
res = Application.InputBox("パスワードをどうぞ", Title:="パスワード入力", Type:=2)
If res = "password" Then
sheet1.Protect Password:="password", _
AllowFormattingCells:=True
Else
MsgBox "パスワードが違います。 残念！"
Exit Sub
End If
End Sub
「*********」のように表示するには、ユーザーフォームを使い
Textboxを利用するとできると思います。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
