Print side | Luk vindue

Skjul overskrifter+ubrugte felter

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=406
Udskrevet den: 23.Nov.2024 kl. 11:23


Emne: Skjul overskrifter+ubrugte felter
Besked fra: Weiss
Emne: Skjul overskrifter+ubrugte felter
Posteringsdato: 23.Jul.2011 kl. 13:07
Jeg har lavet et nyt spørgeskerma hvor resultaterne ender i et "edderkoppediagram" og det virker fint.
1. Er det muligt at "kolonneoverskrifter" A B C D osv og rækketallene bliver skjulte så det ikke ligner et regneark?
2. Samtidig ønsker jeg at brugeren ikke kan scrolle ned til 123. række når jeg kun ønsker at de ser 30.række som er den sidste med relevans (og den sidst hvor der overhovedet sker noget i).
Ud fra et tidligere svar ser jeg at rækker kan skjules, men jeg mangler svar på hvordan jeg får sidste række med (jeg når aldrig til bunden).
3. Jeg har låst arket så brugeren kun kan vælge "frem og tilbageknapper" og vælge 1 svar ud af 6 (med kontrolelement, optionbutton). Er blevet nødt til at låse cellen A1 op for at kurseren står et sted ved start, men ville hellere have at den bare intet focus havde, er det muligt? Hvert spørgsmål har hver sit ark, og frem/tilbageknapper tjekker om der er svasret før de må gå videre til næste side.
Jeg bruger Excel 2003
 
Håber på lige så gode svar som altid herinde.
 
smil fra Weiss


Svar:
Besked fra: Allan
Posteringsdato: 23.Jul.2011 kl. 23:15
Hej Weiss,
Citat: Weiss Weiss skrev:

1. Er det muligt at "kolonneoverskrifter" A B C D osv og rækketallene bliver skjulte så det ikke ligner et regneark?
I Excel 2007 vil du under 'Office-knappen / Excel indstillinger / Avanceret / Visningsindstillinger' kunne fjerne markering i Vandret/lodret rullepanel.
 
Citat: Weiss Weiss skrev:

2. Samtidig ønsker jeg at brugeren ikke kan scrolle ned til 123. række når jeg kun ønsker at de ser 30.række som er den sidste med relevans (og den sidst hvor der overhovedet sker noget i).
Ud fra et tidligere svar ser jeg at rækker kan skjules, men jeg mangler svar på hvordan jeg får sidste række med (jeg når aldrig til bunden).
Marker den 31. række, hold CTRL og SHIFT nede samtidig og tryk en gang på PIL NED.
Nu er alle rækkerne nedefter markeret, højreklik nu på en af rækkerne og vælg 'Skjul'
 
Citat: Weiss Weiss skrev:

3. Jeg har låst arket så brugeren kun kan vælge "frem og tilbageknapper" og vælge 1 svar ud af 6 (med kontrolelement, optionbutton). Er blevet nødt til at låse cellen A1 op for at kurseren står et sted ved start, men ville hellere have at den bare intet focus havde, er det muligt?
 
I koden for din knap, bruger du sikkert noget á la,
Sheets("ArkNavn").select
Range("A1").select
Lav det om til:
Sheets("ArkNavn").Activate
 
Håber det kan hjælpe dig lidt på vej.
 
//Allan

Besked fra: rassten
Posteringsdato: 24.Jul.2011 kl. 02:37
En anden måde kunne også være at placere følgende kode i "ThisWorkBook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayHeadings = True

End Sub

Private Sub Workbook_Open()

Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHeadings = False

End Sub



Som Allan, ville jeg nok også vælge at skjule de rækker og kolonner som ikke skal bruges/vises.
Men man kan også begrænse det område som brugeren kan scrolle eller vælge i et ark.


Sub a_test()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.ScrollArea = "a1:m30"
Next Worksheet
End Sub

denne kode behøves kun at blive kørt en gang.


-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: Weiss
Posteringsdato: 24.Jul.2011 kl. 16:44
Tak til jer begge - jeg nu nærmere måler og det ser godt ud uden alle de overskrifter A B V mv..
Jeg brugte Raastens
 
Private Sub CommandButton2_Click()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.ScrollArea = "A1:AE40"
Next Worksheet
Så slipper jeg for at slette rækker mv når bruger alligevel kun kan scrolle i det område jeg bestemmer.
Jeg fandt menuen "Vis indstillinger" i office 2003 og kan her fravælge scrollbarer, og overskrifter - rigtig godt. Tænker at bevare scrollbarer for det tilfælde at brugeren har lille skærm eller anden opløsning der gør at de ikke kan se hele skema på en gang.
Ang hvor focus er ved arkskift er min kode her...
 
Private Sub CommandButton1_Click()
If Range("B23") <> 0 Then
Worksheets("Ark4").Activate
Else: MsgBox "Du kan ikke gå til næste side før du har svaret på spørgsmålet", , "Min Personlige Videnprofil"
End If
End Sub
 
"B23" er det felt hvor svaret fra optionbuttoms kommer ind (og den blev jeg nødt til at være ulåst, men med hvid skrift så ingen ser det.
a1 lod jeg stå ulåst for at curseren havde et sted at stå, men kan jeg ville hellere have at den intet focus havde ved arkskift.
 
hilsner fra regnvejret...
Weiss

Besked fra: Allan
Posteringsdato: 24.Jul.2011 kl. 21:10
Hej Weiss,
 
En idé:
 
Excel kræver umiddelbart at en celle er markeret, men ved at låse arket kan man omgå dette.
Du skal arkbeskytte Ark4, du vælger selv en kode.
Husk at celler som bruger skal taste i, skal være låst op.
 
Når du har gjort dette, så udskift din kode med denne:
 
If Range("B23") <> 0 Then
Worksheets("Ark4").Activate
ActiveSheet.EnableSelection = xlNoSelection
Else: MsgBox "Du kan ikke gå til næste side før du har svaret på spørgsmålet", , "Min Personlige Videnprofil"
End If
 
//Allan
 

Besked fra: Weiss
Posteringsdato: 24.Jul.2011 kl. 21:39
Tak, det var lige ActiveSheet.EnableSelection = xlNoSelection
jeg manglede for at fjerne focus.
Jeg har i ThisWorkBook sat op at arkfaner er valgt fra, men kan nu se at brugeren nemt selv kan sætte dem på igen under indstillinger, selvom jeg har beskyttet arket. Er der nogen mulighed for at undgå dette - hvad dækker beskyt projektmappe over- kan det evt bruges?
Weiss

Besked fra: Allan
Posteringsdato: 25.Jul.2011 kl. 09:12
Måske lidt overkill, men alligevel.
 
Hvis du ligger denne kode ind under alle dine ark, vil en bruger stadig kunne vise arkfaner, formellinje og scrollbars, men når de 'gør et eller andet' i arket bliver det hele skjult igen.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHeadings = False
End Sub
 
//Allan

Besked fra: Weiss
Posteringsdato: 25.Jul.2011 kl. 22:19

Hej Allan,

Det virker ikke helt efter hensigten...
Her er et eksemper på hvordan et ark nu er
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHeadings = False
End Sub
Private Sub CommandButton1_Click()
If Range("B23") <> 0 Then
Worksheets("Ark3").Activate
ActiveSheet.EnableSelection = xlNoSelection
Else: MsgBox "Du kan ikke gå til næste side før du har svaret på spørgsmålet", , "Min Personlige Videnprofil"
End If
End Sub
Private Sub CommandButton2_Click()
Worksheets("Ark1").Activate
End Sub
Desværre forhindrer det ikke brugeren i at lave "snavs" med at tilføje arkfaner mv (de skulle helst ikke se sammentællingerne der er på et ark som der normmalt springes over - er det nemmere hvis du ser hele filen?
 
De eneste sider hvor det virker på, er når jeg undlader at låse siden. I det tilfælde fjerner den ikke arkfaner ved valgt af "alternativknapperne" men ved klik i alle andre celler....Gir det mening?
Har du brug for at se arket?
 

Besked fra: Allan
Posteringsdato: 27.Jul.2011 kl. 23:24
Hej Weiss,
 
Ja, jeg tror at det ville være en god idé at se arket.
Det er naturligvis vigtigt at du allerede nu ved at man ikke kan sikre et regneark 100%. Man kan gøre det meget svært at omgå sikkerheden for almindelige brugere men ikke for kyndige superbrugere.
 
//Allan

Besked fra: Weiss
Posteringsdato: 30.Jul.2011 kl. 12:18
Hej Allan,
Tak for svar - jeg har nu arbejdet videre på arket. De vilde superbrugere er der jo ikke noget at gøre ved, men kan godt lide at sikre mig.
Jeg har nu som et forsøg lagt koden på ark 1,2,3,4,5,24,6,7 - og låst 2,3,4,5,24.
De ark uden lås opfører sig fint, blanker arkfaner ud når jeg bevæger mig i ark+faner. I de andre sker ikke noget. Jeg har også lagt koden i ThisWork Book.
Hvis det blir for bøvlet kan jeg også nøjes med at ha den i Work book og så regne med at folk holder snitterne for sig selv...
Der er lås på ark og VB -- kan lige sende dig koden i en mail...(din mailadr?)
 
På 1.side er der et felt hvor de skal udfylde navn, enter og knap for at komme videre... kan det gøres mere "fikst" - fx udfyld navn og tryk på knappen -- hvad mangler jeg for at den vil det..
 
grrr, min fil er på 336 kb - jar prøvet at zippe den, må se om det går...
/uploads/219/profil.zip" rel="nofollow - uploads/219/profil.zip
Weiss 


Print side | Luk vindue