Vba şifre giriş bölümü iptal

[cocoa35]

Arkadaşlar aşağıda yazmış olduğum kod'lar vba şifre bölümünün açılmasını engelliyor veya açıyor (ancak vb projet erişimine güven kutusu işaretli olması kaydı ile)..ancak sadece xp de çalışıyor..
sorum aşağıdaki kod'lar vistada çalışacak şekilde nasıl düzenlenebilir ve ayrıca vb project erişimine güven kutusu otomatik olarak program açıldığında işaretlenmiş olabilirmi..??
Yardımlarınız için şimdiden tşk.ederim...
Private Sub Workbook_Open()
Application.VBE.MainWindow.Visible = False '// Close ALL windows 1st!
CmdControl 1695, False '// Visual basics Editor
CmdControl 186, False '// Macros...
CmdControl 184, False '// Record New Macro...
CmdControl 1561, False '// View Code
CmdControl 1605, False '// Design Mode
Application.OnDoubleClick = "Dummy"
Application.CommandBars("ToolBar List").Enabled = False
Application.OnKey "%{F11}", "Dummy"
'Workbooks.Open "C:\" 'add your stuff here
ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
CmdControl 1695, True '// Visual basics Editor
CmdControl 186, True '// Macros...
CmdControl 184, True '// Record New Macro...
CmdControl 1561, True '// View Code
CmdControl 1605, True '// Design Mode
Application.OnDoubleClick = ""
Application.CommandBars("ToolBar List").Enabled = True 'thisone
Application.OnKey "%{F11}", ""
End Sub


Sub CmdControl(Id As Integer, TF As Boolean)
Dim CBar As CommandBar
Dim C As CommandBarControl
On Error Resume Next
For Each CBar In Application.CommandBars
Set C = CBar.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = TF
Next
End Sub


Sub Dummy()
MsgBox "Kısıtlı Menü"
End Sub