Kopiëren naar ander gesloten werkblad, VBA code aanpassen

[samabert]

Hallo Forumleden,

Volgende code die ik hier op het forum heb gekregen en die een range kopieert naar een ander gesloten werkblad werkt volledig.

Option Explicit

Sub Kopie()
    Dim wbDst As Workbook
    Dim Br
    On Error Resume Next
    Application.ScreenUpdating = False

    
   
    Set wbDst = Workbooks.Open("C:\Users\dispatching\Music\Backup_Test.xlsm", Password:="3605", WriteResPassword:="3605")

    For Each Br In Application.GetCustomListContents(13)
        With wbDst.Sheets(Br)

                .Unprotect Password:="3605"
           
            
            ThisWorkbook.Sheets(Br).Range("A1:AL29").Copy .Range("A" & Rows.Count).End(xlUp).Offset(3)
            

            
                .Protect Password:="3605"


        End With
    Next
    Application.ScreenUpdating = True

    wbDst.Close True

End Sub

Mijn vraag:
Hoe pas je deze code aan zodat telkens de vorige cellen overschreven worden. Dus zonder End(xlUp).
Offset (3) moet blijven.

Alvast bedankt.
Marc

 

[Timshel]

Niet helder.
Ik gok maar wat

...
    ThisWorkbook.Sheets(Br).Range("A1:AL29").Copy .Range("A4:AL32")
...

 

[samabert]

Hi Timshel,

Goed gegokt, het werkt helemaal. :thumb:
Vorige code is trouwens ook van jou.

Bedankt voor de hulp.

Marc

 

[snb]

Zonder 'beveiliging'

Sub M_snb()
  with getobject("C:\Users\dispatching\Music\Backup_Test.xlsm")
    For Each it in Application.GetCustomListContents(13)
      .Sheets(it).Range("A4:AL32")=ThisWorkbook.Sheets(it).Range("A1:AL29").value
    Next
    .close -1
  end with
End Sub

 

[samabert]

snb,

Ik heb uit interesse jouw code ook getest.
Er lijkt gekopieerd te worden, daarna kan ik het back-up werkboek openen maar alles is geblokkeerd, zelfs de werkbalken?

Ik ga verder met de oplossing van Timshel.
Toch ook bedankt voor jouw bijdrage.

Marc

 

[snb]

Je wilde toch 'beveiligen' ?

Sub M_snb()
  with getobject("C:\Users\dispatching\Music\Backup_Test.xlsm")
    For Each it in Application.GetCustomListContents(13)
      .Sheets(it).Range("A4:AL32")=ThisWorkbook.Sheets(it).Range("A1:AL29").value
    Next
    .visible=true
    .close -1
  end with
End Sub

 

[samabert]

snb,

Met nogmaals jouw eerste code te testen, merk ik dat mijn melding van een geblokkeerd werkboek niet juist was.
Rechtstreeks openen van het werkboek, Via Beeld/zichtbaar maken is alles zichtbaar.
Ik zie nu hoe het in zijn werk gaat, lijkt veel sneller te gaan dan mijn vorige code.

Ik heb wel nog een vraag:

Wat doet .Close -1? Kan hier niets over terugvinden.

Bedankt.
Marc

 

[snb]

In VBA is True gelijk aan -1

Sub M_snb()
   MsgBox 1 * True
   MsgBox 0 + True
   MsgBox --True
End Sub

 

[samabert]

Ok, bedankt voor de uitleg.