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 ...
Blog over software als Access, Excel, SQL, Crystal Reports, Report Builder, Word, VBA, elfstedentochten en andere regionale zaken.