Desktop-Verknüpfung mit ReadOnly
17.08.2006 11:45:49
stefanseevetal
Habe schoin wieder eine Frage, für die ich im Archiv keine Antwort gefunden habe: Wie ich eine Destopo-Verknüpfung per VBA erstellen kann, habe ich bereits im Forum herausgefunden. Nun möchte ich aber in die Verknüpfung einbauen, das wenn ich die Datei über diese Verknüpfung aufrufe, diese nur schreibgeschützt (ReadOnly) geöffnet wird. Hier ist der Code, mit dem ich die Verknüpfung erstelle. Wo kann ich da so eine Anweisung einbauen, wenn überhaupt?
Sub Verkuepfung()
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Set wbA = ActiveWorkbook
If wbA.Name = wbA.FullName Then
MsgBox wbA.Name & " muss erst gespeichert werden!"
Exit Sub
End If
Set wSh = CreateObject("WScript.Shell")
sDesktop = wSh.SpecialFolders("Desktop")
Set oSh = wSh.CreateShortcut(sDesktop & "\" & "Stillstands- und Schadensmeldungen.lnk")
'Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
.Targetpath = wbA.FullName
.Save
End With
Set wSh = Nothing
MsgBox "Desktop-Verknüpfung wurde erstellt", vbExclamation, "Desktop-Verknüpfung"
End Sub
Danke und Gruß,
Stefan