makro löschen
02.01.2005 12:33:36
carlo
kann mir jemand sagen wie ich es anstellen kann, dass auf der
Kopie die makros verschwinden (löschen oder verstecken)?
Sub Speichern()
' Rechnungstabelle kopieren und mit rgNr. speichern in...
Dim Adr As String
Dim altname As String
Adr = ThisWorkbook.Sheets("RechnungsVorlage").Range("RechnNo")
If Len(Adr) > 0 Then
On Error Resume Next
ThisWorkbook.Sheets("RechnungsVorlage").Copy
altname = ActiveWorkbook.Name
Workbooks(altname).Sheets(1).Name = Adr
Workbooks(altname).SaveAs Filename:="u:\carlo\" & Adr
ActiveSheet.Protect Password:="carlo", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
MsgBox ("Erfolgt")
On Error GoTo 0
Else
MsgBox ("Hei! Ohne Nummer keine Rechnung")
Range("RechnNo").Select
End If
Application.Quit savechanges:=False
End Sub