Formulare von mehreren Nutzern bearbeiten lassen

Ich habe ein Formular entworfen, das verschiedene Personen über das Netzwerk ausfüllen. Dabei sollen die Formulare beim Speichern nummeriert werden, um das Überschreiben bereits ausgefüllter Formulare zu verhindern. Zudem wäre ein Bearbeitungsprotokoll hilfreich. Kann Excel das?

Mit einem Makro schaffen Sie es. Eine Lösung finden Sie auf der Heft-CD CHIP-Code EXPROT.

Wenn Sie lieber selbst programmieren, legen Sie zuerst das Formular mit den Eingabefeldern an. Markieren Sie nacheinander diese Felder und führen Sie jeweils »Format | Zellen« aus, um unter »Schutz« das Kästchen »Gesperrt« zu deaktivieren. Diese Befehlsfolge können Sie ab dem zweiten Mal mit den Tasten [Strg]+[Y] ausführen. Fügen Sie dem Formular mit der Symbolleiste »Formular« eine Makroschaltfläche hinzu und weisen Sie ihr das Makro »Sichern« zu. Geben Sie nun im VBA-Editor folgendes Listing ein:

Sub Sichern()
Dim Pfad1, Protfile, Aktfile
Dim Nummer
Dim Name, User
Dim Dat1, Dat2
Dat1 = ActiveWorkbook.Worksheets (äTabelle1ô).Cells(4, 3)
Dat2 = ActiveWorkbook.Worksheets (äTabelle1ô).Cells(6, 3)
Pfad1 = CurDir
Protfile = Pfad1 & ä\ô & äprot.xlsô
Workbooks.Open FileName:=Protfile
Nummer = Val(ActiveWorkbook.Worksheets(äProt-Tabô).Cells(1,2)) + 1
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(1, 2) = Nummer
Name = ActiveWorkbook.Worksheets (äProt-Tabô).Cells(1, 1)
User = Application.UserName
Aktfile = Pfad1 & ä\ô & Name & Nummer
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 1) = Nummer
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 2) = Aktfile
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 3) = Date
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 4) = Time
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 5) = User
æ
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 7) = Dat1
ActiveWorkbook.Worksheets(äProt-Tabô).Cells(Nummer + 2, 8) = Dat2
ActiveWorkbook.Save
ActiveWorkbook.Close
æ
ActiveWorkbook.SaveAs FileName:= Aktfile, FileFormat:=xlNormal, Password:=ôä, WriteResPassword:=ôä, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Sub Auto_Open()
Application.CommandBars(äFileô). Controls(5).Enabled = False
Application.CommandBars(äFileô). Controls(4).Enabled = False
Application.CommandBars(äStandardô).Controls(3).Enabled = False
End Sub
Sub Auto_Close()
Application.CommandBars(äFileô). Controls(5).Enabled = True
Application.CommandBars(äFileô). Controls(4).Enabled = True
Application.CommandBars(äStandardô).Controls(3).Enabled = True
End Sub