Excel bewerken als userform zichtbaar

[Denis58]

Als een newbee in het werken met VBA Heb ik een User Form met een aantal buttons met hyperlinks en programma's die ik veel gebruik gemaakt die opstart zonder dat het Werkboek zichtbaar is.
Als ik nu een ander Werkboek of een Excel file open heb staan wordt deze verborgen en kan ik niets bewerken, ook kan ik geen andere Werkboek of een Excel file openen om te bewerken. Dit lukt alleen als ik het User Form sluit. Dan komen alle Excel documenten weer tevoorschijn en kan ik ze weer bewerken.

Mijn vraag, Is er een code waar alleen het betreffende Werk Boek verbergt?
Zodat ik de ander Excel documenten wel kan bewerken als het User Form zichtbaar is?


Hier onder staan de codes die ik nu gebruik.

WorkBoek:

Private Sub Workbook_Open()
    Application.Visible = False
    WPP_Tools.Show  
End Sub

]

Userform:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.Visible = True
    Unload Me
    End Sub

Module1:

Sub ShowUserForm()
WPP_Tools.Show
End Sub

Alvast bedankt voor de hulp.

Groet

Dennis

 

[edmoor]

In de code staat dat Excel pas weer zichtbaar wordt gemaakt bij het sluiten van de Userform.

Kijk eens hier bij #8:
https://www.mrexcel.com/board/threa...rkbook-not-visible-on-opening-workbook.43591/

 

[mvdvlist]

En zowiezo zou ik

Private Sub Workbook_Open()
    Application.Visible = False
    WPP_Tools.Show  
End Sub

veranderen in

Private Sub Workbook_Open()
    Application.Visible = False
    WPP_Tools.Show  vbModeless
End Sub

Anders kun je nog niet buiten je formulier werken...

 

[Denis58]

Excel bewerken als userform zichtbaar is

Bedankt voor de reactie, en de code werkt.

Maar kan deze aangevuld worden door het werkboek automatisch te minimaliseren en het userform zichtbaar te houden?

Ik heb op andere forums wel iets gezien en geprobeerd maar deze werkte niet helemaal goed, het gaat om een applicatie maken in Excel.
Hieronder is de link naar het artikel.
http://www.eileenslounge.com/viewtopic.php?f=30&t=31222

alvast bedankt voor de uitleg.

 

[AHulpje]

Plaats het volgende VBScript in dezelfde map als je Exceldocument, geef het een logische naam (Startmenu.vbs ?) en start het script:

Dim objExcelDim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Open(WshShell.CurrentDirectory & "\JouwDocument.xlsm")

Je kunt daarna een tweede Excel instance starten zonder dat JouwDocument.xlsm zichtbaar wordt.

 

[snb]

Liever:

Sub M_snb()
   ActiveWorkbook.Windows(1).Visible = False
   Workbooks.Add
End Sub

 

[Denis58]

even voor de duidelijkheid

Plaats het volgende VBScript in dezelfde map als je Exceldocument, geef het een logische naam (Startmenu.vbs ?) en start het script:

Dim objExcelDim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Open(WshShell.CurrentDirectory & "\JouwDocument.xlsm")

Je kunt daarna een tweede Excel instance starten zonder dat JouwDocument.xlsm zichtbaar wordt.

Liever:

Sub M_snb()
   ActiveWorkbook.Windows(1).Visible = False
   Workbooks.Add
End Sub

Heren,

Even voor de duidelijkheid, waar plaats ik deze code, 1 op sheet 1 (mail), in ThisWorkbook, Forms of Module 1.
Of moet ik iets toevoegen om daar de code te zetten.

Ik ben nog niet thuis in VBA en waar je dit kan zetten, het is mijn eerste project wat ik heb gemaakt.

in iedergeval ben ik jullie dankbaar voor de uitleg.

Groet

Dennis

 

[AHulpje]

Maak met bijvoorbeeld Notepad een tekstbestand aan in dezelfde map als waarin ook jouw WPP-Tools.xlsm staat. Geeft dat tekstbestand een naam en de extensie VBS, bijvoorbeeld StartTools.vbs, het is daarmee een VBScript bestand geworden. Plaats in dat bestand de vier eerder genoemde regels en vervang daarin JouwDocument.xlsm door WPP-Tools.xlsm.
Dubbelklik in de verkenner op StartTools.vbs.
Je kunt daarna een nieuwe instance van Excel starten.

 

[edmoor]

Hou er rekening met dat bij het maken van een Excel object de eventueel aanwezige invoegtoepassingen niet worden geladen.
Dat dien je dan ook in de VBS te doen.

 

[Denis58]

Bedankt

Heren,

Bedankt voor jullie antwoordt en ik ben weer wat wijzer geworden.
Ik kreeg in de oplossing van AHulpje een een error in regel 1 carracter 17. Dim objExcelDim WshShell
Ik heb dit opgelost door deze onder elkaar te zetten.

Dim objExcel
Dim WshShell

Als ik nu het VBA scriptje draai krijg ik mijn tool te zien en kan ik andere documenten opennen en bewerken.

Nogmaals bedankt en als ik wat wil weten kom ik zeker weer terug met vragen.
Verder hou ik het forum in de gaten.

Nogmaals bedankt en groet :thumb:

Dennis

 

[AHulpje]

Nog een methode om een tweede instance van Excel te openen, zie https://learn.microsoft.com/en-us/office/troubleshoot/excel/force-excel-to-open-new-instance