mappen kiezen dmv vba

[coxonitus]

ik heb 1 knop die moet verwijzen naar een map. In deze map staan wederom 3 mappen met allen excel bestanden. De verwijzing naar de hoofdmap zelf heb ik nu werkend echter als ik 1 van de overige submappen selecteer doet hij niets.
wie o wie kan mij helpen?

zie vb
PW = InputBox("Geef het Paswoord aub !", , "*************")
If PW = "jackson" Then
c01 = CreateObject("Shell.Application").BrowseForFolder( 0, "Kies een map", 512, "V:\projectberstanden\Projecten")

>????
End If

 

[paulva]

Dit misschien?

PW = InputBox("Geef het Paswoord aub !", , "*************")
If PW = "jackson" Then
c01 = CreateObject("Shell.Application").BrowseForFolder( 0, "Kies een map", 512, "V:\projectberstanden\Projecten")
c02 = CreateObject("Shell.Application").BrowseForFolder( 0, "Kies een map", 512, "V:\projectberstanden\Projecten\" & c01)

 

[coxonitus]

re

beste Paulva,

als de hoofdmap "Office"geopend is, staan er in de menu lijst drie mappen te kiezen
Inkoop
Transport
Units-Personeel

Als ik bv "inkoop"aanklik moet hij deze openen.
Dit gebeurt nu niet, en ik krijg het niet aan het lopen.

in ieder geval bedankt, hopelijk kun je mij de oplossing bieden

 

[paulva]

Dit dan misschien?

Dim fdg As FileDialog, vrtSelectedItem As Variant
Dim strSelectedFile As String
Set fdg = Application.FileDialog(msoFileDialogFilePicker)
With fdg
    .AllowMultiSelect = False
    .InitialView = msoFileDialogViewDetails
    .InitialFileName = "V:\projectberstanden\Projecten\*.*"
    If .Show = -1 Then
      For Each vrtSelectedItem In .SelectedItems
          strSelectedFile = vrtSelectedItem
      Next vrtSelectedItem
    Else
    End If
End With
Set fd = Nothing
    Workbooks.Open Filename:= strSelectedFile

 

[coxonitus]

re

Paulva,
dit werkt in ieder geval. je kunt selecteren en bestand openen na correct invoeren wachtwoord.
maar ik zou me zelf niet zijn als er geen maar aanzat.

.InitialFileName = "V:\projectberstanden\Office*.*"

in de vorige reactie die ik gaf, gaf ik 3 selecties aan Inkoop, TRansport, Units-PErsoneel
Voor de map office zijn alleen deze bestanden van belang.
Als er nu gezocht wordt in het programma wat je mij gestuurd hebt zoekt hij in de complete directory van de map"projectbestanden", hoe kan ik dit tegen gaan.

met groet

 

[coxonitus]

re

Sub Administratie()
'
' Administratie Macro

PW = InputBox("Geef het Paswoord aub !", , "*************")
If PW = "jackson" Then
End If

Dim fdg As FileDialog, vrtSelectedItem As Variant
Dim strSelectedFile As String
Set fdg = Application.FileDialog(msoFileDialogFilePicker)
With fdg
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.InitialFileName = "V:\projectberstanden\Office\"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
strSelectedFile = vrtSelectedItem
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
Workbooks.Open FileName:=strSelectedFile

End Sub





Dit is de code die dankzij Paulva kan gebruiken.
Het probleem met de directory is opgelost.
Echter nu werkt het WW niet meer.
Dus graag zou ik zien dat er een ww aangekoppeld wordt. Bij akkoord WW doorverwijzen en foutief wachtwoord zou ik een tekst willen bijvoegen waarna hij automatisch programma afsluit.

ik hoop dat ik jullie nu het probleem duidelijker heb kunnen maken.
ben er niet zo goed maar dankzij jullie en de forums kom ik een end op weg.

met groet

 

[coxonitus]

re

nog even vergeten.
er moet een uitsluiting inzitten.
diegene die in dit "office" werkt mag alleen toegang hebben tot het aantal mappen in "office"

sorry