Ouverture Classeur via lien hypertexte en lecture seule

Le 23/01/2019 à 09:13

Bonjour à tous,

Le titre me parait assez explicite

J'ai créer une procédure de sauvegarde de plusieurs fichier (avec mot de passe) via des liens hypertexte.

Afin d'optimiser ce traitement, j'aurai souhaité que les fichiers s'ouvrent en lecture seule afin de m'épargner la saisie du mot de passe.

Auriez vous une solution ?

Pour une fois, je met le code plutôt que le fichier, ce dernier ne servant pas à grand chose dans ce cas précis.

Merci d'avance et bonne journée

Isabelle

Sub sauvegarde()
Dim MonDossier As String
Application.DisplayAlerts = False
Derligne = Range("B" & Rows.Count).End(xlUp).Row
date_j = Format(Now(), "yyyymmdd")

For i = 6 To Derligne

MonDossier = "\\MAFF-RC-PILOTAGE.032\MAFF-RC-PILOTAGE.001\Sauvegarde Hebdo\2019\" & Workbooks("Sauvegarde hebdo.xlsm").Sheets("Feuil1").Cells(i, 2).Value
    If DossierExiste(MonDossier) = False Then

    MkDir (MonDossier)

    Else
    End If

Cells(i, 2).Select
    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=MonDossier & "\" & Workbooks("Sauvegarde hebdo.xlsm").Sheets("Feuil1").Cells(i, 2).Value & " - " & date_j
    Application.DisplayAlerts = True
    ActiveWorkbook.Close False
Next i

MsgBox ("Sauvegarde effectuée avec succès")

End Sub
Le 23/01/2019 à 16:34

Bonjour,

Une solution est d'utiliser un script VBS.

Ci-joint exemple avec comme dossier de départ : Mes Documents

https://www.cjoint.com/c/IAxqls4tpBJ

Rechercher des sujets similaires à "ouverture classeur via lien hypertexte lecture seule"