Özel Araç Çubuğu

1 2

merhaba kolay gelsin.
araç çubukları üzerinde mause ile sağ tık yapınca menü açılıyor, bu menüden özel araç çubuğu sil'e tıklanınca araç çubuğunu siliyor,
kullanıcıların silememesi için
özel araç çubuğu sil, pasif edilebilirmi acaba?

[img]
[/img]

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;
özel araç çubuğunu sil" e aslında bir form açıkken değil,
tüm formlar kapalıyken de basılabilir.

araç çubuğu kısmındaki
dokuma, iplik tüketim, döviz kurları vs. bunların hepsi ayrı araç çubukları, ben araç çubuklarının gözüktüğü bu alanda tüm araç çubuklarını göstermesini seçtiğim için gözüküyor,
fakat kullanıcı
üzerine tıklıyıp da özel araç çubuğun sil 'i seçtiğinde siliniyor,
amacım , özel araç çubuğunu sil'in pasif olması yada olmaması,

örnek üzerinde yardımcı olabilirmisiniz?
yardımlarınız için şimdiden çok teşekkür ederim,
saygılarımla

Arka planda çalışan gizli bir form oluşturun ve kodu onun üzerinde çalıştırın böylece kapatamazlar.

atoykan üstadım kolay gelsin,
arka planda çalışacak gizli bir form nasıl oluşturulur acaba?
ben yapamadım da?
yardımcı olabilirmisiniz?

Bu çeşitli yöntemler uygulayabileceğiniz çok basit bir uygulama Sayın @husem. Bir kaç yol:

uygulamanız açılırken yüklenecek bir form tasarlayın ve görünürlük özelliğini hayır yapın.
uygulamanız açılırken yüklenecek bir form tasarlayın ve forumun yüklendiğinde olayına me.visible = false kodunu girin.
uygulamanız yüklenirken başka bir form açlımak zorunda ise o form yüklendiğinde olayına DoCmd.OpenForm "gizli formunuzun adı", acNormal, , , , acHidden kodunu girin

her yöntemde açılan form açık olsa da görüntülenmez.

1 2