Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de ca isse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce poss ible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de ca isse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce poss ible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de ca isse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce poss ible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de
caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce
possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de
caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce
possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de
caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce
possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale <pvasnie...@free.fr(sansspam)> wrote:
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
... la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
Selon l'objectif de cette macro en tant qu'évennement à chaque
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
... la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
Selon l'objectif de cette macro en tant qu'évennement à chaque
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale <pvasnie...@free.fr(sansspam)> wrote:
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
... la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
Selon l'objectif de cette macro en tant qu'évennement à chaque
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale <pvasnie...@free.fr(sansspam)> wrote:
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles d e caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'e xcel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouto n de
macro
merci beaucoup et bonne fin de journée
--
Pascale
http://cjoint.com/?jesMndUhst
;o)
On 4 sep, 18:00, Pascale (sansspam)> wrote:merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
http://cjoint.com/?jesMndUhst
;o)
On 4 sep, 18:00, Pascale <pvasnie...@free.fr(sansspam)> wrote:
merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
Pascale
Bonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale <pvasnie...@free.fr(sansspam)> wrote:
Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale
http://cjoint.com/?jesMndUhst
;o)
On 4 sep, 18:00, Pascale (sansspam)> wrote:merci beaucoup pour vos réponses,
j'ai rentré le code petit souci lorsque je lance la sauvegarde le code
bloque à la ligne .Cells.Locked = False
et mets en difficulté la macro suivante qui ne fonctionne plus :
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Range("A3:M1044").Interior.ColorIndex = xlNone
Range("a" & ActiveCell.Row & ":M" & ActiveCell.Row).Interior.ColorIndex = 36
End Sub
Merci encore
--
PascaleBonjour Pascale,
''''''dans le ThisWorkbook du classeur
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
.Cells.Locked = False
With .Range("1:" & .[a65536].End(xlUp).Row).Cells
.Locked = True
.Interior.ColorIndex = 44
End With
.Protect Password:="MPFE", userinterfaceonly:=True
End With
Next
End Sub
'''il est impératif de rappeler le protect à l'ouverture
'''pour conserver ce parametre userinterfaceonly
'''protege uniquement interface utilisateur
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="MPFE", userinterfaceonly:=True
Next
End Sub
''''''''dans un module standard
Option Private Module
'''pour tout déverrouiller cette macro ne se verra pas
'''dans le menu Outils en raison de l'option ci-en haut
'''mais on peut en taper le nom et l'executer
Sub csecret()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
With sh
..Cells.Locked = False
End With
Next
End Sub
'lSteph
On 4 sep, 16:42, Pascale (sansspam)> wrote:Bonjour à toutes et à toutes,
voici mon problème Excel 2003: j'ai un classeur avec des feuilles de caisse
journalières, je souhaiterais lorsque j'enregistre le document qu'excel
vérouille toutes les lignes saisies de la feuille en cours. Est-ce possible.
autre question est-il possible de mettre un mot de passe sur un bouton de
macro
merci beaucoup et bonne fin de journée
--
Pascale