Mijn werkblad is beveiligd met een wachtwoord.
Doch hoe kan ik in mijn macro het wachtwoord omzeilen ?
De beveiliging moet in het begin van de macro even uit en op het einde weer aan, zonder te vragen naar het wachtwoord.


Sub BeveiligingAAN()
Dim intWachtwoord As Integer

    intWachtwoord =
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Beste Ingrid, dit werkt prima, maar of ik op het goede pad ben met mijn macro's ?
Dit heb ik er van gebrouwen.

Sub InvoerUitgavenDatumVandaag() 'Ga naar de datum van vandaag

    Dim strWachtwoord As String
    strWachtwoord = "ikke"
   
    ActiveSheet.Unprotect Password:=strWachtwoord
    Application.Goto Reference:="InvoerUitgavenDatumControleGetal"
   
    If ActiveCell.Value = 1 Then
        Application.Goto Reference:="InvoerUitgavenDatumControleGebied"
        Selection.SpecialCells(xlCellTypeFormulas, 1).Select
        ActiveCell.Offset(0, 3).Select
        ActiveSheet.Protect Password:=strWachtwoord, UserInterfaceOnly:=True
    Else
        MsgBox "Is dit het juiste jaar wel, kijk even naar het jaartal ?", vbInformation, "     GEEN DATUM GEVONDEN     "
    End If

End Sub

Ok, bedankt nogmaals