Speichern mehere Tabellen ohne Formlen und Macros
22.03.2007 10:44:13
Ralph
ich hoffe Ihr könnt mir bei meinem Projekt Konfigurator weiterhelfen.Ich habe bereits eine Menge an Beiträge gelesen aber leider nicht passendes gefunden. (Leider ahbe ich von VBA kaum Ähnung!)
Ich habe 12 Tabellen. Hiervon möchte ich Tabelle 1, 2,3 und 4 in einer neue Arbeitsmappe(.xls)
ohne Formel,Makros und Buttons als feste Werte (nicht änderbar) speichern.
Die Tabellen sind mit Blattschutz versehn wo bei ich in einigen Felder die Eingabe in der orginal Datei zulasse.
Nun soll allerdings beim Speichern in einer neue Datei mit dem Namen:
"Ventilinsel-Konfiguration_" & Format(Now(), "yyyy-mm-dd" alle Felde geschütz werden.
So das kein Bezug mehr zur der Orginal Datei besteht und die neue Datei nicht mehr geändert werden kann.
Zusätzlich möchte ich mit den beiden Funktionen:
Function BenutzerName()
'Funktion Benutzername
BenutzerName = Application.UserName
End Function
--------------------------
Function FileDate()
'Funktion File Datum
FileDate = FileDateTime(ThisWorkbook.FullName)
End Function
Ich hoffe dies ist nicht zu Äufwendig. Leider reichen hierfür mein Kenntnisse VBA nicht aus.
Aber Ihr habt ja schon schwerere Aufgabe hier im Forum gelöst.
Mit besten Dank im voraus
Ralph