|
▼プリ さん:
>説明不足です申し訳ありません。
>(1)ユーザーフォームです
ユーザーフォームですか?
>(2)ActiveCellのアドレスは決まっていません。
>(3)シートの保護は手動です。
> 保護されていない場合もあります。
こんな感じかなぁ・・・
標準モジュールで確かめてよければコマンドボタンで
実行してみてください。
ActiveSheetやActiveCellを使っているので不確実だとは思いますが・・
Sub test()
Dim res As String
If ActiveSheet.ProtectContents = True Then
res = Application.InputBox("パスワードをどうぞ", Title:="パスワード入力", Type:=2)
If res = "password" Then
Sheet1.Unprotect Password:="password"
ActiveCell.Value = 12
Else
MsgBox "パスワードが違います。 残念!"
Exit Sub
End If
Else
ActiveCell.Value = 12
End If
End Sub
|
|