Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Blattschutz beim Daten einspielen

Betrifft: Blattschutz beim Daten einspielen von: Tobi
Geschrieben am: 19.08.2008 09:18:44

Hallo,

ich habe eine Frage bzgl. einem Makro.

Habe das folgende Makro mit welchem ich Daten aus einer Exceldatei in eine andere importiere. Leider übernimmt es mir auch immer die Formatierung der Zellen. In der Ausgangsdatei ist bei manchen Zellen unter "Zellen formatieren" der Haken für den Schreibschutz nicht aktiviert. Wenn dich dann diese Zellen rüberspiele wird der Haken für den Schreibschutz auch in der "Importdatei" raugenommen.

Was kann ich machen, dass ich nur die Werte importiere und nicht die Sperrung der Zellen aufhebe?

Vielen Dank für Euere Hilfe im Voraus

Gruß
tobi

Dim Prod As Worksheet
Dim filetoopen As String

Application.ScreenUpdating = False

ChDrive "C"
'ChDir "C"
filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If filetoopen <> "False" And filetoopen <> "Falsch" And filetoopen <> "" Then
Workbooks.Open filetoopen

With ActiveWorkbook

Set Prod = ThisWorkbook.Sheets("Prod")

.Sheets("Prod").Range("A:A").Copy Destination:=Prod.Range("A:A")
.Sheets("Prod").Range("B:B").Copy Destination:=Prod.Range("B:B")
.Sheets("Prod").Range("D:D").Copy Destination:=Prod.Range("BD:BD")
.Sheets("Prod").Range("E:E").Copy Destination:=Prod.Range("BE:BE")
.Sheets("Prod").Range("F:F").Copy Destination:=Prod.Range("BF:BF")

Application.CutCopyMode = False

.Save
.Close
End With

'Message Box
MsgBox "Daten erfolgreich eingespielt! / Data transfer was successful!"

End If

Application.ScreenUpdating = True

Sheets("Prod").Select

'Blatt schützen
ActiveWorkbook.Protect Password:="bwpa", Structure:=True

On Error GoTo errorhandler
For Each wks In Worksheets
wks.Protect Password:="bwpa", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next wks
errorhandler: Exit Sub

End Sub

  

Betrifft: AW: Blattschutz beim Daten einspielen von: Tino
Geschrieben am: 19.08.2008 09:31:43

Hallo,
versuche es mal so.

ungetestet.

.Sheets("Prod").Range("A:A").Copy Prod.Range("A:A").PasteSpecial(xlPasteValues)


Gruß Tino


  

Betrifft: AW: Blattschutz beim Daten einspielen von: Tobi
Geschrieben am: 19.08.2008 14:48:43

Hallo Tino,

danke für deine Hilfe. Dein Makro funktioniert super!

Vielleicht kannst du mir ja nochmals helfen? Weißt du zufällig wie ich es schaffe, dass beim Klick auf den Makro-Button nur der Explorer geöffnet wird? im moment öffnet sich das C-Laufwerk. Hätte es am liebsten, dass nur der Explorer geöffnet wird.

Danke nochmal für deine Hilfe von vorhin.

Gruß
tobi

Dim Prod As Worksheet
Dim filetoopen As String

Application.ScreenUpdating = False

ChDrive "C"
'ChDir "C"

filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If filetoopen <> "False" And filetoopen <> "Falsch" And filetoopen <> "" Then
Workbooks.Open filetoopen

With ActiveWorkbook

Set Prod = ThisWorkbook.Sheets("Prod")

.Sheets("Prod").Range("A:A").Copy Destination:=Prod.Range("A:A")
.Sheets("Prod").Range("B:B").Copy Destination:=Prod.Range("B:B")
.Sheets("Prod").Range("D:D").Copy Destination:=Prod.Range("BD:BD")
.Sheets("Prod").Range("E:E").Copy Destination:=Prod.Range("BE:BE")
.Sheets("Prod").Range("F:F").Copy Destination:=Prod.Range("BF:BF")
Application.CutCopyMode = False

.Save
.Close
End With

'Message Box
MsgBox "Daten erfolgreich eingespielt! / Data transfer was successful!"

End If

Application.ScreenUpdating = True

Sheets("Prod").Select

'Blatt schützen
ActiveWorkbook.Protect Password:="bwpa", Structure:=True

On Error GoTo errorhandler
For Each wks In Worksheets
wks.Protect Password:="bwpa", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next wks
errorhandler: Exit Sub

End Sub


  

Betrifft: AW: Blattschutz beim Daten einspielen von: Tino
Geschrieben am: 19.08.2008 15:19:12

Hallo,
leider verstehe ich gerade nicht was du meinst?
Nicht Ordner öffnen sondern Explorer?

'????

ChDrive "D:\"
ChDir "D:\"
filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")



Gruß Tino


 

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz beim Daten einspielen"