verrouillage cellule par macro

[gh4]

bjr

je dois proteger des cellules pour eviter l'éffacement
ma feuille est totalement proteger dans ma macro (ça c'est fait)

je dois deproteger ma feuille toalement dans ma procedure (ça c'est fait) puis reverouiller simplement un nombre de cellules(a1:b4;d8:d20) et ça j'y arrive pas.

merci de votre aide

 

[skoobi]

Re : verrouillage cellule par macro

Bonsoir,

pour cela il faut d'abord dé-protéger toutes les cellules manuellement et pour protéger les cellules, utilise la propriétés "locked":
Ex:

range("a1").locked=true

 

[wamme]

Re : verrouillage cellule par macro

Bonsoir,
je pense qu'en faisant tes manips avec l'enregistreur de macros
tu pourrai y arriver ( ou au moins avoir une idée de macro )

 

[gh4]

Re : verrouillage cellule par macro

mais c'est bien sur
evidement trop con pour ne pas y avoir pensé avant
merci pour la lumiere

 

[gh4]

Re : verrouillage cellule par macro

par l'enregistreur pas possible

Sub Macro1()
Union(Range( _
"N121,N1:N123,A1:M1,B14:I16,L20:L30,L34:L40,L44:L48,L52:L54,L60:L62,L66:L73,L77,L81:L82,L86:L98,L98,L107:L114,L118:L122,A14:A122,B16:I16,B18:I18,B17:I17,B31:I31,B32:I32,B33:I33,B41:I41,B42:I42,B43:I43,B49:I51,B55:I59,B63:I65,B74:I76,B78:I80,B80:I80" _
), Range("B83:I85,B99:I106,B115:I117,A123:M123")).Select
XXXXXX .loocked = True
End Sub
quel code dois je mettre en XXXXXX pour les verrouiller

 

[skoobi]

Re : verrouillage cellule par macro

Re,

essaye comme ceci:

Union(Range( _
"N121,N1:N123,A1:M1,B14:I16,L20:L30,L34:L40,L44:L4 8,L52:L54,L60:L62,L66:L73,L77,L81:L82,L86:L98,L98, L107:L114,L118:L122,A14:A122,B16:I16,B18:I18,B17:I 17,B31:I31,B32:I32,B33:I33,B41:I41,B42:I42,B43:I43 ,B49:I51,B55:I59,B63:I65,B74:I76,B78:I80,B80:I80" _
), Range("B83:I85,B99:I106,B115:I117,A123:M123")).locked = True

 

[gh4]

Re : verrouillage cellule par macro

helas le code passe mais de verrouille pas mais cellules

 

[wamme]

Re : verrouillage cellule par macro

Re gh4, Skoobi
la feuille doit être protégée pour que les cellules soient verrouillées.

le tout avec l'enregistreur de macro (verrouille les cellules(a1:b4;d8 : d20)

Sub deproteger()

'Macro enregistrée le 10/03/2008

'
Cells.Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
End Sub
Sub proteger()
'
' proteger Macro
' Macro enregistrée le 10/03/2008
'

'
ActiveSheet.Unprotect
Range("A1:B4,D8😀20").Select

Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub



Edit : c'est agaçant ce 😀

 

[gh4]

Re : verrouillage cellule par macro

merci bcp ça marche parfaitement bien
bonne soirée à tous

 

[AL Khayyam]

Re : verrouillage cellule par macro et pb d'impression

Bonsoir tout le monde,

pour cela il faut d'abord dé-protéger toutes les cellules manuellement et pour protéger les cellules, utilise la propriétés "locked":
Ex:

range("a1").locked=true

J'ai le même souci sur le verrouillage des cellules. Plus excatement, dans une macro, je veux écrire un texte dans une cellule, puis la verrouiller ensuite sachant qu'au départ, manuellement, elle est déverrouillée. Mon truc ne marche pas.

Autre problème : je veux interdire l'impression d'une feuille d'un classeur si la cellule A1 n'est pas renseignée. ma macro focntionne bien, mais il y un hic. Quand on seplace sur une autre feuille et qu'on passe par Fichier - Imprimer - et qu'on coche "Classeur entier", eh bien toutes les feuilles sont imprimées !! Une âme charitable a-t-elle une solution ?
Merci

 

[gh4]

Re : verrouillage cellule par macro

les cellules ne sont verrouillée que si ta feuille est protegée