Sub 保存()
With ThisWorkbook
    .Save
End With
End Sub

Sub シート保護()
With Worksheets(1)
    If .ProtectContents <> True Then
        .Range("J1") = "＊保護＊"
        .Protect
    End If
End With
End Sub

Sub シート解除()
With Worksheets(1)
    .Unprotect
    .Range("J1") = "＊解除＊"
End With
End Sub

Sub 印刷()
With ActiveSheet
    .PrintOut
End With
End Sub

Sub data_clear()
With ActiveSheet
    .Range("C4:D34").ClearContents
    .Range("F4:F34").ClearContents
    .Range("I4:I34").ClearContents
End With
End Sub

Sub 休憩設定()
Dim i As Integer
With Worksheets(1)
    For i = 4 To 34
        If .Cells(i, 2) <> "" And .Cells(i, 2) <> "日" And .Cells(i, 2) <> "月" Then
            .Cells(i, 6) = "0:45"
        End If
    Next i
End With
End Sub