Avatar billede steensommer Praktikant
02. november 2003 - 15:45 Der er 19 kommentarer og
2 løsninger

Userform som startside

Hej
Jeg har lavet en userform som startes fra Workbook_Open. Userformen er samtidig et log-on for brugerne.
Jeg ville gerne om man ikke kunne se projektmappen bag ved Userformen. Jeg har forsøgt at gøre arkene usynlige med vba men det kan åbenbart ikke lade sig gøre med alle ark. Er nogle bekemdet med om det lader sig gøre?

vh Steen
Avatar billede bak Forsker
02. november 2003 - 16:16 #1
Nej, man kan ikke skjule alle ark, men du kan jo altid have et tomt ark som startark (uden gitterlinier og andet)
Avatar billede steensommer Praktikant
02. november 2003 - 16:17 #2
Øv det var ærgeligt - det kunne ellers se godt ud :0(
Avatar billede steensommer Praktikant
02. november 2003 - 16:18 #3
Hvad med at kunne minimere resten af projektmappen?
Avatar billede bak Forsker
02. november 2003 - 16:22 #4
Det er en mulighed, der kan bruges :-)
jeg kan nu bedre llide tanken om det ekstra, for der kan jo passende stå en meddellelse om at man skl huske at slå makroer til.
Denne tekst vil (hvis makroer er slået til) være dækket af userformen. hvs makroer ikke er slået til vil brugeren kun se teksten og ikke kunne skifte ark (de er vel sat som xlveryhidden)
Avatar billede kabbak Professor
02. november 2003 - 16:24 #5
Her er en der ikke er helt færdig.
I Thisworkbook modulet

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UF_Login.Show
End Sub

en knap i userformen

Private Sub CommandButton1_Click()
InputBox " indtast Password"
' kode
UF_Login.Hide
Application.WindowState = xlNormal
End Sub

så starter regnearket minimeret på linien, og når man klikker den op er der kun userformen man kan se.
Avatar billede kabbak Professor
02. november 2003 - 16:28 #6
kommandoen 'Application.WindowState = xlNormal
virker ikke når userformen er aktiv.

er der nogen der kender kommandoen for at vise userformen, istedet for at man klikker på linien ?.
Avatar billede bak Forsker
02. november 2003 - 16:31 #7
Dette kan måske bruges. Her gemmes hele det aktive vindue og ikke bare arkene.
Private Sub Workbook_Open()
ActiveWindow.Visible = False
UserForm1.Show
End Sub
Avatar billede steensommer Praktikant
02. november 2003 - 16:31 #8
--> kabbak Jeg havde prøvet tilsvarende men det ville være smartere om brugerformen var synlig og resten usynlig/minimize´d
Avatar billede steensommer Praktikant
02. november 2003 - 16:40 #9
-->bak hjælp. Efter at jeg indførte ActiveWindow.Visible = False kan jeg overhovedet ikke komme ind i mappen - jeg kan få userformen frem men den afviser nu min kode??? Hvordan er det nu man kan inaktivere makroerne (er det shift eller ctrl?)
Avatar billede bak Forsker
02. november 2003 - 16:44 #10
Shift :-)
Men prøv lige at gå op i Vindue og Vis

Kabbak, jeg tror DoEvents passer  :-)
Sub test4()
Application.WindowState = xlMinimized
DoEvents
UserForm1.Show
End Sub
Avatar billede steensommer Praktikant
02. november 2003 - 16:47 #11
Hvad mener du med det? Men pyt rigtige mænd har da taget en backup. Jeg prøver lige det du skrev ;0)
Avatar billede steensommer Praktikant
02. november 2003 - 16:52 #12
Det virker desværre heller ikke!!!
Avatar billede bak Forsker
02. november 2003 - 17:00 #13
Hvad er det, der ikke virker ?
Avatar billede steensommer Praktikant
02. november 2003 - 17:02 #14
At userformen er synlig og resten minimized! (alt er minimized)
Avatar billede bak Forsker
02. november 2003 - 17:04 #15
Jeg glemte nok at skrive at du i userformens properties skal sætte ShowModal til false
Avatar billede bak Forsker
02. november 2003 - 17:07 #16
eller
UserForm1.Show (False)
Avatar billede steensommer Praktikant
02. november 2003 - 17:16 #17
Tja det bliver jo en vane med al den ros.
Den eneste lille hage er at excel primært starter om og herefter forevinder igen inden userformen kommer frem  ... men det kan man da leve med :0DSvar lige hvis din konto ikke har nået max-grænsen
Avatar billede bak Forsker
02. november 2003 - 17:40 #18
Jeg tror nok kontoen kan klare ldt endnu, men pointene skal deles med kabbak, da ideen jo er hans :-)
Avatar billede steensommer Praktikant
02. november 2003 - 17:44 #19
OK - retfærdigt nok men så må han jo også lige svare
Avatar billede kabbak Professor
02. november 2003 - 17:46 #20
jaa, men bak skal have det meste, jeg fik lige gæster, så jeg kunne ikke følge op.
Avatar billede kabbak Professor
02. november 2003 - 17:52 #21
Hej bak, jeg fik ikke testet din, men det med modal = false , gør at min virker nu.

du ser kun formularen og ikke andet.

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UF_Login.Show (False)
End Sub

Private Sub CommandButton1_Click()
InputBox " indtast Password"
UF_Login.Hide
Application.WindowState = xlNormal
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester