Proteger certaine cellule sur une feuille contenant macro

[tite-cel]

Bonjour tout le monde

je cherche a verrouiller des cellules contenant des formules, je sais qu'il faut faire porteger feuille . Mais lorsque je fais cette manip , ma macro événementiel ne fonctionne plus , elle ne prend plus en compte la mise en forme conditionnelle des cases non protegés

y aurai t il une solution?

merci


celine

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Bonjour Céline

il faut protéger la feuille par vba, en utilisant l'argument "userinterfaceonly", code ci-dessous à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Sheets("nomdelafeuille").Protect Password:="toto", userinterfaceonly:=True
End Sub

bon après midi
@+

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

merci pour la reponse rapide

dans this workbook j'ai deja la macro ..

sinon j'ai mis un message dans validation qui s'affiche quand tu te places sur al case qu'il ne faut pas modifier

 

[Dull]

Re : Proteger certaine cellule sur une feuille contenant macro

Salut tite-cel, Pierrot, le Forum

Le temps de faire une petite recherche sur userinterfaceonly Et l'ami Pierrot a déjà répondu, Alors ne serait-ce que pour dire Salut Pierrot 🙂je met ce post et pour dire aux
[PUB] Pseudo-Rennais [/PUB]
que heureusement
[GAG]y'en-aquibossentsurceForum[/GAG]😀

EDITION: Oui Pierrot, un temps magnifique, Jonction entre l'hiver et l'Eté Salut JM 🙂 J'ai tester ton Fichier et il marche super sur Excel 2003 😉

Bonne Journée à Tous

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

Ma macro ne focntionne plsu du coup

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Re,

Salut Dull🙂 beau temps chez toi ? ici vraiment pas terrible (Paris) lol

Céline, tu veux dire que tu protèges déjà ta feuille par vba, ou que tu utilises déjà cet événement, si c'est le cas, rajoute simplement la ligne.

sinon mets peut être ton code ou fichier exemple.

@+

 

[Staple1600]

Re : Proteger certaine cellule sur une feuille contenant macro

Bonsoir


A tester

Sub protecte()
With ActiveSheet
    With .UsedRange
    With .SpecialCells(xlCellTypeConstants, 23)
        .Locked = False
        .FormulaHidden = False
    End With
    With .SpecialCells(xlCellTypeFormulas, 23)
        .Locked = True
        .FormulaHidden = True
    End With
    End With
    .Protect UserInterfaceOnly:=True
End With
End Sub

edition: bonsoir Pierrot93, Dull

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

voila un bout du fichier

je voudrais que le tableau du haut avec les absences ne puisse etre modifier et pouvoir continuer a utiliser la mise en forme conditionnelle gérée par macro

merci

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Re, bonjour Jean-Marie

ton fichier n'est pas passé, il doit être inférieure à 50k en xls ou zip (zip c'est mieux) sans données confidentielles....

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

avec le fichier c mieux

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Re

ton fichier en retour, mot de passe "toto", macro se déclenche à l'ouverture du classeur, à noter que j'ai autoriseé l'utilisation du filtre auto.

@+

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

re
merci

mais ca ne calcule plus dans le recap en haut je vais garder ma version avec le message ne rien ecrire dans les cases

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Re,

quand tu dis ca ne recalcul plus, ca veut dire quoi ? chez moi cela à l'air de fonctionner, demande mot de passe, mais pour empêcher cela modifier les macros comme suit :

Sub Demasquer_tableau()
Application.Calculate
    Application.ScreenUpdating = False
    Rows("1:19").Select
    Range("A13").Activate
    Selection.EntireRow.Hidden = False
    Range("A15").Select
    Application.ScreenUpdating = True
End Sub
Sub Masquer_tableau()
    Application.ScreenUpdating = False
    Rows("2:18").Select
    Range("A12").Activate
    Selection.EntireRow.Hidden = True
    Range("A15").Select
    Application.ScreenUpdating = True
End Sub

enfin si j'ai bien compris...

@+

 

[tite-cel]

Re : Proteger certaine cellule sur une feuille contenant macro

re

faut il deproteger la feuille pour pouvoir continuer a rentrer les absences avec la liste deroulante?

 

[Pierrot93]

Re : Proteger certaine cellule sur une feuille contenant macro

Re

pour utiliser le filtre auto non, mais si tu rentres des données dans une cellule vérouillée, manuellement, oui, si tu les rentres par le code pas besoin.

@+