peter59
Terugkerende gebruiker
- Lid geworden
- 21 mei 2007
- Berichten
- 1.738
- Besturingssysteem
- Windows 11
- Office versie
- Office versie 365
Hallo,
Ik heb een probleempje met een macro.
Op de "huis" computer werkt deze als een tierelier maar op de laptop van het werk loopt deze vast.
Zie onderstaand, de rode tekst.
Wat kan hier de reden van zijn?
Dank alvast voor jullie hulp.
Ik heb een probleempje met een macro.
Op de "huis" computer werkt deze als een tierelier maar op de laptop van het werk loopt deze vast.
Zie onderstaand, de rode tekst.
Wat kan hier de reden van zijn?
Dank alvast voor jullie hulp.
Code:
Sub save_file()
Application.ScreenUpdating = False
Dim path As String
Dim filename1 As String
Dim s As Shape, rng As Range
Set rng = Range("Q1")
path = ThisWorkbook.path & "\"
filename1 = Format(Now(), "yyyymm") & " " & Range("B3")
For Each s In ActiveSheet.Shapes
If Intersect(rng, s.TopLeftCell) Is Nothing Then
Else
s.Delete
End If
Next s
Application.DisplayAlerts = False
[COLOR="#008000"]'Sub bladenverbergen[/COLOR]
Worksheets("Dtb").Visible = xlSheetVeryHidden
Worksheets("Invulsheet").Visible = xlSheetVeryHidden
Worksheets("17").Visible = xlSheetVeryHidden
Worksheets("10a").Visible = xlSheetVeryHidden
Worksheets("08a").Visible = xlSheetVeryHidden
Worksheets("Tbl tbv Listbox").Visible = xlSheetVeryHidden
Worksheets("Tekst Email").Visible = xlSheetVeryHidden
Worksheets("Mailadressen").Visible = xlSheetVeryHidden
[COLOR="#FF0000"]ActiveWorkbook.SaveCopyAs Filename:=path & filename1 & ".xlsb"[/COLOR]
Password = "xyz"
ActiveSheet.Unprotect Password:=Password
Range("A:B,E:E,G:G,I:I,L:M,R:AA").EntireColumn.Hidden = False
[COLOR="#008000"]'Sub bladenzichtbaar[/COLOR]
Worksheets("Dtb").Visible = True
ActiveSheet.Delete
Worksheets("Invulsheet").Visible = True
Worksheets("17").Visible = True
Worksheets("10a").Visible = True
Worksheets("08a").Visible = True
Worksheets("Tbl tbv Listbox").Visible = True
Worksheets("Tekst Email").Visible = True
Worksheets("Mailadressen").Visible = True
Application.DisplayAlerts = True
Sheets("Dtb").Activate
Application.ScreenUpdating = True
End Sub