2010-10-01 9 views
0

J'ai une feuille excel qui comme beaucoup de champs pour entrer des données. Disons que le total des champs que j'ai est de 20. Dix d'entre eux sont verrouillés par défaut lorsque l'utilisateur ouvre le classeur Maintenant, l'un des champs demande à l'utilisateur d'entrer un mot de passe. Si le mot de passe était "AAA", alors cinq champs (des dix verrouillés) seront débloqués et peuvent être édités. Si l'utilisateur entre un mot de passe comme "BBB", alors toutes les cellules de la feuille de calcul seront en lecture seule et verrouillées pour éviter d'éditer. Je me concentre sur le cas lorsque l'utilisateur entre "BBB". J'ai essayé ce code, mais ne fonctionne pas:verrouiller toutes les cellules d'une feuille de calcul Excel VBA

if Range("Password").value="BBB" then 
cells.select 
selection.locked=true 
end if 

il me donne une erreur « débordement » s'il vous plaît aider.

Répondre

0
If Range("Password").Value = "BBB" Then 
    ActiveSheet.UsedRange.Locked = True 
End If 
Questions connexes