nieuwe functions, procedures….
Stel, je hebt in een map, 30 excel bestanden met macro’s, waarin je vba code wil toevoegen aan het werkblad (thisworkbook) en je wil ook vba code toevoegen aan een module. Het is mogelijk, om de code via een vba sub ,…
maak gebruik van de gebrukersnaam (inlog) en wachtwoord van AD ( active directory) om deze te gebruiken in de log file. maak een tabblad aan “logfile” en op de bovenste lijn in kolom a schrijf je “inlog” en in kolom…
sub hidepower() dim kort as integer For kort = 4 To 350 If Cells(kort, 1).Value = “x” Then Range(Rows(kort), Rows(kort)).Select Selection.EntireRow.Hidden = True End If Next kort end sub ************************** sub xxx() cells((activecell.row),1).value = “x” end sub
De bedoeling is , dat dit vba script (in access) de gefilterde database overloopt en op basis van de data het structuur script maakt en het rechten script. Je voert deze scripts uit in powershell en de mappen zullen aangemaakt…
Stel je wil een variabele een bepaalde waarde geven op basis van securitygroep in active directory. opgelet, geen nested groups. in mijn voorbeeld gebruik ik de seucritygroep “personeelsdienst” en de securitygroep “presturbobeheer” 1) in een module Function IsMember(strDomain As String,…
Voeg onderstaande code toe aan een knop. Dit is een voorbeeld, uiteraard moet je deze code aanpassen aan uw velden van uw database en wat je wil wegschrijven. op basis van naam en voornaam , maak ik in access de bestandsnaam…
in vba kies thisworkbook maak een userform aan om te testen selecteer workbook en dan open Private Sub Workbook_Open() RunTime UserForm1.Show End Sub maak een module aan en maak onderstaande subs aan Sub RunTime() EndTime = Now + TimeValue(“00:20:00”) Application.OnTime…
Public Sub RequeryOpenForms() Dim f As Form For Each f In Access.Forms f.Requery Next End Sub
