Bom dia!!

1) Quando clicar em DINHEIRO, que ocultar Todas as células em Verde, Bloqueando-as.

Não há células em verde!

2) Quando clicar em CHEQUE, desbloquear as Células Y17, Z18, Y19, Y20 e Z21, e ocultar o intervalo para TRANSFERENCIA BANCÁRIA, bloqueando-o.

Lembre se que suas CheckBox's estão nas linhas que serão ocultas, não é adequando.

Veja como ficaria

Private Sub CheckBox1_Click()
        Dim Rnd As Range '<-Linha acrescentada
        Set Rng = Range("15:21") '<-Linha acrescentada
        
    If CheckBox1.Value = True Then
        ActiveSheet.Unprotect
        Rng.Rows.Hidden = CheckBox2.Value '<-Linha acrescentada
        CheckBox2.Value = False
        CheckBox2.Enabled = False
        CheckBox3.Value = False
        CheckBox3.Enabled = False
        
        Range("C2").Select
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        CheckBox2.Enabled = True
        CheckBox3.Enabled = True
        Range("C2").Select
        ActiveSheet.Protect
    End If
End Sub

Att

Alexandre,
Coloquei as células em verde no arquivo anexo.
Ao clicar em DINHEIRO, dá o erro de pasta protegida, e não percebi outra mudança.
Grato,
Pedro

Bom dia!!

Você testou o meu código? nele eu só acrescentei para ocultar (não valera de nada ocultar, sendo que suas checkbox's estão nas mesmas linhas que serão ocultadas), eu não verifiquei os detalhes de sua rotina.

Eu recomento que você faça uma revisão, pois quando a guia ou arquivo recebe bloquei, fica complicado.

Att