Özel Araç Çubuğu

1 2
15/07/2023, 11:49

husem

(13/07/2023, 12:59)atoykan yazdı:
Kod:
Private Sub Form_Load()
    Call LockToolbars(True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call LockToolbars(False)
End Sub

Private Sub LockToolbars(lock As Boolean)
    On Error Resume Next
    
    Dim accObj As AccessObject
    Dim cmdBar As Object
    
    ' Çalışma veritabanının AccessObject koleksiyonunda dolaşın
    For Each accObj In CurrentProject.AllForms
        ' Sadece form objelerini kontrol edin
        If accObj.IsLoaded And accObj.IsForm Then
            ' Formu açın
            DoCmd.OpenForm accObj.Name, acDesign
            
            ' Her bir toolbar'ı kontrol edin
            For Each cmdBar In CommandBars
                ' Özel toolbar'ı bulun
                If cmdBar.Name = "CustomToolbarName" Then ' Kendi toolbar adınızı buraya yazın
                    ' Kilitliyse kilidini açın veya kilitliyse kilitleyin
                    If lock Then
                        cmdBar.Protect
                    Else
                        cmdBar.Unprotect
                    End If
                End If
            Next cmdBar
            
            ' Formu kapatın
            DoCmd.Close acForm, accObj.Name, acSaveYes
        End If
    Next accObj
    
    On Error GoTo 0
End Sub
kodunu kullanıcıların özel araç çubuğunuzu kapatmasını engellemek istediğiniz formun Vba kod bölümüne ekleyin. CustomToolbarName kısmını kendi oluşturduğunuz araç çubuğunun adıyla değiştirin.


sayın atoykan üstadım,
kodu formun Vba bölümüne ekledim,
kod da aşağıdaki resimdeki gibi hata gözüküyor,
[img]
[/img]
17/07/2023, 11:57

atoykan

Sayın @husem

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
1 2