kodları aşağıdaki gibi revize edip dener misiniz?
Kod:
Private Sub Form_Load()
Call LoadCustomToolbar
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnloadCustomToolbar
End Sub
Private Sub LoadCustomToolbar()
Dim cmdBar As Object
Set cmdBar = CommandBars("CustomToolbarName") ' Kendi toolbar adınızı buraya yazın
If cmdBar Is Nothing Then
Set cmdBar = CommandBars.Add("CustomToolbarName", msoBarTop, False, True) ' Kendi toolbar adınızı buraya yazın
End If
cmdBar.Visible = True
End Sub
Private Sub UnloadCustomToolbar()
Dim cmdBar As Object
Set cmdBar = CommandBars("CustomToolbarName") ' Kendi toolbar adınızı buraya yazın
If Not cmdBar Is Nothing Then
cmdBar.Visible = False
End If
End Sub