Søg
Avatar billede npr Nybegynder
16. maj 2001 - 21:07 Der er 40 kommentarer og
1 løsning

Excel 2000/Fuld skærm..... Makro ?

Hej alle

Emne:
Jeg er ved at samle firmaets kontrolskemaer i Excel 2000.

Det udføres som en hybrid mellem regneark og webside, dvs. med masser af hyperlinks og formattering.

Problemstilling:
Når jeg åbner programmet (projektet) skal det åbne i fuld skærm, ingen arkfaner og ingen kolonne/rækkeoverskrifter.
Hvordan gør jeg det ?

Jeg har prøvet at indspille en makro hvor jeg slog det fra og \"maksimerede skærmbilledet\" men der skete ikke noget, andet end at arkfanerne forsvandt.
Endvidere kunne jeg ikke bruge mine hyperlinks er det normalt? Arkene var godt nok beskyttet :-/

Skal det skrives i VB eller ...?

Bemærk:
Jeg er totalt ny udi Visual Basic så en evt. forklaring der måtte komme, må gerne beskrives \"letfatteligt\" ;-)

/npr
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:14 #1
Jeg vil umiddelbart gribe sagen an på samme måde sm dig, og så placere koden i kodemodulet ThisWorkbook i proceduren:
Private Sub Workbook_Open()
    \'din kode...
End Sub

Har du stadig koden, som du optog, så kan jeg kigge den igennem. Blot cut & paste koden herind.
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:16 #2
Jeg ser lige fodbold, hvorfor jeg ikke lige strikker en løsning sammen, men jeg kan godt kigge din kode igennem :-)
Avatar billede npr Nybegynder
16. maj 2001 - 21:24 #3
Øhhhh (I er dæleme hurtige :-))

Sub FullScreen()
\'
\' FullScreen Makro
\' Makro indspillet 16-05-2001 af npr
\'

\'
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayWorkbookTabs = False
    End With
    Application.DisplayFullScreen = True
End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:27 #4
Hvis du kopierer nedenstående ind i kodemodulet, som hedder \"ThisWorkbook\", så burde den være der.
Jeg laver lige selv en test, men prøv du bare også.

Private Sub Workbook_Open()
\' FullScreen Makro
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayWorkbookTabs = False
    End With
    Application.DisplayFullScreen = True
End Sub

Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:29 #5
Jep, den virker fint hos mig.
Avatar billede npr Nybegynder
16. maj 2001 - 21:29 #6
Men når jeg så åbner et blankt ark efterfølgende, gemmer den tilsyneladende indstillingerne i andre dokumenter ,det skal den helst ikke :-(
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:31 #7
Ja, det har jeg lige opdaget, jeg føjer lige en sløjfe på, så alle ark løbes igennem. Øjeblik.
Avatar billede janvogt Praktikant
16. maj 2001 - 21:34 #8
Jeg vil tro, at denne kode kan løse dit problem:

Sub FullScreen()
\' Skjuler formelbar og statusbar
        Application.DisplayFormulaBar = False
        Application.DisplayStatusBar = False
\' Skjuler værktøjslinier
        Application.CommandBars(\"Standard\").Visible = False
        Application.CommandBars(\"Formatting\").Visible = False
\' Skjuler række/kolonne header
        Dim ws As Worksheet
        Dim wsA As Worksheet
        Application.ScreenUpdating = False
        Set wsA = ActiveSheet
   
        For Each ws In ActiveWorkbook.Worksheets
            ws.Activate
            ActiveWindow.DisplayHeadings = False
        Next ws
    wsA.Activate
End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:36 #9
Private Sub Workbook_Open()
\' FullScreen Makro
Dim Wsh As Worksheet
Dim ActWsh As Worksheet
    Set ActWsh = ActiveSheet
    Application.ScreenUpdating = False
   
    For Each Wsh In ActiveWorkbook.Worksheets
        Wsh.Activate
        With ActiveWindow
            .DisplayGridlines = False
            .DisplayHeadings = False
            .DisplayWorkbookTabs = False
        End With
    Next Wsh
   
    ActWsh.Activate
    Application.DisplayFullScreen = True
   
Set Wsh = Nothing
Set ActWsh = Nothing
Application.ScreenUpdating = True
End Sub
Avatar billede janvogt Praktikant
16. maj 2001 - 21:39 #10
Ok, jeg mangler vist lige fanerne.
ActiveWindow.DisplayWorkbookTabs = False i sidste løkke skulle løse det.

Og så burde koden vel ligge i: Private Sub Workbook_Open()

   
Avatar billede npr Nybegynder
16. maj 2001 - 21:40 #11
Kolonne/rækkeoverskrifter i de efterfølgende ark er der stadig ..... men det er vel et spørgsmål om at gentage proceduren på samtlige ark ?

OK :-)

Men når jeg åbner et tomt dokumentark åbner den i Fuld Skærm ?
Hvordan forhindrer jeg den i at gøre det ?

Jeg ved at folk vil brokke sig, så jeg vil helst undgå denne \"feature\" fra starten af :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:40 #12
:-)
Avatar billede janvogt Praktikant
16. maj 2001 - 21:41 #13
Dette problem er løst i min kode!
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:41 #14
øh, npr - hvem af os skriver du til ?
Min kode stump har ikke det problem, som du beskriver.
Avatar billede npr Nybegynder
16. maj 2001 - 21:47 #15
Ok, jeg prøver flemmingdahl først ??

flemmingdahl: Jeg aner det ikke, men al hjælp er da velkomment :-)

Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:48 #16
:-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:49 #17
hold da op..... 3-2 til liverpool, og der er kun spillet 3 min. af 2. halvleg - fed finale :-)
Avatar billede janvogt Praktikant
16. maj 2001 - 21:50 #18
Tjah, men ellers minder koderne jo om hinanden! :-)
Nå, så er halvegen vist forbi i fodboldkampen.
Avatar billede npr Nybegynder
16. maj 2001 - 21:51 #19
Nope

Den går ikke!
Efterfølgende Exceller åbner op i Fuld skærm.

Jeg slog fuld skærm fra og gemte det tomme ark.

Men problemet opstår stadig :-/
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:51 #20
ja, en ny er igang, der er kun 1 meter imellem tv\'et og pc-skærmen :-) lettere tilbagelænet i kontorstolen - det virker :-)
Avatar billede janvogt Praktikant
16. maj 2001 - 21:52 #21
Hvis du kombinerer flemming og min kode må du kunne klare dit problem!
Hov 3 - 3 !!! Farvel!
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:53 #22
6 min spillet 3-3 - fantastisk
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:54 #23
Øh, hvad gør du !!!
jeg kan sende dig mit ark, jeg har ingen problemer.
Avatar billede npr Nybegynder
16. maj 2001 - 21:55 #24
janvogt: Dur ikke ! Der er fejl i koden!

-->Private Sub Workbook_Open()<--
Sub FullScreen()
\' Skjuler formelbar og statusbar
        Application.DisplayFormulaBar = False
        Application.DisplayStatusBar = False
\' Skjuler værktøjslinier
        Application.CommandBars(\"Standard\").Visible = False
        Application.CommandBars(\"Formatting\").Visible = False
\' Skjuler række/kolonne header
        Dim ws As Worksheet
        Dim wsA As Worksheet
        Application.ScreenUpdating = False
        Set wsA = ActiveSheet
   
        For Each ws In ActiveWorkbook.Worksheets
            ws.Activate
            ActiveWindow.DisplayHeadings = False
        Next ws
    wsA.Activate
End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:56 #25
smid lige din mail adresse, så får du mit ark.

Jeg kan også indsætte min kode i dit ark, så mail det til flemse@post3.tele.dk
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 21:57 #26
det er vist din fejl.....!

-->Private Sub Workbook_Open()<--
Sub FullScreen()

fjern --> og <-- samt linien Sub FullScreen()
Avatar billede npr Nybegynder
16. maj 2001 - 22:00 #27
Jeg har cut/pastet din kode ind i ThisWorkBook og gemt det.

Men problemet er der stadig (alt er væk undtagen kolonne/rækkeoverskrifter i nye Excel\'ler) :-/
Avatar billede npr Nybegynder
16. maj 2001 - 22:01 #28
--> og <--  har jeg tastet ind for at vise hvor debuggeren markerede koden :-)
Avatar billede npr Nybegynder
16. maj 2001 - 22:03 #29
Ok send det til nielsemand@image.dk :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:03 #30
Ja, okay - beklager standard excel ved en ny workbook :-(
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:05 #31
det der med debuggeren - du har to makro start linier lige efter hinanden.
1: Private Sub Workbook_Open()
2: Sub FullScreeen()

slet linie nr. 2
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:06 #32
Fil er sendt.
Avatar billede npr Nybegynder
16. maj 2001 - 22:12 #33
Fil er modtaget og testet men problemet er der stadig (nye exceller starter op i fuld skærm) :-(

Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:13 #34
Yes, det fik jeg også med 4 svar oppe, desværre.
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:15 #35
OH - 4-3 til Liverpool :-)
Avatar billede npr Nybegynder
16. maj 2001 - 22:22 #36
Hmm kan man så ikke gøre noget ved det ??

Og mine hyperlinks viser ikke at de har været besøgt :-(

Anyone ?

Kan du så fortælle mig hvordan man får sin egen menulinie ??

Eller vil du have dine points først ?
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:27 #37
Jo, måske.....jeg vil lure lidt på det, og smide dig en mail, hvis jeg finder en løsning.

Hyperlinks !! Lure jeg også lige på.

Menu se http://www.eksperten.dk/spm/46746 her har jeg givet en god opskrift herpå.

Hvis du vil have hjælp mod betaling, kan du også få det :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:30 #38
4-4 - 4 mål pr. halvleg - fantastisk kamp :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:33 #39
Hvad går der galt hos dig.

Med alle ark beskyttet og projektmappe beskyttet, så viser mit hyperlink fint, at det har været brugt.
Avatar billede npr Nybegynder
16. maj 2001 - 22:40 #40
Okay min fejl :-/

Jeg slettede øverste linie samt sub test afsnittet (rødme)

Det er tilføjet igen og nu funker det :-)

(Bortset fra det med de andre exc...osv øvbøv.

Men du får dine point som tak for hjælpen ;-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. maj 2001 - 22:45 #41
god fornøjelse.
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker 2 14/05/202623:24 15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker 11 11/05/202610:48 12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker 12 24/04/202617:35 26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker 0 16/04/202622:13 -
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker 19 13/04/202616:33 04/05/202611:48
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:52 Intego Antivirus - 1 år for 0,12 Kr.?? Af Uvanga i Virus
I går 13:18 Lokal konto Af Bent i Windows
26/0516:16 Inverse formler Af tdktman i Excel
26/0515:33 disk plads på server Af dcedata1977 i Servere
26/0509:09 Flere brugere i 1 delt pivottabel Af mira96ac i Excel
White papers
Flere white papers »