Hallo,
Op mij thuis pc werkt het tot zover gebouwde, met hulp van dit forum, bestand voor 100% zonder ook maar enige problemen!
Maar op de pc van het werk doet zich volgende probleem voor:
Een deel van de code die niet volledig zijn werk doet.
Wanneer je vraagt in het eerste werkblad via het rode kruisje om te sluiten moet er een kopie gemaakt worden naar een ander Backup1 bestand, eens de kopie daar geplaatst sluiten van het Backup1 bestand en daarna sluiten van het eerste werkblad. Het Backup1 bestand blijft open staan en zodanig ook het eerste werkblad.
Ik heb via een Usb sleutel de bestanden gewoon overgezet van thuis pc naar werk pc en het pad naar waar opslaan aangepast (op een lokale pc).
De code die daarvoor zorgt is volgende:
ThisWorkbook:
In een module:
Configuratie Pc thuis:
Windows 10 32 bit
Office Professional 2010 NL 32-bits
Configuratie Pc werk:
Windows 7 64 bit
Office Professional 2010 E 32-bits
In beide Excel versies staan de veiligheid instellingen hetzelfde.
Een verschil is in VBA verwijzingen:
Pc thuis is MS Excel 14.0 Object library
Pc werk is MS Excel 15.0 Object library
Heb volgende gevonden, maar dit helpt niet.
http://www.helpmij.nl/forum/showthread.php/847235-macro-werkt-niet-op-1-PC-op-andere-PC-s-wel
Is het een update van Office die hiervoor verantwoordelijk is?
Alvast bedankt.
Mvg.
Marc
Op mij thuis pc werkt het tot zover gebouwde, met hulp van dit forum, bestand voor 100% zonder ook maar enige problemen!
Maar op de pc van het werk doet zich volgende probleem voor:
Een deel van de code die niet volledig zijn werk doet.
Wanneer je vraagt in het eerste werkblad via het rode kruisje om te sluiten moet er een kopie gemaakt worden naar een ander Backup1 bestand, eens de kopie daar geplaatst sluiten van het Backup1 bestand en daarna sluiten van het eerste werkblad. Het Backup1 bestand blijft open staan en zodanig ook het eerste werkblad.
Ik heb via een Usb sleutel de bestanden gewoon overgezet van thuis pc naar werk pc en het pad naar waar opslaan aangepast (op een lokale pc).
De code die daarvoor zorgt is volgende:
ThisWorkbook:
Code:
Dim ws As Worksheet
Const MaxUses As Long = 15 '<- change users
Const wsWarningSheet As String = "Splash"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ToevoegenActie False, sUser
Application.DisplayAlerts = False
Call MBE
Call Kopie
Application.Save
Application.DisplayAlerts = True
For Each ws In ThisWorkbook.Sheets
If ws.Name = wsWarningSheet Then
ws.Visible = True
Else
ws.Visible = xlVeryHidden
End If
Next
With Sheets(wsWarningSheet).Cells(Rows.Count, Columns.Count)
.Value = .Value + 1
End With
ThisWorkbook.Save
End Sub
Code:
Option Explicit
Sub Kopie()
Dim wbDst As Workbook
Dim Br
Application.ScreenUpdating = False
Set wbDst = Workbooks.Open("\\SERVER-BAMG7PMH\Exel\Hrs\Backup1.xlsm")
For Each Br In Application.GetCustomListContents(3)
With wbDst.Sheets(Br)
.Unprotect
ThisWorkbook.Sheets(Br).Range("A1:AL29").Copy .Range("A" & Rows.Count).End(xlUp).Offset(3)
.Protect
End With
Next
Application.ScreenUpdating = True
wbDst.Close True
End Sub
Configuratie Pc thuis:
Windows 10 32 bit
Office Professional 2010 NL 32-bits
Configuratie Pc werk:
Windows 7 64 bit
Office Professional 2010 E 32-bits
In beide Excel versies staan de veiligheid instellingen hetzelfde.
Een verschil is in VBA verwijzingen:
Pc thuis is MS Excel 14.0 Object library
Pc werk is MS Excel 15.0 Object library
Heb volgende gevonden, maar dit helpt niet.
http://www.helpmij.nl/forum/showthread.php/847235-macro-werkt-niet-op-1-PC-op-andere-PC-s-wel
Is het een update van Office die hiervoor verantwoordelijk is?
Alvast bedankt.
Mvg.
Marc