Datei unsichtbar
03.01.2017 21:38:30
Barbara
Mein Makro soll beim Öffnen der Datei einen neuen Ordner erstellen und dann die Datei wieder schließen, aber offen bleiben, wenn "Parole" angegeben wird.
Das geht.
Der Anwender soll die Tabelle nicht zu sehen bekommen, nur das Inputfenster. Er soll das Makro auch nicht unterbrechen können (geht ihn ja nichts an), außer er gibt "Parole" ein. Das ist sozusagen der geheime Schlüssel.
Geht das irgend wie?
Hier der Code, der in "Diese Arbeitsmappe" steht.
Private Sub workbook_open()
Dim sOrdner As String
sOrdner = InputBox("Neuer Ordner")
'Wenn Eingabe ist "Parole", dann Abbruch
'sonst Ordner erstellen und Dokument schließen
If sOrdner "Parole" Then
sOrdner = ThisWorkbook.Path & "\" & sOrdner
If Dir(sOrdner, vbDirectory) = "" Then
MkDir sOrdner
End If
ThisWorkbook.Close 'Datei schließen
End If
End Sub
Barbara
Anzeige