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