VBA activiteit voor alle sheets

Status
Niet open voor verdere reacties.

Robert Smidt

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

Hierbij roep ik jullie hulp in voor een vba-probleem dat zich niet voordoet in Excel 2010 maar wel in versie 2019.

Ik heb een code die van toepassing is voor alle sheets, echter is het de bedoeling dat de sheet waar ik de code oproep blijft staan en niet dat het laatste werkblad wordt geopend.

de code is:
Code:
Sub Macroinschakelen()
Dim ws As Worksheet
Application.ScreenUpdating = False
If Sheets("Mutaties").[BZ1].Value = False Then
'If [macro].Value = waar Then
    [COLOR="#FF0000"]For Each Sh In ThisWorkbook.Sheets 'script uitschakelen (voor alle werkbladen)
        Sh.Unprotect
        Sh.Application.EnableEvents = False
    Next Sh[/COLOR]
   Else
    'script inschakelen (voor alle werkbladen)
[COLOR="#0000CD"]    With ActiveSheet
        For Each Sh In ThisWorkbook.Sheets
            Sh.protect AllowFiltering:=True
            Sh.Application.EnableEvents = True
        Next Sh[/COLOR]
    End With
End If
End Sub

Het gaat om de code dat hierboven in het rood staat, de code dat in het blauw staat gaat wel goed.

Alvast hartelijk dank.

Robert
 
De oorzaak zou ik niet weten maar je kan het wel eenvoudig recht zetten:
Code:
Sub Macroinschakelen()
    Dim ws As String
    ws = ActiveSheet.Name
    Application.ScreenUpdating = False
    
    If Sheets("Blad1").[A1].Value = False Then
        [COLOR="#008000"]'script uitschakelen (voor alle werkbladen)[/COLOR]
        For Each Sh In ThisWorkbook.Sheets
            Sh.Unprotect
            Application.EnableEvents = False
        Next Sh
    Else
        [COLOR="#006400"]'script inschakelen (voor alle werkbladen)[/COLOR]
        For Each Sh In ThisWorkbook.Sheets
            Sh.Protect AllowFiltering:=True
            Application.EnableEvents = True
        Next Sh
    End If
    If ActiveSheet.Name <> ws Then Sheets(ws).Activate
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan