hab schon viele gute Inputs in diesem Forum gefunden, weshalb ich mich mit meinem Problem an euch wende.
Folgender Sachverhalt:
Ich habe eine Arbeitsmappe freigegeben, damit mehrere Kollegen gleichzeitig an dieser arbeiten können. Jeder Kollege hat sein eigenes, kleines VBA bekommen, um darin zu arbeiten.
Nun die Frage: Wie könnte ein Makro aussehen, welches eine Doppelbenutzung verhindert.
Anbei noch ein Mustercode, der so verwendet wird.
Sub Erstzählung_AP1()
Dim Zeile As Long
Dim C As Variant
Dim intR As Integer
intR = MsgBox("Achtung, sie haben den ersten Arbeitsplatz für die Erstzählung ausgewählt! _
_
Ist das korrekt?", _
vbYesNo + vbQuestion, "Abfrage")
If intR = 6 Then
Do Until EingabeNr$ = "Ende"
EingabeNr$ = InputBox("TE-Nummer erfassen", "Erstzählung AP1")
If EingabeNr$ "Ende" Then
If IsNumeric(EingabeNr$) And Len(EingabeNr$) > 6 Then
Set C = Range("A1:A5000").Find(EingabeNr$, LookIn:=xlValues)
If Not C Is Nothing Then
EingabeMenge = InputBox("Menge eingeben", EingabeNr$)
Cells(C.Row, 7).Value = EingabeMenge
Else
ExecuteExcel4Macro ("SOUND.PLAY(, ""R:\Operation Regensburg (RG)\Qualitätsabteilung\ _
Inventur\BesteTeufelslache.wav"")")
End If
End If
End If
Loop
End If
If intR = 7 Then
MsgBox ("Erfassung wird nicht gestartet!")
End If
End Sub
Herzlichen Dank im Voraus.