takenbalk weg ?

[schuurar]

Beste forum,

Ik ben na het openen van een excel formulier mijn takenbalk kwijt.
Ik heb alleen nog de werkbalken. Wie kan mij vertellen hoe ik deze weer terug krijg ???

bedankt alvast.

 

[HSV]

Ik heb geen idee, maar misschien kun je de code van het Excel bestand hier plaatsen.

 

[schuurar]

Dit staat er onder Blad1

Private Sub CommandButton1_Click()
 Formulier.Show
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G:G,I:I,J:J,O:O,P:P")) Is Nothing Then
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
        Target.Value = UCase(Target.Value)
    End If
End Sub

en dit staat er bij ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ESC}"
End Sub

Private Sub Workbook_Open()
Onzichtbaar_maken_Toolbars
Application.OnKey "{ESC}", ""
End Sub

 

[schuurar]

Heb hier het document waar het gebeurde.
Het komt ook van het forum maar weet niet uit welke (sorry)

Gebruik nog office 2002 btw

 

[HSV]

In een module moet nog ergens de code staan van:

Onzichtbaar_maken_Toolbars

Kun je die hier ook plaatsen?
Het bestand openen maakt mijn taakbalk namelijk ook weg.

 

[ExcelAmateur]

schuurar,

Kijk eens of je wat met deze link kunt?

Hier is nog een link

 

[schuurar]

uuhh weet niet waar ik dat moet vinden.
Wat ik kon vinden staat hier. Die jij dus ook geopend hebt.
Zit jij nu ook met het zelfde probleem Harry??? Dat was niet de bedoeling

 

[schuurar]

Bedankt EA

Heb het opgelost nu.

Voor Harry.
Ik heb excel geopend.
ATL+F11
Deze code geplakt in Thisworkbook.
Op "play" gedrukt en klaar.

Sub RestoreToolbars()

    On Error Resume Next

        With Application

           .DisplayFullScreen = False

           .CommandBars("MyToolbar").Enabled = False

           .CommandBars("Worksheet Menu Bar").Enabled = True

        End With

    On Error GoTo 0

End Sub

 

[HSV]

Mooi dat het is opgelost 'schuurar'.
Nee, ik heb het bestand niet geopend.
In Thisworkbook stond coderegel:
'Onzichtbaar_maken_Toolbars'
Dat lijkt op een commando voor het aanroepen van een die code in een standaard module.
Dus van: 'Call Onzichtbaar_maken_Toolbars'.

Maar je bent mooi geholpen door @ExcelAmateur. :thumb: