Makro in Kopie löschen
23.12.2003 22:46:37
Hans-Peter
ChrisL hat mir erfreulicherweise bei der Erstellung eines Makros geholfen. Es erstellt automatisch beim schließen der Original-Datei eine Blattschutz-enthaltende Kopie. Makro lautet wie folgt:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim DateiName As String
Dim SpeicherPfad As String
DateiName = Worksheets("Tabelle1").Range("B2")
If DateiName = "" Then
MsgBox "Zelle B2 enthält keinen Dateinamen."
Exit Sub
End If
If UCase(Right(DateiName, 4)) <> ".XLS" Then DateiName = DateiName & ".xls"
SpeicherPfad = "c:\"
If Right(SpeicherPfad, 1) <> "\" Then SpeicherPfad = SpeicherPfad & "\"
SpeicherPfad = SpeicherPfad & DateiName
With ThisWorkbook.Worksheets("Tabelle1")
.Unprotect Password:="altes Passwort"
.Cells.Locked = True
.Protect Password:="neues Passwort"
ThisWorkbook.SaveAs Filename:=SpeicherPfad, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Close
End With
End Sub
Problem: In der Kopie ist das Makro auch noch enthalten! Hat jemand eine Idee, wie ich aus der Kopie das Makro raus bekomme?
MfG
Hans-Peter
Anzeige