Commando voor alle sheets op een uitzondering na

Status
Niet open voor verdere reacties.

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
947
Beste Helpmij'ers,

Ik heb een code die prima werkt o.b.v. alle sheets, echter heb ik de wens dat deze hiervan twee sheets van uitsluit nl. werkblad: resultaatoverzicht en werkblad: btw-overzicht. Zou dat mogelijk en zijn? en zo ja, hoe?

Code:
For Each Sh In [B]ThisWorkbook.Sheets[/B]
      Sh.Unprotect
    Next Sh
    For Each Sh In Sheets
        With Sh.UsedRange
            .Value = .Value
        End With
        ActiveSheet.Unprotect
    Next Sh
End Sub

Alvast hartelijk dank

Robert
 
Code:
For Each Sh In Sheets
[COLOR="#0000FF"]Sh.Unprotect[/COLOR]
[COLOR=#0000ff] if sh.name <> "resultaatoverzicht" and sh.name <> "btw-overzicht" then[/COLOR]
        With Sh.UsedRange
            .Value = .Value
        End With
[COLOR=#0000ff]    end if[/COLOR]
    Next Sh
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan