bij het openen van het workbook geeft de macro in Excel 2003 geen foutmelding maar in 2000 wel.
1004 > "Door de toepassing of door object gedefinieerde fout"
Spectaculair is de macro niet. Ik kan niet vinden wat het probleem veroorzaakt.
Alvast bedankt voor de medewerking
Ron
1004 > "Door de toepassing of door object gedefinieerde fout"
Spectaculair is de macro niet. Ik kan niet vinden wat het probleem veroorzaakt.
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = True
Sheets("Formulier").Select
ActiveSheet.Unprotect "test"
Range("E3").Select
If Selection = 0 Then GoTo Line1 Else: GoTo Line100
Line1:
Sheets("Formulier").Select
Range("D12").Select
If Selection > 0 Then GoTo Line3 Else GoTo Line8
Line3:
Sheets("Formulier").Select
Range("E5").Select
If Selection > 0 Then GoTo Line5 Else GoTo Line6
Line5:
Sheets("Overhevelen").Visible = True
Sheets("Overhevelen").Select
ActiveSheet.Unprotect "werk"
Sheets("Overhevelen").Select
Range("D1").Select
Selection.Copy
Range("D1").Select
' Sheets("Overhevelen").Range("D1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect "werk"
Sheets("Overhevelen").Visible = False
'Sheets("Formulier").Select
'Range("E6:E12").Select
'Selection.Copy
'Sheets("Formulier").Range("E6:E12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
Range("D12").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D12").Locked = True
Range("E5:E6").Select
Selection.Locked = True
Range("E8:E11").Select
Selection.Locked = True
Range("D13").Locked = True
Range("E3:F13").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("E7").Select
Selection.Locked = False
Line8:
Sheets("Formulier").Select
Range("B18").Select
If Selection = 0 Then GoTo Line300 Else GoTo Line100
Line6:
Sheets("Formulier").Select
Range("B18").Select
If Selection = 0 Then GoTo Line200 Else GoTo Line100
Line200:
Sheets("Formulier").Select
Filteren_uit
Sheets("Formulier").Select
Range("G11").Select
If Selection <> "" Then GoTo Line100 Else GoTo Line400
Line100:
' Filteren_aan
Line300:
Line400:
Sheets("Formulier").Select
Range("B18").Select
ActiveSheet.Protect "test", Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Alvast bedankt voor de medewerking
Ron
Laatst bewerkt door een moderator: