Help hoe voeg ik deze codes samen zodat ze werken

Status
Niet open voor verdere reacties.
J

jaggy1962

Gebruiker
Lid geworden
19 aug 2010
Berichten
36
Wie kan me helpen ben al de hele dag bezig maar het lukt me niet om deze codes samen te voegen.
Op onderstaande manier krijg ik een fout melding.
De codes werken zonder elkaar wel, wat doet deze beginneling fout of wil ik teveeel.
Of wie weet de oplossing voor mij.
De eerste code laat regels verbergen bij bepaalde waarden in i5 en de 2de code moet beveiligde cellen openen zodat ik deze bij Ja in cel C8 kan invullen.
Bij Nee of leeg moeten de cellen weer beveiligd zijn.
De cellen die ik wil invullen zijn F20 tm F23 en F26 tm F29.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    ProcA Target
    ProcB Target
End Sub

Private Sub ProcA(Target As Range)
If Intersect(Target, Range("C6,C7,C10")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Select Case Range("i5").Value
        Case Is = "Optima 0,4DVastGeheel staal", "Optima 0,5DVastGeheel staal", "Optima 0,6DVastGeheel staal", "Type 37 CPPVastGeheel staal", "Type 37 FPPVastGeheel staal", "HR WartsilaVastGeheel staal", "MAN 0,5DVastGeheel staal", "MAN 0,6DVastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:33,48:58,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DVastGeheel RVS", "Optima 0,5DVastGeheel RVS", "Optima 0,6DVastGeheel RVS", "Type 37 CPPVastGeheel RVS", "Type 37 FPPVastGeheel RVS", "HR WartsilaVastGeheel RVS", "MAN 0,5DVastGeheel RVS", "MAN 0,6DVastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,60:63,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DVastRing RVS", "Optima 0,5DVastRing RVS", "Optima 0,6DVastRing RVS", "Type 37 CPPVastRing RVS", "Type 37 FPPVastRing RVS", "HR WartsilaVastRing RVS", "MAN 0,5DVastRing RVS", "MAN 0,6DVastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,51:52,60:61,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DVastInlaat + ring RVS", "Optima 0,5DVastInlaat + ring RVS", "Optima 0,6DVastInlaat + ring RVS", "Type 37 CPPVastInlaat + ring RVS", "Type 37 FPPVastInlaat + ring RVS", "HR WartsilaVastInlaat + ring RVS", "MAN 0,5DVastInlaat + ring RVS", "MAN 0,6DVastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,52:52,60:62,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DVastUitlaat + ring RVS", "Optima 0,5DVastUitlaat + ring RVS", "Optima 0,6DVastUitlaat + ring RVS", "Type 37 CPPVastUitlaat + ring RVS", "Type 37 FPPVastUitlaat + ring RVS", "HR WartsilaVastUitlaat + ring RVS", "MAN 0,5DVastUitlaat + ring RVS", "MAN 0,6DVastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,51:51,60:61,63:63,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DThrusterGeheel staal", "Optima 0,5DThrusterGeheel staal", "Optima 0,6DThrusterGeheel staal", "Type 37 CPPThrusterGeheel staal", "Type 37 FPPThrusterGeheel staal", "HR WartsilaThrusterGeheel staal", "MAN 0,5DThrusterGeheel staal", "MAN 0,6DThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,48:58,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DThrusterGeheel RVS", "Optima 0,5DThrusterGeheel RVS", "Optima 0,6DThrusterGeheel RVS", "Type 37 CPPThrusterGeheel RVS", "Type 37 FPPThrusterGeheel RVS", "HR WartsilaThrusterGeheel RVS", "MAN 0,5DThrusterGeheel RVS", "MAN 0,6DThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,60:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DThrusterRing RVS", "Optima 0,5DThrusterRing RVS", "Optima 0,6DThrusterRing RVS", "Type 37 CPPThrusterRing RVS", "Type 37 FPPThrusterRing RVS", "HR WartsilaThrusterRing RVS", "MAN 0,5DThrusterRing RVS", "MAN 0,6DThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,51:52,60:61,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DThrusterInlaat + ring RVS", "Optima 0,5DThrusterInlaat + ring RVS", "Optima 0,6DThrusterInlaat + ring RVS", "Type 37 CPPThrusterInlaat + ring RVS", "Type 37 FPPThrusterInlaat + ring RVS", "HR WartsilaThrusterInlaat + ring RVS", "MAN 0,5DThrusterInlaat + ring RVS", "MAN 0,6DThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,52:52,60:62,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DThrusterUitlaat + ring RVS", "Optima 0,5DThrusterUitlaat + ring RVS", "Optima 0,6DThrusterUitlaat + ring RVS", "Type 37 CPPThrusterUitlaat + ring RVS", "Type 37 FPPThrusterUitlaat + ring RVS", "HR WartsilaThrusterUitlaat + ring RVS", "MAN 0,5DThrusterUitlaat + ring RVS", "MAN 0,6DThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,51:51,60:61,63:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DDraaibaarGeheel staal", "Optima 0,5DDraaibaarGeheel staal", "Optima 0,6DDraaibaarGeheel staal", "Type 37 CPPDraaibaarGeheel staal", "Type 37 FPPDraaibaarGeheel staal", "HR WartsilaDraaibaarGeheel staal", "MAN 0,5DDraaibaarGeheel staal", "MAN 0,6DDraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,48:58,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DDraaibaarGeheel RVS", "Optima 0,5DDraaibaarGeheel RVS", "Optima 0,6DDraaibaarGeheel RVS", "Type 37 CPPDraaibaarGeheel RVS", "Type 37 FPPDraaibaarGeheel RVS", "HR WartsilaDraaibaarGeheel RVS", "MAN 0,5DDraaibaarGeheel RVS", "MAN 0,6DDraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,60:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DDraaibaarRing RVS", "Optima 0,5DDraaibaarRing RVS", "Optima 0,6DDraaibaarRing RVS", "Type 37 CPPDraaibaarRing RVS", "Type 37 FPPDraaibaarRing RVS", "HR WartsilaDraaibaarRing RVS", "MAN 0,5DDraaibaarRing RVS", "MAN 0,6DDraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,51:52,60:61,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DDraaibaarInlaat + ring RVS", "Optima 0,5DDraaibaarInlaat + ring RVS", "Optima 0,6DDraaibaarInlaat + ring RVS", "Type 37 CPPDraaibaarInlaat + ring RVS", "Type 37 FPPDraaibaarInlaat + ring RVS", "HR WartsilaDraaibaarInlaat + ring RVS", "MAN 0,5DDraaibaarInlaat + ring RVS", "MAN 0,6DDraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,52:52,60:62,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "Optima 0,4DDraaibaarUitlaat + ring RVS", "Optima 0,5DDraaibaarUitlaat + ring RVS", "Optima 0,6DDraaibaarUitlaat + ring RVS", "Type 37 CPPDraaibaarUitlaat + ring RVS", "Type 37 FPPDraaibaarUitlaat + ring RVS", "HR WartsilaDraaibaarUitlaat + ring RVS", "MAN 0,5DDraaibaarUitlaat + ring RVS", "MAN 0,6DDraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:33,35:36,51:51,60:61,63:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
         Case Is = "19A ModifiedVastGeheel staal", "VG40VastGeheel staal", "VG50VastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,48:58,63:63,82:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedVastGeheel RVS", "VG40VastGeheel RVS", "VG50VastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedVastRing RVS", "VG40VastRing RVS", "VG50VastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,51:52,60:61,63:63,82:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedVastInlaat + ring RVS", "VG40VastInlaat + ring RVS", "VG50VastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedVastUitlaat + ring RVS", "VG40VastUitlaat + ring RVS", "VG50VastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedThrusterGeheel staal", "VG40ThrusterGeheel staal", "VG50ThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,48:58,63:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedThrusterGeheel RVS", "VG40ThrusterGeheel RVS", "VG50ThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedThrusterRing RVS", "VG40ThrusterRing RVS", "VG50ThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,51:52,60:61,63:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedThrusterInlaat + ring RVS", "VG40ThrusterInlaat + ring RVS", "VG50ThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedThrusterUitlaat + ring RVS", "VG40ThrusterUitlaat + ring RVS", "VG50ThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedDraaibaarGeheel staal", "VG40DraaibaarGeheel staal", "VG50DraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,48:58,63:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedDraaibaarGeheel RVS", "VG40DraaibaarGeheel RVS", "VG50DraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedDraaibaarRing RVS", "VG40DraaibaarRing RVS", "VG50DraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,51:52,60:61,63:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedDraaibaarInlaat + ring RVS", "VG40DraaibaarInlaat + ring RVS", "VG50DraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A ModifiedDraaibaarUitlaat + ring RVS", "VG40DraaibaarUitlaat + ring RVS", "VG50DraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalVastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,38:38,48:58,63:63,82:86,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalVastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,38:38,52:52,60:63,82:86,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalVastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,38:38,51:52,60:61,63:63,82:86,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalVastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,38:38,52:52,60:63,82:86,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalVastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,38:38,52:52,60:63,82:86,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,48:58,63:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,51:52,60:61,63:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalDraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,48:58,63:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalDraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalDraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,51:52,60:61,63:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalDraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A PlatstaalDraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,29:29,32:33,35:36,38:38,52:52,60:63,71:75,82:86,88:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalVastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:31,38:38,48:58,82:85,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalVastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,38:38,60:63,82:85,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalVastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,38:38,51:52,60:61,82:85,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalVastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,38:38,52:52,60:62,82:85,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalVastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,38:38,51:51,60:61,63:63,82:85,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,48:58,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,60:63,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,51:52,60:61,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,52:52,60:62,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,51:51,60:61,63:63,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalDraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,48:58,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalDraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,60:63,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalDraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,51:52,60:61,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalDraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,52:52,60:62,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19A RondstaalDraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:31,35:36,38:38,51:51,60:61,63:63,71:75,82:85,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPVastGeheel staal", "19B FPPVastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:32,48:58,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPVastGeheel RVS", "19B FPPVastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,60:63,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPVastRing RVS", "19B FPPVastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,51:52,60:61,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPVastInlaat + ring RVS", "19B FPPVastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,52:52,60:62,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPVastUitlaat + ring RVS", "19B FPPVastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,51:51,60:61,63:63,87:87,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPThrusterGeheel staal", "19B FPPThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,48:58,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPThrusterGeheel RVS", "19B FPPThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,60:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPThrusterRing RVS", "19B FPPThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,51:52,60:61,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPThrusterInlaat + ring RVS", "19B FPPThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,52:52,60:62,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPThrusterUitlaat + ring RVS", "19B FPPThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,51:51,60:61,63:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPDraaibaarGeheel staal", "19B FPPDraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,48:58,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPDraaibaarGeheel RVS", "19B FPPDraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,60:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPDraaibaarRing RVS", "19B FPPDraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,51:52,60:61,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPDraaibaarInlaat + ring RVS", "19B FPPDraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,52:52,60:62,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "19B CPPDraaibaarUitlaat + ring RVS", "19B FPPDraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("30:32,35:36,51:51,60:61,63:63,71:75,87:96,100:101,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingVastGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,48:58,63:63,82:87,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingVastGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingVastRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,51:52,60:61,63:63,82:87,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingVastInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingVastUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,38:38,52:52,60:63,82:87,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingThrusterGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,48:58,63:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingThrusterGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingThrusterRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,51:52,60:61,63:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingThrusterInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingThrusterUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingDraaibaarGeheel staal"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,48:58,63:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingDraaibaarGeheel RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingDraaibaarRing RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,51:52,60:61,63:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingDraaibaarInlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "WingDraaibaarUitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("23:23,25:25,27:27,29:29,30:33,35:36,38:38,52:52,60:63,71:75,82:96,148:861,863:65536").EntireRow.Hidden = True
        Case Is = "", "Vast", "Thruster", "Draaibaar", "Geheel staal", "Geheel RVS", "Ring RVS", "Inlaat + ring RVS", "Uitlaat + ring RVS"
            Cells.EntireRow.Hidden = False
            Range("148:861,863:65536").EntireRow.Hidden = True
    End Select
    Application.ScreenUpdating = True
End Sub


Private Sub ProcB(Target As Range)
If Target.Address = "$C$8" Then
Blad13.Unprotect "maarten1962"
If Target.Value = "Ja" Then
Union([F20:F23], [F26:F29]).Locked = False
Else
Union([F20:F23], [F26:F29]).Locked = True
End If
Blad13.Protect "maarten1962"
End If
End Sub

Alvast bedankt

Mvrgr Maarten
 
Laatst bewerkt:
Maarten,

Allereerst plaats de code tussen codetags #-button

Gebruik Userinterfaceonly = true (zoekfunctie zal je vast een aantal hits opleveren)
om VBA ondanks beveiliging toch wijzigingen door te laten voeren en heb je procedure B helemaal niet nodig ;)
 
E v R zei:
Maarten,

Allereerst plaats de code tussen codetags #-button

Gebruik Userinterfaceonly = true (zoekfunctie zal je vast een aantal hits opleveren)
om VBA ondanks beveiliging toch wijzigingen door te laten voeren en heb je procedure B helemaal niet nodig ;)
Klik om te vergroten...

Best Eric,
Ik heb de code tussen tags geplaatst heeft wel effe geduurd, maar dat heb je met die beginnelingen he haha.
Hoop dat je me dat niet kwalijk neemt.
Maar goed ik heb gezocht naar Userinterfaceonly = true en ook veel hier over gevonden maar begrijpen doe ik het niet echt.
Bijvoorbeeld er stond dat ik de cellen van blokkeren moest afhalen maar dit wil ik alleen als ik ja kies in cel C8.
Ook schrijf je me dat ik geen procedure B nodig hebt maar ergens anders las ik dat dit wel weer nodig was.
Hoop dat je begrijpt dat ik het nogal moeilijk vindt.
Dus zou je deze beginneling verder op weg willen helpen ik zou je zeer dankbaar zijn.
:)

Mvrgr Maarten
 
Het zichtbaar/niet zichtbaar maken van die rijen gaat niet in een beveiligd blad,
Wel met Userinterfaceonly zie hieronder.

Pas deze regel in ProcB als volgt aan:
oud:
Code: 
Blad1.Protect "maarten1962"
nieuw:
Code: 
Blad1.Protect "maarten1962", , , , True

Zorg er vervolgens wel voor dat je (in dit geval) de beveiliging er enkel op deze manier opgooit
 
Beankt maar het werkt nog niet perfect

E v R zei:
Het zichtbaar/niet zichtbaar maken van die rijen gaat niet in een beveiligd blad,
Wel met Userinterfaceonly zie hieronder.

Pas deze regel in ProcB als volgt aan:
oud:
Code: 
Blad1.Protect "maarten1962"
nieuw:
Code: 
Blad1.Protect "maarten1962", , , , True

Zorg er vervolgens wel voor dat je (in dit geval) de beveiliging er enkel op deze manier opgooit
Klik om te vergroten...

Beste Eric,

Ik heb de regel gewijzigd en het werkt.
Alleen als ik C7 of C10 als 1ste kiest krijg ik Fout 1004 tijdens uitvoering: Eigenschap Hidden van klasse Range kan niet worden ingesteld. Als ik dan beeindigen kiest kan ik wel gewoon doorgaan en op een gegeven moment werkt alles gewoon. Als ik eerst C6 en dan C7,C8 en C10 kiest gaat het wel in 1 keer goed, of is dit wat je bedoelt met de beveiliging er enkel op deze manier opgooien.
Zoja kan de code anders worden geschreven zoadat het niet uitmaakt welke cel ik als 1ste kiest dus dat ik kan kiezen in een willekeurige volgorde.
Trouwens ik kan alleen maar Help of beeindigen kiezen, foutosporing of doorgaan kan ik niet kiezen.
Oja je schrijft het zichtbaar/niet zichtbaar maken van die rijen gaat niet in een beveiligd blad, maar toen ik nog maar 1 code had d.w.z. alleen de procedure die nu onder A staat werkte alles zoals ik wilde dus het verbergen van de rijen in het beveiligde blad of bedoel je dit niet.
Het ging pas fout toe in procedure B er bij plaatste.
Hoop dat je me verder wilt helpen maar in ieder geval bedankt voor je eerdere hulp.

Mvrgr maarten:d
 
Maarten,
doe er eens een gelijkend voorbeeeldbestandje bij svp
 
Als je code uitvoert bij het event Worksheet_Change, is het altijd een goed idee om de events gedurende het hele programma uit te schakelen. Bij elke verandering in het werkblad zal het event anders opnieuw afgaan. Zo geraak je in een eindeloze lus.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ProcA Target
    ProcB Target
    Application.EnableEvents = True
End Sub

Probeer ook dit eens:
Code: 
ActiveWorkbook.Sheets("Blad13").Unprotect "maarten1962"
 
Laatst bewerkt:
Maarten, ik kan nu geen rar files openen,

Jouw foutmelding is (denk ik) zoals voorzien, eerst moet die userinterfaceonly erop voordat de macro gaat lopen. Waarschijnlijk heb je de boel eerst gewoon beveiligd.

Plaats in het code gedeelte van ThisWorkbook:

Code: 
Private Sub Workbook_Open()
Sheets("Blad13").Protect "maarten1962", , , , True
End Sub

en pas procB eens als volgt aan:

Code: 
Private Sub ProcB(Target As Range)
If Target.Address = "$C$8" Then

If Target.Value = "Ja" Then
Union([F20:F23], [F26:F29]).Locked = False
Else
Union([F20:F23], [F26:F29]).Locked = True
End If

End If
End Sub

+ even opslaan, sluiten en weer openen, dan testen
 
Laatst bewerkt:
reactie

paulva zei:
Als je code uitvoert bij het event Worksheet_Change, is het altijd een goed idee om de events gedurende het hele programma uit te schakelen. Bij elke verandering in het werkblad zal het event anders opnieuw afgaan. Zo geraak je in een eindeloze lus.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ProcA Target
    ProcB Target
    Application.EnableEvents = True
End Sub

Probeer ook dit eens:
Code: 
ActiveWorkbook.Sheets("Blad13").Unprotect "maarten1962"
Klik om te vergroten...

Beste Paulva,

Dit werkt niet of ik doe het verkeerd rijen verbergen lukt niet meer.

Mvrgr maarten
 
Reactie

E v R zei:
Maarten, ik kan nu geen rar files openen,

Jouw foutmelding is (denk ik) zoals voorzien, eerst moet die userinterfaceonly erop voordat de macro gaat lopen. Waarschijnlijk heb je de boel eerst gewoon beveiligd.

Plaats in het code gedeelte van ThisWorkbook:

Code: 
Private Sub Workbook_Open()
Sheets("Blad13").Protect "maarten1962", , , , True
End Sub

en pas procB eens als volgt aan:

Code: 
Private Sub ProcB(Target As Range)
If Target.Address = "$C$8" Then

If Target.Value = "Ja" Then
Union([F20:F23], [F26:F29]).Locked = False
Else
Union([F20:F23], [F26:F29]).Locked = True
End If

End If
End Sub

+ even opslaan, sluiten en weer openen, dan testen
Klik om te vergroten...

Eric,

Heb het geprobeerd maar het werkt niet je eerste oplossing is nog steeds de beste.
kan je trouwens ergens anders wel RAR files openen.
Zoja dan wacht ik daar wel op, zoniet kan ik je het bestand misschien mailen.
Hoor het wel maar in ieder geval bedankt.

Mvrgr Maarten
 
Maarten,
Plaats eens een bestandje waar geen wachtwoord op de sheet en het VBA-project zit...

laat maar wachtwoord maarten1962 :D
 
Laatst bewerkt:
Haal de beveiliging eraf

Plaats in het code gedeelte van ThisWorkbook:
Let op van ThisWorkbook!!!
Code: 
Private Sub Workbook_Open()
Blad13.Protect "maarten1962", , , , True
End Sub

of
Code: 
Blad13.Protect Password:="maarten1962", UserInterFaceOnly:=True

en pas procB eens als volgt aan:

Code: 
Private Sub ProcB(Target As Range)
If Target.Address = "$C$8" Then
If Target.Value = "Ja" Then
Union([F20:F23], [F26:F29]).Locked = False
Else
Union([F20:F23], [F26:F29]).Locked = True
End If
End If
End Sub

+ even opslaan, sluiten en weer openen, dan testen

Meer heb ik niet gedaan en het werkte
 
Laatst bewerkt:
Bedankt

E v R zei:
Haal de beveiliging eraf

Plaats in het code gedeelte van ThisWorkbook:
Let op van ThisWorkbook!!!
Code: 
Private Sub Workbook_Open()
Blad13.Protect "maarten1962", , , , True
End Sub

of
Code: 
Blad13.Protect Password:="maarten1962", UserInterFaceOnly:=True

en pas procB eens als volgt aan:


Code: 
Private Sub ProcB(Target As Range)
If Target.Address = "$C$8" Then
If Target.Value = "Ja" Then
Union([F20:F23], [F26:F29]).Locked = False
Else
Union([F20:F23], [F26:F29]).Locked = True
End If
End If
End Sub

+ even opslaan, sluiten en weer openen, dan testen

Meer heb ik niet gedaan en het werkte
Klik om te vergroten...

Beste Eric,

Ik wil je hartelijk bedanken zover ik het nu kan zien werkt het.
Maar ik begrijp niet wat ik gisteren nu verkeerd heb gedaan had de code wel in Thisworkbook gezet enz.
Maar goed nu doet de code het wel.
Nogmaals bedankt je hebt me hier ontzettend mee geholpen.

Mvrgr Maarten :)
 
Nog een vraagje

jaggy1962 zei:
Beste Eric,

Ik wil je hartelijk bedanken zover ik het nu kan zien werkt het.
Maar ik begrijp niet wat ik gisteren nu verkeerd heb gedaan had de code wel in Thisworkbook gezet enz.
Maar goed nu doet de code het wel.
Nogmaals bedankt je hebt me hier ontzettend mee geholpen.

Mvrgr Maarten :)
Klik om te vergroten...

Beste Eric,

Ik heb nog een vraagje hoe krijg ik onderstaande codes werkend het lukt deze beginneling weer niet.

Code: 
Private Sub Workbook_Open()
Blad13.Protect "maarten1962", , , , True
End Sub

Code: 
Private Sub Workbook_Open()
Wizard.Show
Application.DisplayAlerts = False
If ExecuteExcel4Macro("'G:\Gewichtsberekeningen en Directiebladen straalbuizen\[Variabelen nozzle berekening.xls]Blad1'!R1C1") = "ja" Then
    Worksheets("Optima berekening").Delete
End If
End Sub

Hoop dat je me nog een keertje wilt helpen alvast bedankt.

Mvrgr Maarten :)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan