AccessTr.neT

(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]

Sayın @husem

kodları aşağıdaki gibi revize edip dener misiniz?