Sub Beveiligen()
ActiveScheet.Protect
End Sub

Sub BeveiligingAfzetten()
ActiveScheet.UnProtect
End Sub

Sub Bewaren()
ActiveWorkbook.Save
End Sub

Sub Sluiten()
ActiveWorkbook.Close
End Sub

Sub Afsluiten()
Application.Quit
End Sub

Sub ZICHTBAAR_MAN()
‘Zet in cel C2 dat dit de jongenslijst is
Range("C2").Select
ActiveCell.FormulaR1C1 = "6de Jongens"
‘Verberg alle rijen met namen en punten
Rows("4:29").Select
Selection.EntireRow.Hidden = True
Range("D4").Select
‘Het geslacht staat in kolom D de leerlingen staan vanaf de vierde rij 
‘tot en met de 29ste rij
For Each Geslacht In Range("D4:D29")
If Geslacht = "M" Then
Geslacht.Select
Selection.EntireRow.Hidden = False
End If
Next
‘Wacht in cel F29
Range("F29").Select
End Sub

Sub ZICHTBAAR_MEISJE()
ActiveSheet.Unprotect
Range("C2").Select
ActiveCell.FormulaR1C1 = "6de Meisjes"
Rows("4:29").Select
Selection.EntireRow.Hidden = True
Range("D4").Select
For Each Geslacht In Range("D4:D29")
If Geslacht = "V" Then
Geslacht.Select
Selection.EntireRow.Hidden = False
End If
Next
Range("F29").Select
End Sub
 
Sub BUIS_AUTOMAT()
‘Automatisch buizen bij minder dan 3, markeren bij afwezig en gekwetst
‘Eerst de vorige kleuren verwijderen
    Range("E4:AA29").Select
        Selection.Interior.ColorIndex = xlNone
    For Each punt In Range("E4:AA29")
        If Not (IsNumeric(punt)) Then GoTo Gaverder
        If punt = "" Then GoTo Gaverder
        If punt = "X" Then GoTo Gaverder
        If punt.Value < 3 Then
            punt.Font.Bold = True
            punt.Font.Italic = True
            punt.Font.Underline = xlUnderlineStyleSingle
            With punt.Interior
            .ColorIndex = 8
            .Pattern = xlSolid
            End With
        End If
Gaverder:
    Next
    For Each gekwetst In Range("E4:AA29")
        If gekwetst = "X" Then
            gekwetst.Font.Bold = True
            With gekwetst.Interior
            .ColorIndex = 8
            .Pattern = xlSolid
            End With
        End If
    Next
    For Each afwezig In Range("E4:AA29")
        If afwezig = "A" Then
            With afwezig.Font
            .Name = "Arial"
            .Size = 8
            End With
            With afwezig.Interior
            .ColorIndex = 40
            .Pattern = xlSolid
            End With
        End If
    Next
Range("C2").Select
End Sub