Wenn Anzahl User in freigegebener Mappe >1 dann...
13.03.2017 08:21:20
r2d2
Hallo,
wie kann ich diesen Code:
Sub NutzerInfo()
Dim Wb As Workbook: Set Wb = Workbooks("DieFreigegebeneMappe.xlsx")
MsgBox "Achtung: Es nutzen gerade " & UBound(Wb.UserStatus) & _
" Person(en) diese Mappe!", vbInformation
End Sub
if user >1 then goto B
else A
Danke und Gruß r2d2
Anzeige