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:
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
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