| Forfatter |
 Emne Søg  Emne funktioner
|
Weiss 
Bronze bruger
Medlem: 12.Mar.2011
Land: DK
Status: Offline
Point: 22
|
 Emne: Skjul overskrifter+ubrugte felter
Sendt: 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
|
 |
|
|
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 23.Jul.2011 kl. 23:15 |
Hej 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.
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'
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
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
Sendt: 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
|
|
Weiss
Bronze bruger
Medlem: 12.Mar.2011
Land: DK
Status: Offline
Point: 22
|
Sendt: 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
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 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
|
|
Weiss
Bronze bruger
Medlem: 12.Mar.2011
Land: DK
Status: Offline
Point: 22
|
Sendt: 24.Jul.2011 kl. 21:39 |
Tak, det var lige ActiveSheet.EnableSelection = xlNoSelectionjeg 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
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 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
|
|
Weiss
Bronze bruger
Medlem: 12.Mar.2011
Land: DK
Status: Offline
Point: 22
|
Sendt: 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?
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 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
|
|
Weiss
Bronze bruger
Medlem: 12.Mar.2011
Land: DK
Status: Offline
Point: 22
|
Sendt: 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...
Weiss
|
|
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Skjul overskrifter+ubrugte felter