'=========================================================================================
' 161 IME（日本語入力モード）を起動する
'-----------------------------------------------------------------------------------------
'【ヒント】
' タイトル機能に関係するマクロは、UserForm1のコードにあります。
' この標準モジュールのマクロは、おためし機能の動作用のコードです。



'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    UserForm1.Show vbModeless                   'ユーザーフォームをモードレスで表示する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub OptionButton1_Click()
    Application.ScreenUpdating = False      '画面を更新しない
    ActiveSheet.Unprotect                   'シート保護を解除する
    Range("G9").Select                      '対象セルを選択する
    IMEをひらがなに設定する                  '◆◆◆
    ActiveSheet.Protect                     'シート保護する
    Range("M15").Select                     'カーソルを移動する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton2_Click()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("G9").Select
    IMEをオフに設定する                         '◆◆◆
    ActiveSheet.Protect
    Range("M15").Select
End Sub
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Deactivate()
    Unload Me
End Sub
'-----------------------------------------------------------------------------------------
Private Sub IMEをひらがなに設定する()           '◆◆◆
    Selection.Validation.IMEMode = xlIMEModeHiragana
End Sub
'-----------------------------------------------------------------------------------------
Private Sub IMEをオフに設定する()               '◆◆◆
    Selection.Validation.IMEMode = xlIMEModeOff
End Sub
'=========================================================================================