Foutcode 400

[Norisk]

Wanneer ik deze macro uitvoer krijg ik foutcode 400..
Heeft iemand hier de oplossing voor?

Sub Tabbladen()

ActiveWorkbook.Protect Password:="test", Structure:=False, Windows:=False

Sheets("GH2 s").Select
sq = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
For j = 1 To UBound(sq)
Sheets(sq(j, 2)).Visible = IIf(UCase(sq(j, 1)) = "N", False, True)
Next
    
ActiveWorkbook.Protect Password:="test", Structure:=True, Windows:=False

End Sub

ik hoor het graag!

 

[LucB]

Dag Norisk,

Begin de code eens met:

ActiveWorkbook.Unprotect .....

Misschien helpt dat.

 

[snb]

Misschien staat er wel iets fout in kolom B.
Maar de methode Unprotect is er ook niet voor niets.
Plaats je bestand: praat een stuk gemakkelijker.

Maar ook de code kan eenvoudiger:

Sub Tabbladen()
  ActiveWorkbook.[COLOR="#FF0000"][/COLOR][B]Un[/B]Protect Password:="test", Structure:=False, Windows:=False

  For each cl in Sheets("GH2 s").columns(1).specialcells(2)
     if cl.row>1 then Sheets(cl.offset(,1).value).Visible = UCase(cl.value)<> "N"
  Next
    
  ActiveWorkbook.Protect Password:="test", Structure:=True, Windows:=False
End Sub

 

[Norisk]

Bedankt voor de hulp!

het is de bedoeling dat de "Berekening" op een ander blad komt..

 

[snb]

Heb je mijn suggestie al geprobeerd ?

 

[Norisk]

Beste snb,

heb hem idd net geprobeerd.. krijg een compileer fout. kan benoemde argumenten niet vinden..

 

[snb]

Het is handig als het werkboek alle werkbladen bevat die in de tabel staan.

 

[Norisk]

Alle tabbladen zijn actief.. wss verborgen..

ww is test zoals hij in de formule stond

 

[snb]

Lees eerst nog een het hoofdstuk in je VBA boek over het opsporen van fouten door.
Stapsgewijs door de code lopen en ongerechtigheden eruit halen moet je toch echt zelf kunnen.

 

[Norisk]

het is inmiddels gelukt.. bedankt voor uw moeite! (Ben helemaal niet gewent om in vba te werken)

Met vriendelijke groeten,

Bart