Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Protéger la feuille sauf un palge

Protéger la feuille sauf un palge

17 réponses
Avatar
Guy72
Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant une
plage libre ?
Cordialement
Guy
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant une
plage libre ?
Cordialement
Guy




Avatar
Bacchus
Oui, il faut verrouiller la cellule ou la plage dans format / protection,
puis protéger la feuille elle-même


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant une
plage libre ?
Cordialement
Guy





Avatar
Guy72
Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je sélectionne une
cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%
bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant
une plage libre ?
Cordialement
Guy




Avatar
isabelle
eu..c'est quoi ce chrono ?

isabelle

Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je sélectionne une
cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%

bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle



Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant
une plage libre ?
Cordialement
Guy









Avatar
Guy72
C'est un chrono de JB

Sub majChrono()
X = (Timer() - [TempsDépart]) / 3600

'Voici la ligne qui ce met en jaune
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X /
24, "hh:mm:ss")

If Not [Pause] Then
If [DC62] <> 1215 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Cordialement
Guy
"isabelle" a écrit dans le message de news:

eu..c'est quoi ce chrono ?

isabelle

Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je sélectionne
une cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%

bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle



Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant
une plage libre ?
Cordialement
Guy










Avatar
JB
Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissa nt une
plage libre ?
Cordialement
Guy






Avatar
JB
En faisant Outils/Protection/Protéger la feuille, il faut cocher :
Modifier les objects

JB

C'est un chrono de JB

Sub majChrono()
X = (Timer() - [TempsDépart]) / 3600

'Voici la ligne qui ce met en jaune
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Forma t(X /
24, "hh:mm:ss")

If Not [Pause] Then
If [DC62] <> 1215 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Cordialement
Guy
"isabelle" a écrit dans le message de news:

eu..c'est quoi ce chrono ?

isabelle

Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je séle ctionne
une cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%

bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle



Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en lais sant
une plage libre ?
Cordialement
Guy












Avatar
isabelle
re bonjour Guy,

Shapes("MonChrono") est un objet et non une plage de cellule,
lorsque tu protège la feuille il faut cocher la case "Modifier les objet"
dans la section "Autoriser tous les utilisateurs de cette feuille à :"

ou bien déprotéger la feuille en début de macr et reprotéger à la fin,

Sheets("Feuil1").Unprotect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
X = (Timer() - [TempsDépart]) / 3600

'Voici la ligne qui ce met en jaune
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X /
24, "hh:mm:ss")

If Not [Pause] Then
If [DC62] <> 1215 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
Sheets("Feuil1").Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True


isabelle


C'est un chrono de JB

Sub majChrono()
X = (Timer() - [TempsDépart]) / 3600

'Voici la ligne qui ce met en jaune
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X /
24, "hh:mm:ss")

If Not [Pause] Then
If [DC62] <> 1215 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Cordialement
Guy
"isabelle" a écrit dans le message de news:


eu..c'est quoi ce chrono ?

isabelle


Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je sélectionne
une cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%


bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle




Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant
une plage libre ?
Cordialement
Guy













Avatar
Guy72
Bonsoir JB
Merci encore JB
J'ai toujours l'impression que ce n'est pas possible.
Avec JB (et les autres) rien d'impossible.
Cordialement
Guy

"JB" a écrit dans le message de news:

En faisant Outils/Protection/Protéger la feuille, il faut cocher :
Modifier les objects

JB

C'est un chrono de JB

Sub majChrono()
X = (Timer() - [TempsDépart]) / 3600

'Voici la ligne qui ce met en jaune
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X
/
24, "hh:mm:ss")

If Not [Pause] Then
If [DC62] <> 1215 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Cordialement
Guy
"isabelle" a écrit dans le message de news:

eu..c'est quoi ce chrono ?

isabelle

Bonsoir Isabelle
J'ai un problème, c'est que dans la plage libre, dès que je sélectionne
une cellule, j'ai chrono qui se met en route.
Et quand je verrouille ma macro ne fonctionne plus, (apparemment elle
ne
reconnaît plus la feuille ?)
Cordialement
Guy


"isabelle" a écrit dans le message de news:
%

bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle



Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une plage libre ?
Cordialement
Guy












Avatar
Guy72
Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X /
24, "hh:mm:ss").
Cordialement
Guy

"JB" a écrit dans le message de news:

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant
une
plage libre ?
Cordialement
Guy






1 2