proteger - deproteger

[mosquitout]

Bonjour,
Je suis débutants sur Excel et j'utilise une appli vb pour afficher une feuille excel. Un premier souci est que, à chaque ouverture, le curseur se positionne de manière aléatoire sur la feuille ! ni il y'a t-il pas un moyen de le forcer à une cellule bien précise ? un truc genre setfocus (cell = C10) ?

Et puis, plus compliqué, avant d'ouvrir le document excel, je protège certaines zones et protège ensuite le document. Ca marche, sauf que lorsque je le réouvre à nouveau, là il me jète en disant qu'il est protégé !? comment le déprotéger avant ?
Voilà à quoi ressemble mon code :

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Doc.xls")
Set Feuille = wbExcel.Worksheets(1)

là, je remplis la feuille ......
.... puis protège certaines zones ....

appExcel.Range("A1:O21").Locked = True
appExcel.Range("A54:O73").Locked = True
appExcel.Sheets("feuille1").Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True

appExcel.Visible = True

Si quelqu'un à une idée, suggestion !? merci d'avance

 

[RICO1972]

Re : proteger - deproteger

Salut,
pour déprotéger une feuille utilise la fonction :

Tu détermine ta feuille et tu applique cette opération.

ActiveSheet.Unprotect

Si tu peux envoyer un exemple c mieux ...
@++

 

[RICO1972]

Re : proteger - deproteger

arf désolé .. j'ai répondu partiellement
pour selectionner une cellule "précise" :

range("A4").activate

@+

PS / protéger un classeur ne sert à rien ... certaines macro détruisent ttes les protections avec ou sans mot de passe ...

 

[Foufoudora]

Re : proteger - deproteger

bonjour mosquitout et Ricco

essaie ceci

Private Sub Workbook_Open()
Sheets("Saisie").Select
Range("A4").Select ' si tu veux que le curseur se posisionne sur A4 feuille Saisie
End Sub

Cordialement

Foufoudora

 

[mosquitout]

Re : proteger - deproteger

Merci Rico et Foufoudora, ça marche nickel 😉