IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

vbscript comment creer un fichier excel en le mettant en lecture seule


Sujet :

VBScript

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 4
    Points : 2
    Points
    2
    Par défaut vbscript comment creer un fichier excel en le mettant en lecture seule
    Bonjour à tous
    J'ai un script vbscript qui me créé un fichier excel.
    je souhaiterai
    soit le mettre en lecture seule,
    soit protéger toutes les cellules.
    Je n'ai pas trouver la syntaxe. les seuls exemples que j'ai trouvé sur le net sont avec des l'ouverture de fichiers excel déjà existants.
    merci de votre aide

  2. #2
    Expert éminent

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 071
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 071
    Points : 9 850
    Points
    9 850
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    bien que cette question soit du ressort de la section VB et pas VBA, peux-tu nous montrer le script actuel ?

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    voici un programme qui me sert de test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup
    Const xlExcel7 = 39
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    If (Err.Number <> 0) Then
        On Error GoTo 0
        Wscript.Echo "Excel application not found."
        Wscript.Quit
    End If
    On Error GoTo 0
    objExcel.Visible = True
    objExcel.Workbooks.Add
    Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
    objSheet.Name = "Feuil1"
    objSheet.PageSetup.Orientation=2
    objSheet.PageSetup.leftmargin=0
    objSheet.Cells(1, 1).Value = "Ligne 1 col 1 " & vbCrLf & "suite"
    objSheet.Cells(2, 1).Value = "15/06"
    objSheet.Cells(2, 1).numberformat="d/m"
    objSheet.Cells(3, 1).Value = "ligne 3 col 1"
    objSheet.Cells(4, 1).Value = "ligne 4 col 1"
    objSheet.Cells(1, 2).Value = "ligne 2 col 2"
    objSheet.Cells(2, 2).Value = "ligne 2 col 2"
    objSheet.Cells(3, 2).Value = "ligne 3 col 2"
    objSheet.Cells(4, 2).Value = "ligne 4 col 2"
    objSheet.Cells(5, 1).Value = "ligne 5 col 1 test99"
    objSheet.Cells(1, 3).Value = "message multiligne"

  4. #4
    Expert confirmé

    Homme Profil pro
    Responsable déploiement (SCCM, InTune, GPO)
    Inscrit en
    Juillet 2014
    Messages
    3 177
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, InTune, GPO)
    Secteur : Transports

    Informations forums :
    Inscription : Juillet 2014
    Messages : 3 177
    Points : 5 738
    Points
    5 738

  5. #5
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    A la fin de ton code ajoute ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    objExcel.DisplayAlerts = False
    objSheet.SaveAs "C:\Monfichier.xls", , , , True 
    ' True c'est pour la lecture seule.
    ' Quand tu essayeras d'ouvrir le fichier avec Excel, il te demandera si tu veux
    ' l'ouvrir en lecture seule ou en mode modification
    objExcel.Quit
    Bien qu'en regardant les propriétés du fichier(dans l'explorateur Windows), tu le trouveras en Archive.

    Si tu veux le mettre carrément en lecture seule, ajoute à la fin du code celui-ci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Const ReadOnly = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Fich = fso.Getfile("C:\Monficher.xls")
    Fich.Attributes = ReadOnly
    [EDIT] Désolé, je n'ai vu la réponse de ericlm128 qu'après avoir posté la mienne.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  6. #6
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    est ce que vous avez une solution pour protéger toutes les cellules de ma feuille excel ?

  7. #7
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    Citation Envoyé par fcolombe Voir le message
    est ce que vous avez une solution pour protéger toutes les cellules de ma feuille excel ?
    Oui, il y en a :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    Option Explicit
     
    Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup
    Const xlExcel7 = 39
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    If (Err.Number <> 0) Then
        On Error GoTo 0
        Wscript.Echo "Excel application not found."
        Wscript.Quit
    End If
    On Error GoTo 0
    objExcel.Visible = True
    objExcel.Workbooks.Add
    Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
    objSheet.Name = "Feuil1"
    objSheet.PageSetup.Orientation=2
    objSheet.PageSetup.leftmargin=0
    objSheet.Cells(1, 1).Value = "Ligne 1 col 1 " & vbCrLf & "suite"
    objSheet.Cells(2, 1).Value = "15/06"
    objSheet.Cells(2, 1).numberformat="d/m"
    objSheet.Cells(3, 1).Value = "ligne 3 col 1"
    objSheet.Cells(4, 1).Value = "ligne 4 col 1"
    objSheet.Cells(1, 2).Value = "ligne 2 col 2"
    objSheet.Cells(2, 2).Value = "ligne 2 col 2"
    objSheet.Cells(3, 2).Value = "ligne 3 col 2"
    objSheet.Cells(4, 2).Value = "ligne 4 col 2"
    objSheet.Cells(5, 1).Value = "ligne 5 col 1 test99"
    objSheet.Cells(1, 3).Value = "message multiligne"
    objExcel.DisplayAlerts = False
     
    objSheet.Protect "12345", True, True, True, False, False, False, False, False, False, False, False, False, False, False, False
    ' ou plus simple : objSheet.Protect "12345", True, True, True
    ' car False est la valeur par défaut pour le reste des paramètres
    ' à moins qu'on veuille laisser possibles quelques modifications
    objSheet.SaveAs "C:\Monfichier.xls", , , , True 
    objExcel.Quit
    12345 est le mot de passe au cas où on souhaiterait déverrouiller les cellules(la feuille). Car sans mot de passe on peut tout déverrouiller en allant dans le menu Outils > Protection > Ôter la protection de la feuille.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  8. #8
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    Merci ça fonctionne nickel

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [C#] Comment créer un fichier Excel ?
    Par dcollart dans le forum ASP.NET
    Réponses: 7
    Dernier message: 02/01/2006, 14h46
  2. comment ouvrir un fichier excel ?
    Par vdavid1982 dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 13/07/2005, 13h05
  3. comment fermer un fichier Excel depuis Access?
    Par audrey_desgres dans le forum Access
    Réponses: 14
    Dernier message: 21/06/2005, 13h43
  4. [Jar]comment creer un fichier JAR?
    Par ed_hunter dans le forum Eclipse Java
    Réponses: 1
    Dernier message: 24/05/2004, 12h44
  5. [langage] comment créer des fichiers ?
    Par Anonymous dans le forum Langage
    Réponses: 3
    Dernier message: 05/05/2002, 17h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo