Modül açıp bu kodu yapıştır.
Kod:
Global OkToClose As Boolean
Function menulerGitsin()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = False
Next I
End Function
Function gelsinMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = true
Next I
End Function
menülerin tekrar gelmesini istersen. ister komut ister formun açıldığında olayına gelsinMenu() yaz o kadar. bu arada ozan ile birlikte yazmışız. ikisinide incele hangisi uyuyorsa onu kullanabilirsin.
selamlar.