speichern des workbook unter neuem namen per makro
10.07.2003 12:26:33
david
hab ein Tool gebastelt, und die Originalversion soll nicht verändert werden.
Dazu hab ich aus dem Forum das folgende Makro. Es speichert die Kopie allerdings nicht zwingend dort, wo das Original liegt, sondern dort, wo ich als letztes irgendetwas (in Excel) gespeichert hab. Das Problem versuche ich gerade zu lösen. Kann mir jmd auf die Sprünge helfen?
Sub BlaetterSpeichern()
Dim sFile As String
sFile = InputBox("Dateiname:")
If sFile = "" Then Exit Sub
sFile = sFile & ".xls"
If Dir(sFile) <> "" Then
Beep
If MsgBox("Eine Mappe mit diesem Namen existiert bereits. Soll sie überschrieben werden?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
Application.DisplayAlerts = True
'**********************Blattschutz im neuen sheet aufheben
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect
Next wks
End Sub
Vielen Dank und Gruß
David
Anzeige