Hessel de Walle's Blog

Momenteel ben ik bezig een Excel applicatie te beveiligen op basis van de Windows inlognamen. Aan de hand van de inlognaam worden rechten toegekend. Aan de hand van deze rechten zijn bepaald menuknoppen wel of niet zichtbaar. Hoe gaat zoiets in zijn werk? Bij het openen van de werkmap wordt gekeken naar de Windows loginnaam met Environ("UserName") . Op een blad met de naam Inlognamen wordt gekeken welke rechten erbij horen. Op basis van deze rechten worden bepaald ActiveX opdrachtknoppen op een blad met de naam Menu wel of niet zichtbaar gemaakt. De VBA code ziet er globaal zo uit: Private Sub Workbook_Open()     strInlognaam = Environ("UserName")     Sheets("inlognamen").Activate     For Each rngCel In ActiveSheet.UsedRange.Columns(1).Cells         If rngCel.Value = strInlognaam Then             strRechten = rngCel.Offset(0, 1).Value             Exit For ...