form excel file open another excel file and .unprotect that file copy one row and .protect that file and close works only once

[lodewijk]

I hope you understand the problem Here is the code.
What is wrong. THX

Sub Macro2()
Dim st As String
Dim irow As Long
Workbooks.Open Filename:="C:\Tmp\Dossier.xlsm"
Sheets("Blad1").Activate

Sheets("Blad1").Unprotect Password = "1141"
Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Activate
Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Select

' use of this macro a second time it gives an error on next instruction
' but whitout the protect and unprotect it works fine

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Blad1").Protect Password = "1141", userinterfaceonly:=False
ActiveWorkbook.Save
ActiveWindow.Close

End Sub

 

[HighAndWilder]

I hope you understand the problem Here is the code.
What is wrong. THX

Sub Macro2()
Dim st As String
Dim irow As Long
Workbooks.Open Filename:="C:\Tmp\Dossier.xlsm"
Sheets("Blad1").Activate

Sheets("Blad1").Unprotect Password = "1141"
Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Activate
Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Select

' use of this macro a second time it gives an error on next instruction
' but whitout the protect and unprotect it works fine

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Blad1").Protect Password = "1141", userinterfaceonly:=False
ActiveWorkbook.Save
ActiveWindow.Close

End Sub

I assume that you are wanting to copy this range somewhere but where to?

Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[lodewijk]

I assume that you are wanting to copy this range somewhere but where to?

Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1)

I assume that you are wanting to copy this range somewhere but where to?

Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1)

sorry maybe I wasn't clear enough. The selected line is copied and then the macro is called, which opens another Excel program and places the copied line in the called file, and then closes the opened excel file.
That works fine if I don't use the protect and unprotect options. When I use the protect options is works once and then the second time in gives an error.