Excel VBA

Soms hack eens wat in Excel VBA, hier enkele stukjes code, die ik mogelijk vaker nodig ben.

Windows gebruikerscode opvragen

Public Function UserName()
    UserName = Environ$("UserName")
End Function

---

Werkboeken doorlopen

Onderstaande stukje code doorloopt alle geopende workbooks en maakt één workbook hidden. Deze workbook bevat autorisatie gegevens die in een ander workbook herbruikt worden.

Dim wb As Workbook
For Each wb In Workbooks
   naam = wb.Name
   Rem MsgBox (naam)
   If naam = "autorisaties.xlsm" Then
      Windows(naam).Visible = False
      Rem Workbooks("autorisaties.xlsm").Window(1).Hidden = True
   End If
Next wb

Fouten negeren

Soms wil je foutmeldingen tijdens de uitvoering van VBA negeren. Dat kan als volgt.

On Error Resume Next

De uitvoering van het programma loopt dan gewoon door. Neem vervolgens dit op.

On Error Goto 0

Hiermee worden fouten niet meer genegeerd.

---