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