﻿Attribute VB_Name = "SCStdNoConfirm"
Attribute VB_Base = "0{B1901B8B-B98F-46DB-9B05-26B8F004FEB1}{83C2F9F0-0C2F-48AA-81A1-041F591E735E}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Option Explicit

Public Confirmed As Boolean

Private Sub UserForm_Initialize()
    Confirmed = False
    Me.caption = "SquareClick Standard - 適用しない確認"
    lblInfo.caption = "この文書には、今後SquareClickを自動適用しません。" & vbCrLf & vbCrLf & _
                      "この設定は後から変更できます。" & vbCrLf & vbCrLf & _
                      "よろしいですか？"
    cmdYes.caption = "はい"
    cmdCancel.caption = "キャンセル"
End Sub

Private Sub cmdYes_Click()
    Confirmed = True
    Me.Hide
End Sub

Private Sub cmdCancel_Click()
    Confirmed = False
    Me.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Confirmed = False
        Cancel = True
        Me.Hide
    End If
End Sub
