Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du classeur
du profil lecture que j'adapte. Le problème est le suivant, j'ai définie
un tableau qui commence à la 12 lignes colonne 4 pour l'instant aucun
problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les valeurs
debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la ligne
1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du classeur
du profil lecture que j'adapte. Le problème est le suivant, j'ai définie
un tableau qui commence à la 12 lignes colonne 4 pour l'instant aucun
problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les valeurs
debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la ligne
1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du classeur
du profil lecture que j'adapte. Le problème est le suivant, j'ai définie
un tableau qui commence à la 12 lignes colonne 4 pour l'instant aucun
problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les valeurs
debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la ligne
1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant, j'ai
définie un tableau qui commence à la 12 lignes colonne 4 pour l'instant
aucun problème et qui fini à la 13 lignes colonne 34 (j'ai affichés les
valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à la
fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
e$Jk7YEoHHA.4124@TK2MSFTNGP02.phx.gbl...
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la colonne
1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les colonnes sont
déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte rendu
peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <> "Paramètres"
Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eu8CWFFoHHA.1388@TK2MSFTNGP05.phx.gbl...
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
e$Jk7YEoHHA.4124@TK2MSFTNGP02.phx.gbl...
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ePvHQhGoHHA.588@TK2MSFTNGP06.phx.gbl...
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eu8CWFFoHHA.1388@TK2MSFTNGP05.phx.gbl...
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
e$Jk7YEoHHA.4124@TK2MSFTNGP02.phx.gbl...
j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la même
chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées et
visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte le
classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes se
trouvant dans le tableau (Toutes ces colonnes sont déprotégées de la
ligne 1 à la fin et de plus il me déprotège une colonne de plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré à
la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" a écrit dans le message de news:
%Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées de
la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23cgKYqGoHHA.4024@TK2MSFTNGP02.phx.gbl...
Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ePvHQhGoHHA.588@TK2MSFTNGP06.phx.gbl...
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eu8CWFFoHHA.1388@TK2MSFTNGP05.phx.gbl...
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
e$Jk7YEoHHA.4124@TK2MSFTNGP02.phx.gbl...
j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées de
la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" a écrit dans le message de news:
%Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait être
déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de la
colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont une
invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le suivant,
j'ai définie un tableau qui commence à la 12 lignes colonne 4 pour
l'instant aucun problème et qui fini à la 13 lignes colonne 34 (j'ai
affichés les valeurs debut et fin pour en être sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées de
la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Range("J:J").Locked = True
Daniel
"Thierry" a écrit dans le message de news:
unXeA%Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" a écrit dans le message de news:
%Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait
être déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de
la colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont
une invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le
suivant, j'ai définie un tableau qui commence à la 12 lignes
colonne 4 pour l'instant aucun problème et qui fini à la 13 lignes
colonne 34 (j'ai affichés les valeurs debut et fin pour en être
sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées
de la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 17:12:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Range("J:J").Locked = True
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
unXeA%23GoHHA.4132@TK2MSFTNGP02.phx.gbl...
Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23cgKYqGoHHA.4024@TK2MSFTNGP02.phx.gbl...
Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ePvHQhGoHHA.588@TK2MSFTNGP06.phx.gbl...
Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eu8CWFFoHHA.1388@TK2MSFTNGP05.phx.gbl...
J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait
être déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
e$Jk7YEoHHA.4124@TK2MSFTNGP02.phx.gbl...
j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de
la colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
utFrdHEoHHA.4772@TK2MSFTNGP05.phx.gbl...
Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ulnVSEDoHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont
une invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le
suivant, j'ai définie un tableau qui commence à la 12 lignes
colonne 4 pour l'instant aucun problème et qui fini à la 13 lignes
colonne 34 (j'ai affichés les valeurs debut et fin pour en être
sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées
de la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 17:12:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Range("J:J").Locked = True
Daniel
"Thierry" a écrit dans le message de news:
unXeA%Comment faire pour vérouiller toute la colonne
Range.column(j).Locked = True ?
"Daniel" a écrit dans le message de news:
%Peut-être qu'elles étaient déjà déverrouillées ?
Essaie :
Range(Cells(12, 4), Cells(13, 35)).Locked = True
Range(Cells(12, 4), Cells(13, 34)).Locked = False
Daniel
"Thierry" a écrit dans le message de news:Plage à déprotéger
Range(Cells(12, 4), Cells(13, 34)) donc de D12 à AH13
Alors que ce qui est déprotégé c'est de D à AI
"Daniel" a écrit dans le message de news:J'ai du mal à cerner ce qui cloche. Donne-moi la plage qui devrait
être déprotégée et celle qui l'est effectivement.
Daniel
"Thierry" a écrit dans le message de news:
e$j'ai aussi fait cellule par cellule et cela me donne exactement la
même chose. le début de la déprotection est bon c'est a dire que de
la colonne 1 à 3 inclu tout est bien protégé de la colonne 4 a 35 les
colonnes sont déprotégées et de 36 à la fin tout est à nouveau
protégés.
"Daniel" a écrit dans le message de news:Bonjour.
Si je t'ai bien compris, c'est la ligne :
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
qui pose problème.
Est-ce que ce sont les valeurs d'une ou des variables qui sont
incorrectes ?
Cordialement.
Daniel
"Thierry" a écrit dans le message de news:Bonjour,
j'ai un classeur que je peux ouvrir avec différents profil :
- profil lecture (toutes le feuilles sont protégées dont
une invisible)
- profil mise à jour (toutes les feuilles dont déprotégées
et visibles)
- profil Saisie collab (le tableau des feuilles de compte
rendu peuvent être remplis, les
autres feuilles sont protégés et une est invisible)
Le profil par défaut (celui qui est sauvegardé lorsque l'on quitte
le classeur est lecture.
Pour mon profil Saisie collab je pars donc lors de l'ouverture du
classeur du profil lecture que j'adapte. Le problème est le
suivant, j'ai définie un tableau qui commence à la 12 lignes
colonne 4 pour l'instant aucun problème et qui fini à la 13 lignes
colonne 34 (j'ai affichés les valeurs debut et fin pour en être
sur).
La protection de la feuille marche bien à l'exception des colonnes
se trouvant dans le tableau (Toutes ces colonnes sont déprotégées
de la ligne 1 à la fin et de plus il me déprotège une colonne de
plus????
'
MsgBox ("Attention Le Classeur sera automatiquement enregistré
à la fermeture")
VariableBooleanSave = True
'
' Mise en état de lecture avant fermeture du classeur
' (le profil par défaut du classeur est lecture)
'
For j = 1 To Sheets.Count
'
' Si la feuille traitée est une feuille mensuelle
' autoriser la selection des événements
'
Worksheets(j).Activate
'
If Sheets(j).Name <> "Récap. tâches par collab." And
Sheets(j).Name <> "Cumul des tâches" And Sheets(j).Name <>
"Paramètres" Then
'
' Date de fin de mois pour connaître le nombre de jour
'
Sheets(j).Unprotect "Mise à jour"
fin = DateSerial([B1], [B2] + 1, 1 - 1)
nbj = Day(fin)
pl = Plig + 2
dc = Pcol + nbj - 1
Range(Cells(pl, Pcol), Cells(Dlig, dc)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets(j).Protect Identité, DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets(j).EnableSelection = xlUnlockedCells
End If
Next
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 09:31:40
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 11:57:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 12:03:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:00:49
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-0, 26/05/2007
Analyse le : 27/05/2007 16:07:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:28:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 16:58:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000744-1, 27/05/2007
Analyse le : 27/05/2007 17:12:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com