"Sheets(i).Select" geeft foutmelding (error 1004)

Als in Excel VBA de code

Sheets(i).Select
Sheets(i).Visible = xlSheetVisible

foutmelding 1004 (error 1004) geeft: controleer dan of de werkmap beveiliging aan staat.