Bei Speichern reinkopieren...

Sub VBA_Schutz_SETZEN() Dim Password As String Password = "ww" If ActiveWorkbook.VBProject.Protection Then Application.DisplayAlerts = False Application.ScreenUpdating = False SendKeys "%{F11}" SendKeys "%xi" 'damit Passwort SendKeys Password SendKeys "{TAB}{Enter}" SendKeys "{TAB 9}{RIGHT}{TAB} {TAB}" SendKeys "{DEL}{TAB}{DEL}{TAB}{Enter}" Application.ScreenUpdating = True Application.DisplayAlerts = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datei speichern() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "C:\Eigene Dateien\Muster 11.12.06.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = True End Sub

Hallo Orakel,
Ich habe die Datei jetzt als eigenständige Datei mit akt. Datum, wie soll ich den vorher
der anderen Datei mitteilen kopieren jetzt in die NEUE Datei ?
Vielleicht noch einmal zur Erläuterung, ich bin nicht ganz so fit für Erklärungen:
Ich habe eine Datei z.B. "Muster.xls" in dieser "Muster.xls" befinden sich mehrere
Sheets z.B. Muster00, Muster01 bis 05 .
Nun wird (das funktioniert) entsprechend dem Namen der Sheet: "Muster00" eine
eigenständige Datei mit Datum z.B. "Muster00 vom 12.12.06".
Die Makros sind ja enthalten, werden ja mittels Command-Button aktiviert.
Nun möchte ich der NEUEN Datei den VBA Schutz reinsetzen, damit der Anwender
der öffnet, nicht in die Makros kann.
mfg Walter

Hallo Walter,
so ganz klar ist Deine Beschreibung aber auch nicht :-)
Es wäre auch einfacher gewesen, wenn Du den Code zum Erzeugen der "eigenständigen " Datei gezeigt hättest. Naja, hab das jetzt mal so wie ich es mir vorstelle umgesetzt.
In das Modul2 packst Du Deinen "Schutzcode". In die Zeile vor Deinem Codeaufruf setzt Du noch "Option Private Module" ohne Anführungszeichen, damit man den Code später auch nicht so leicht "von Hand" starten kann.
In das Modul1 packst Du folgenden Code:
Sub Neue_Datei()
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
sPath = "D:\China\" 'anpassen
sFile = Format(" Muster -" & Date) & ".xls"
    'exportiert Modul2 nach sPath:
    ThisWorkbook.VBProject _
    .VBComponents("Modul2").Export sPath & "basMain.bas"
ActiveSheet.Copy
    'importiert Modul2:
    With ActiveWorkbook.VBProject
    .VBComponents.Import sPath & "basMain.bas"
    'benennt Modul um:
    .VBComponents("Modul2").Name = "MeinModul"
    End With
    'löscht Modul in sPath:
    Kill sPath & "\basMain.bas"
    MsgBox "Modul wurde integriert!"
On Error GoTo ende 'Fehlerbehandlung
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
MsgBox "Schutzmakro wird aufgerufen"
Call VBA_Schutz_SETZEN 'setzt den Makroschutz, so er denn funktioniert :-)
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " _
& sPath & sFile & " gespeichert!"
Application.ScreenUpdating = True
ende:
End Sub
Ruf das Makro "Neue_Datei" auf und schau mal.
Gruß
Orakel

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread