Bloquer toute une feuille excel sauf une plage de cellule

[clemflm]

Bonjour,

J'aurai voulu savoir si quelqu'un pouvais m'aider avec le code VBA que je tente de faire.
Je souhaite créer un jeu sur excel type bataille navale, et pour cela je voudrais que le joueur ai accès a seulement une plage de 10X10 cellules, en laissant tout le reste de la feuille excel inaccessible.

Pour cela j'ai écrit ce code:

Sub blocage()

Dim Feuil1 As Object
Dim Cellules As Object


Set Feuil1 = Application.ThisWorkbook.Worksheets(1)
Set Cellules = Range("D4:M14")

Feuil1.Locked = True

Cellules.Locked = False

End With


End Sub



Voilà, soyez indulgent, je suis novice

Bonne journée

 

[Amilo]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Bonsoir clemflm,

La propriété ScrollArea de la feuille puis modifier EnableSelection en xlNoSelection ne répond pas à votre demande ?

Cordialement

 

[david84]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Bonsoir,
il te suffit de verrouiller la feuille en ne déverrouillant que les cellules concernées.
A+

 

[clemflm]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Merci david84, c'est exactement ce que je souhaite faire, malheureusement le code que j'ai mis ne fonctionne pas!

 

[Amilo]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Vous n'avez pas besoin de code VBA pour nos 2 propositions,

Pour la propositon à david84 qui est la plus simple, sélectionnez la plage en question puis faite clic droit>Format de cellule puis dans l'onglet Protection décochez la case "Vérouillée"

Et protéger la feuille

Slts

 

[clemflm]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Tout d'abord merci de vos réponses!
Je créée ce jeu dans le cadre d'un cours d'informatique et le but est de tout coder dans VBA...
D'où mon problème

 

[Amilo]

Re : Bloquer toute une feuille excel sauf une plage de cellule

Désolé faut que je file, mais vous pouvez obtenir pour cela tout simplement par enregistrement de Macro

Sub Macro1()
'
' Macro1 Macro
'
Range("D4:M14").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("M4").Select
End Sub

Cordialement