VBA: Foutcode 13 (type mismatch)

[RWMJ]

Beste,

Ik ben momenteel bezig met het schrijven van een beveiligingsprotocol.
Het werkt als volgt, de gebruiker logt in, en aan de hand van zijn inlog krijgt hij de bevoegdheid om (bepaalde) worksheets te zien en te mogen wijzigen.

Het symbool Ð (in windings font) betekent vrije toegang
Het symbool Ï (in windings font) betekent bekijken.
Het symbool x (in windings font) betekent niet zichtbaar.

De fout krijg ik steeds in de module "WBSecurity"

Bij dit stukje code:

For SheetCol = 8 To 17
SheetNm = .Cells(4, SheetCol).Value 'sheet name
If .Cells(UserRow, SheetCol).Value = "Ð" Then
    Sheets(SheetNm).Unprotect "123"
    Sheets(SheetNm).Visible = xlSheetVisible
End If

Ik snap niet waarom excel de celwaarde niet kan lezen omdat het exact het zelfde is als in de sheet collumn. Waarom ziet hij dit niet als hetzelfde type?

Groeten,

RWMJ

 

[AccessGuru]

Wat dacht je van deze regel in je procedure?

    .Range("B5,B6").ClearContents

Maakt je cellen leeg.... Dan zit er dus niks meer in B8.

 

[RWMJ]

Heel erg bedankt, op den duur zag ik het gewoon niet meer. Ik heb de code richting het einde verplaatst en dat heeft het probleem opgelost.