Bewerken inschakelen

[swaenie]

Na het klikken op een cmdButton wordt m.b.v. Application.Dialogs(xlDialogOpen).Show een xls-bestand geladen. Als het bestand een Beveiligde weergave betreft, wil ik het bewerken inschakelen met Application.ActiveProtectedViewWindow.Edit.


Ik krijg echter de melding: Objectvariabele of blokvariabele With is niet ingesteld.

Hoe kan ik dit oplossen?

 

[HSV]

Dat is code vanaf Excel 2010 volgens mij (ik bezit 2007, dus ik kan je niet helpen).

Dit kan ik er over vinden voor je.

[COLOR=#333333]Application.ProtectedViewWindows.Open Filename:=fName[/COLOR]
[COLOR=#333333]Application.ActiveProtectedViewWindow.Edit[/COLOR]

 

[swaenie]

@HSV
Bedankt voor je reactie.
fName is van te voren nog niet bekend. Toch heb ik het geprobeerd met een bestaand bestand. Dan krijg ik echter de melding dat naam en/of locatie niet juist is. En dat is toch echt wél het geval.
Onduidelijk waarom ik deze melding krijg.

 

[swaenie]

Heeft iemand een oplossing? Of is er geen oplossing?
Bedankt voor het meedenken.

 

[jkpieterse]

Hoe opent hetzelfde bestand als je deze regel uitvoert:

Workbooks.Open "Naam van je bestand"

Indien normaal, gebruik dan:

Sub GetOpenFileNameExample3()
    Dim lCount As Long
    Dim vFileName As Variant
    Dim sPath As String
    Dim lFilecount As Long
    sPath = "c:\windows\temp\"
    ChDrive sPath
    ChDir sPath
    vFileName = Application.GetOpenFilename("Microsoft Excel files (*.xls*),*.xls*", , "Please select the file(s) to open", , True)
    If TypeName(vFileName) = "Boolean" Then Exit Sub
    For lCount = LBound(vFileName) To UBound(vFileName)
        Workbooks.Open CStr(vFilename(lCount))
    Next
End Sub

 

[swaenie]

@jkpieterse
Geweldig. Bedankt voor de supersnelle reactie. Dit werkt..!! :thumb: