Commando voor alle sheets op een uitzondering na

[Robert Smidt]

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?

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

 

[HSV]

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

 

[Robert Smidt]

Harry, heel erg bedankt...het werkt wederom voortreffelijk...