Excelを開いた時にパスワードを入力させ、一致しなかった場合は自動で閉じる。 Sub pw() Dim st As String Dim i As Long For i = 1 To 3 On Error GoTo myError st = InputBox("パスワードを入力してください") '1234 If st = 1234 Then Exit For Else MsgB…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。