Bonjour à tous,
J'ai un problème sur VBA avec excel 2003.
Dans mon fichier, j'ai une trentaine de feuilles qui sont chacune redimensionnées avec les lignes suivantes :
Private Sub Worksheet_Activate()
Range("A1:R1" ).Select
ActiveWindow.Zoom = True
Range("a1" ).Select
ActiveWindow.DisplayVerticalScrollBar = True
Range("B24:I33,L2434,B65:F68,L6471,B107:M117,B164:M170,B211:Q216,B227:M232,B287:I294,B335:J337,B380:L386" ).Select
With Selection.Font
.Name = "Arial"
.Size = 16
End With
With Selection
.HorizontalAlignment = xlCenter
End With
Range("a1" ).Select
End Sub
Quand je cherche à protéger mon classeur avec la macro qui suit tout va bien si je reste sur ma page d'accueil. En revanche, si je clique sur les macros de navigation d'une feuille à une autre et auxquelles sont rattachées le redimensionnement en police et taille, j'ai le message d'erreur suivant :
"Erreur d'éxecution 1004 : Impossible de définir la propriété Name de la classe font" et le débogage me surligne .Name="Arial" ! Je ne vois pas ce qui coince, help !
Voici la macro de protection :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/10/2008 par PAPOU
'
rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ActiveWindow.DisplayHeadings = False
ss.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ss.EnableSelection = xlNoSelection
' ss.Protect
Next
Sheets("Accueil" ).Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 27/10/2008 par GRYSPEERT, Julien
'
'
rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ActiveWindow.DisplayHeadings = False
ss.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False, Password:=rrr
ss.EnableSelection = xlNoSelection
' ss.UnProtect
Next
Sheets("Accueil" ).Select
End Sub
Voilà, j'espère avoir été assez clair, merci d'avance et BONNE ANNEE
Ripou
J'ai un problème sur VBA avec excel 2003.
Dans mon fichier, j'ai une trentaine de feuilles qui sont chacune redimensionnées avec les lignes suivantes :
Private Sub Worksheet_Activate()
Range("A1:R1" ).Select
ActiveWindow.Zoom = True
Range("a1" ).Select
ActiveWindow.DisplayVerticalScrollBar = True
Range("B24:I33,L2434,B65:F68,L6471,B107:M117,B164:M170,B211:Q216,B227:M232,B287:I294,B335:J337,B380:L386" ).Select
With Selection.Font
.Name = "Arial"
.Size = 16
End With
With Selection
.HorizontalAlignment = xlCenter
End With
Range("a1" ).Select
End Sub
Quand je cherche à protéger mon classeur avec la macro qui suit tout va bien si je reste sur ma page d'accueil. En revanche, si je clique sur les macros de navigation d'une feuille à une autre et auxquelles sont rattachées le redimensionnement en police et taille, j'ai le message d'erreur suivant :
"Erreur d'éxecution 1004 : Impossible de définir la propriété Name de la classe font" et le débogage me surligne .Name="Arial" ! Je ne vois pas ce qui coince, help !
Voici la macro de protection :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/10/2008 par PAPOU
'
rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ActiveWindow.DisplayHeadings = False
ss.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ss.EnableSelection = xlNoSelection
' ss.Protect
Next
Sheets("Accueil" ).Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 27/10/2008 par GRYSPEERT, Julien
'
'
rrr = InputBox("donnez le mot de passe svp" )
For Each ss In Application.Sheets
ActiveWindow.DisplayHeadings = False
ss.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False, Password:=rrr
ss.EnableSelection = xlNoSelection
' ss.UnProtect
Next
Sheets("Accueil" ).Select
End Sub
Voilà, j'espère avoir été assez clair, merci d'avance et BONNE ANNEE
Ripou