PCメモ

Excelを中心とした業務改善の記録

2021-08-14から1日間の記事一覧

ExcelにVBAでパスワードをかける

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…