Versionskontrolle für Excel-Makros

Hallo,
ich habe ein nützliches Excel-Makro geschrieben, das ich nun allen Mitarbeitern der Firma in der ich arbeite zukommen lassen möchte. Unsere IT-Abteilung besteht jedoch darauf, daß ich für das Tool eine Versionskontrolle einrichte d.h. das ich sicherstelle, daß meine Kollegen immer mit der aktuellsten Version des Makros arbeiten. Dies könne z.B. so realisiert werden, daß das Makro beim Starten automatisch in einer (z.B. Excel-)Datei auf unserem Netzlaufwerk nachsieht, ob die dort (von mir) hinterlegte Versionsnummer mit der Versionsnummer des Makros übereinstimmt. Stimmen die Versionsnummern überein, so kann mit dem Makro gearbeitet werden. Stimmen die Versionsnummern jedoch nicht überein, so wird das Excel-Tool automatisch wieder geschlossen. So währe dann sichergestellt, daß jeder Mitarbeiter nur mit der letzten Version meines kleinen Tools arbeiten kann.
Hat jemand eine Idee, wie man dies in VBA praktisch realisieren kann?
Ich bin für jede Unterstützung dankbar.
Gruß, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForReading, TristateFalse) myString = f.ReadAll f.Close If myString <> "Version 1.5" Then MsgBox "Diese Dateiversion ist veraltet. Bitte besorgen sie sich eine neue Version!", vbCritical + vbOKOnly ThisWorkbook.Close savechanges:=False End If End Sub

Hallo Andreas,
ähnliche Lösung wie von Stefan, hier erfolgt die Versionsprüfung nicht beim Öffnen der Arbeitsmappe, sondern erst beim Versuch das Makro zu starten.
Gruss
Franz


Public CodeAbbruch As Boolean
Sub Tool()
Dim Version As String
' Tool XXX, Version 20061010
Version = "20061010" 'aktuelle Version
'Für die Versionsdatei ein Netzverzeichnis verwenden, auf das alle User zugreifen können _
oder mit Administratorrechten die entsprechende Textdatei in ein bestimmtes lokales Verzeichnis _
auf dem Userrechner installieren
Call Versionspruefung(Version, "C:\Test\ToolXXXVersion.txt")
If CodeAbbruch = True Then Exit Sub
MsgBox "Tool ist aktuell" 'Testzeile
'ToolCode
End Sub
Sub Versionspruefung(Version As String, VersionsDatei As String)
'Die VersionsDatei ist eine Textdatei, die in der 1. Zeile die aktuelle Version enthält
Dim VersionAktuell As String, ff As Integer
CodeAbbruch = False
ff = FreeFile()
Open VersionsDatei For Input As #ff
Line Input #ff, VersionAktuell
Close #ff
If Version <> VersionAktuell Then
MsgBox "Sie verwenden eine veraltete Version des Tools XXX!" & vbLf & vbLf & _
"Bitte fordern Sie bei xyz die aktuelle Version """ & VersionAktuell & """ an." & _
vbLf & vbLf & "Tool wird nicht ausgeführt!"
CodeAbbruch = True 'Diese Variable zum Codeabbruch verwenden
Exit Sub
End If
End Sub
Die Textdatei hat dann etwa folgenden Inhalt:
20061010
Aktuelle Versionsnummer des Exceltools XXX
Autor: Hans Müller
Datum: 2006-10-10
Für die Prüfung der Versionsnummer ist nur die 1. Zeile relevant.
Der Rest ist Kommentartext.

Beliebteste Forumthreads (12 Monate)

Versionskontrolle für Excel-Makros

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread