Hallo,
Met volgende code wordt er een kopie gemaakt naar een ander gesloten back-up bestand, zonder beveiliging. Tot zover alles in orde.
Nu zou ik graag het back-up bestand (de werkmap) waarnaar wordt weggeschreven willen beveiligen met een paswoord.
Ik heb zitten proberen met gevonden voorbeelden, maar telkens ik de code uitvoer stopt hij op een input box voor het gevraagde paswoord. Na het invullen ervan loopt alles mooi af.
Mijn vraag, kan deze code aangepast worden zodat dit wel werkt zonder dat je de input box krijgt?
Code staat in een module en wordt aangeroepen bij het sluiten van het eerste werkboek.
Alvast bedankt.
Mvg.
Marc
Met volgende code wordt er een kopie gemaakt naar een ander gesloten back-up bestand, zonder beveiliging. Tot zover alles in orde.
Nu zou ik graag het back-up bestand (de werkmap) waarnaar wordt weggeschreven willen beveiligen met een paswoord.
Ik heb zitten proberen met gevonden voorbeelden, maar telkens ik de code uitvoer stopt hij op een input box voor het gevraagde paswoord. Na het invullen ervan loopt alles mooi af.
Mijn vraag, kan deze code aangepast worden zodat dit wel werkt zonder dat je de input box krijgt?
Code staat in een module en wordt aangeroepen bij het sluiten van het eerste werkboek.
Code:
Option Explicit
Sub Kopie()
Dim wbDst As Workbook
Dim Br
On Error Resume Next
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 "1234"
ThisWorkbook.Sheets(Br).Range("A1:AL29").Copy .Range("A" & Rows.Count).End(xlUp).Offset(3)
'.Protect "1234"
End With
Next
Application.ScreenUpdating = True
wbDst.Close True
End Sub
Alvast bedankt.
Mvg.
Marc