habe mit folgendem Problem zu kämpfen:
Möchte aus einer geschlossenen Datei (Zahlen.xls) Daten in die
aktive Datei übertragen. Das klappt mit dem u.g. Makro auch sehr
gut. Wenn ich das aktive Tabellenblatt aber mit Blattschutz versehe,
funktioniert das Makro nicht mehr. Möchte daher den Blattschutz kurzfristig
ausschalten. Kriege das aber leider nicht so geregelt. Vielleicht kann mir
ja jemand behilflich sein?!?
Option Explicit
Sub Zahlen_uebertragen()
Dim objWb As Workbook
Dim objSh As Worksheet
Dim strFile As String
On Error GoTo ErrExit
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
.Cursor = xlWait
End With
strFile = "F:\Daten\Zahlen.xls"
If Not ThisWorkbook Is ActiveWorkbook Then ThisWorkbook.Activate
Set objSh = ActiveSheet
Set objWb = Workbooks.Open(strFile)
objWb.Sheets(5).Range("A1:M100").Copy objSh.Range("A2")
objWb.Close False
ErrExit:
If Err.Number > 0 Then
MsgBox Err.Number & vbLf & Err.Description, , "Fehler"
Err.Clear
End If
Set objWb = Nothing
Set objSh = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
.Cursor = xlDefault
End With
End Sub