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,L24
34,B65:F68,L64
71,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