formulebalk zichtbaar/onzichtbaar

[SUVERMO]

Goede morgen,

heeft er iemand een oplossing voor volgende

Hoe kan men bekomen dat wanneer er een cel binnen de omtrekranden wordt geselecteerd de formulebalk zichtbaar wordt, anders formulebalk onzichtbaar.
Dit voor alle bladen.

 

[HSV]

In Thisworkbook-module.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application
Select Case Sh.Index
  Case 1
    .DisplayFormulaBar = Not Intersect(Target, Range("b6:b14,e6:k14")) Is Nothing
  Case 2
     .DisplayFormulaBar = Not Intersect(Target, Range("c6:g24")) Is Nothing
  Case 3
     .DisplayFormulaBar = Not Intersect(Target, Range("c6:c20,g6:j2014,m6:n20")) Is Nothing
 End Select
End With
End Sub

 

[cow18]

in een beveiligd werkblad bv.
https://docs.microsoft.com/en-us/office/vba/api/excel.range.formulahidden

 

[SUVERMO]

bedankt voor de info
heb wel een aanpassing gedaan zodat het ook werkt als er rijen worden ingevoegd, en om de cel_namen te verbergen

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
For Each nm In ThisWorkbook.Names
    nm.Visible = False
Next nm
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
For Each nm In ThisWorkbook.Names
    nm.Visible = True
Next nm
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
BEREIK1A = Range("BEREIK1A").Value
BEREIK2A = Range("BEREIK2A").Value
BEREIK3A = Range("BEREIK3A").Value
With Application
Select Case Sh.Index
  Case 1
    .DisplayFormulaBar = Not Intersect(Target, Range(BEREIK1A)) Is Nothing
  Case 2
     .DisplayFormulaBar = Not Intersect(Target, Range(BEREIK2A)) Is Nothing
  Case 3
     .DisplayFormulaBar = Not Intersect(Target, Range(BEREIK3A)) Is Nothing
 End Select
End With
End Sub

 

[HSV]

Maak van je selecties tabellen, geen omkijken naar het bereik.

 

[SUVERMO]

dat ken ik niet, heeft u een voorbeeld
toch bedankt voor uw medewerking

 

[HSV]

Met tabellen.

 

[SUVERMO]

beste HSV,

ziet er leuk uit, maar kan men bekomen dat er rijen kunnen worden ingevoegd?

ik vind nu het beetje storend dat het scherm een beetje flikkert, is het mogelijk om de formule balk onderaan te plaatsen?

 

[HSV]

Voeg een volle rij toe op de onderste rode lijn en ga in een van de tabellen in de rechter benedenhoek staan en druk TAB.
Of per tabel rechtermuis → invoegen → tabelrijen.

 

[SUVERMO]

Kan dit met een macro?

 

[SUVERMO]

formulebalk onderaan plaatsen kan dat?

 

[HSV]

Tabellen uitbreiden is niet zo ingewikkeld, maar dan denk ik, wat wil je met dit alles.

Geen idee of de formulebalk onderin het beeld kan en zal ik zeker niet uit gaan vinden, ik heb daar verder niets mee.

 

[SUVERMO]

Goedenavond HSV

vandaag wat aan het proberen geweest.
in bijgevoegd bestand staat verdere uitleg
het werkt zoals verwacht
ga het nu proberen te gebruiken in een ander bestand

groetjes en bedankt voor de hulp

 

[VenA]

Altijd fijn die bestandjes de settings wijzigen bij het openen en deze niet terugzet bij het sluiten.

 

[SUVERMO]

sorry, dat was niet de bedoeling
in het vervolg zal ik eerst de code van auto-open en auto-close, dan kunnen jullie zien of er iets fout in staat.

Wat was er fout?

 

[HSV]

Bij het vorig bestand werd alles netjes terug gezet; geen klagen.

 

[SUVERMO]

Kan je zelf toch zien? Of google je alles bij elkaar en propt het in een bestandje zonder te weten wat de effecten zijn?

was "Application.MoveAfterReturnDirection = xlToRight" het probleem?
hoe kan dat teruggezet worden naar de instelling van de gebruiker, het kunnen 3 andere instellingen zijn?

Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight
Application.DisplayFormulaBar = True
For Each nm In ThisWorkbook.Names
    nm.Visible = False
Next nm
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
For Each nm In ThisWorkbook.Names
    nm.Visible = True
Next nm
End Sub

 

[HSV]

[COLOR=#ff0000]private muisrichtinggebruiker[/COLOR]


Private Sub Workbook_Open()
[COLOR=#ff0000] muisrichtinggebruiker = Application.MoveAfterReturnDirection[/COLOR]
 Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[COLOR=#ff0000] Application.MoveAfterReturnDirection = muisrichtinggebruiker[/COLOR]
End Sub

 

[VenA]

muisrichtinggebruiker is wel een heel bijzondere naam voor een variabele die de het gedrag van de <ENTER> toets opslaat. Waarom sommigen het leuk vinden om instellingen van gebruikers aan te passen blijft voor mij een raadsel.

 

[HSV]

Tja, 't is wat, terplekke verzonnen.
Daar geef ik dus eigenlijk al mee aan dat ik niets met veranderende instellingen heb maar het toch maar ter illustratie plaats (ik hoef er tenslotte niet mee te werken).